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

Timestamp:

08/02/12 23:14:56 (12 years ago)

Author:

ymipsl

Message:

update dcmip4 testcase

YM

File:

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

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  
+    USE etat0_dcmip4_mod, ONLY : etat0_dcmip4=>etat0  
     IMPLICIT NONE
     TYPE(t_field),POINTER :: f_ps(:)
@@ -33 +33 @@
     CASE ('dcmip3')
        CALL etat0_dcmip3(f_ps,f_phis,f_theta_rhodz,f_u, f_q)
-     CASE ('dcmip41')
-       CALL etat0_dcmip41(f_ps,f_phis,f_theta_rhodz,f_u, f_q)
+     CASE ('dcmip4')
+       CALL etat0_dcmip4(f_ps,f_phis,f_theta_rhodz,f_u, f_q)
    CASE DEFAULT
        PRINT*, 'Bad selector for variable etat0 <',etat0_type, &