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

Timestamp:

09/10/13 12:04:33 (11 years ago)

Author:

dubos

Message:

Activated call to physics - Held & Suarez test case seems to work now

File:

• codes/icosagcm/trunk/src/etat0.f90 (modified) (1 diff)

codes/icosagcm/trunk/src/etat0.f90

@@ -49 +49 @@
     CASE ('academic')
        CALL etat0_academic(f_ps,f_phis,f_theta_rhodz,f_u, f_q)
-    CASE ('heldsz')
-        print*,"heldsz test case"
+    CASE ('held_suarez')
+       PRINT *,"Held & Suarez (1994) test case"
        CALL etat0_heldsz(f_ps,f_phis,f_theta_rhodz,f_u, f_q)
     CASE ('dcmip1')