Changeset 37

Timestamp:

07/27/12 16:11:34 (12 years ago)

Author:

ymipsl

Message:

Implement DCMIP 3.1 etat0 testcase

YM

Location:

codes/icosagcm/trunk/src

Files:

• etat0.f90 (modified) (2 diffs)
• etat0_dcmip3.f90 (added)

codes/icosagcm/trunk/src/etat0.f90

@@ -9 +9 @@
   USE etat0_academic_mod, ONLY : etat0_academic=>etat0  
   USE etat0_ncar_mod, ONLY : etat0_ncar=>etat0  
+  USE etat0_dcmip3_mod, ONLY : etat0_dcmip3=>etat0  
   IMPLICIT NONE
     TYPE(t_field),POINTER :: f_ps(:)
@@ -28 +29 @@
       CASE ('ncar')
         CALL etat0_ncar(f_ps,f_phis,f_theta_rhodz,f_u, f_q)
+      CASE ('dcmip3')
+        CALL etat0_dcmip3(f_ps,f_phis,f_theta_rhodz,f_u, f_q)
       CASE DEFAULT
         PRINT*, 'Bad selector for varaiable etat0 <',etat0_type,'> options are <jablonowsky06>, <academic>, <ncar> '