Changeset 113 for codes/icosagcm/trunk/src/etat0.f90

Timestamp:

08/08/12 08:18:36 (12 years ago)

Author:

ymipsl

Message:

Add dcmip 5 testcase

YM

File:

• codes/icosagcm/trunk/src/etat0.f90 (modified) (2 diffs)

codes/icosagcm/trunk/src/etat0.f90

@@ -11 +11 @@
     USE etat0_dcmip3_mod, ONLY : etat0_dcmip3=>etat0  
     USE etat0_dcmip4_mod, ONLY : etat0_dcmip4=>etat0  
+    USE etat0_dcmip5_mod, ONLY : etat0_dcmip5=>etat0  
     IMPLICIT NONE
     TYPE(t_field),POINTER :: f_ps(:)
@@ -35 +36 @@
      CASE ('dcmip4')
        CALL etat0_dcmip4(f_ps,f_phis,f_theta_rhodz,f_u, f_q)
+     CASE ('dcmip5')
+       CALL etat0_dcmip5(f_ps,f_phis,f_theta_rhodz,f_u, f_q)
    CASE DEFAULT
        PRINT*, 'Bad selector for variable etat0 <',etat0_type, &