Changeset 62

Timestamp:

07/31/12 21:42:37 (12 years ago)

Author:

ymipsl

Message:

Add dcmip4.1 test case initialisation

YM

Location:

codes/icosagcm/trunk/src

Files:

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

codes/icosagcm/trunk/src/etat0.f90

@@ -10 +10 @@
     USE etat0_dcmip2_mod, ONLY : etat0_dcmip2=>etat0
     USE etat0_dcmip3_mod, ONLY : etat0_dcmip3=>etat0  
+    USE etat0_dcmip41_mod, ONLY : etat0_dcmip41=>etat0  
     IMPLICIT NONE
     TYPE(t_field),POINTER :: f_ps(:)
@@ -32 +33 @@
     CASE ('dcmip3')
        CALL etat0_dcmip3(f_ps,f_phis,f_theta_rhodz,f_u, f_q)
-    CASE DEFAULT
+     CASE ('dcmip41')
+       CALL etat0_dcmip41(f_ps,f_phis,f_theta_rhodz,f_u, f_q)
+   CASE DEFAULT
        PRINT*, 'Bad selector for variable etat0 <',etat0_type, &
             '> options are <jablonowsky06>, <academic>, <dcmip[1-3]> '