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

Timestamp:

06/29/13 02:30:24 (11 years ago)

Author:

dubos

Message:

Williamson (1991) test case

File:

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

codes/icosagcm/trunk/src/etat0.f90

@@ -7 +7 @@
     USE icosa
     USE disvert_mod
+    USE etat0_williamson_mod, ONLY : etat0_williamson_new
     USE etat0_jablonowsky06_mod, ONLY : etat0_jablonowsky06=>etat0
     USE etat0_academic_mod, ONLY : etat0_academic=>etat0  
@@ -41 +42 @@
     
     SELECT CASE (TRIM(etat0_type))
+    CASE ('williamson91.5')
+       CALL etat0_williamson_new(f_phis,f_mass,f_theta_rhodz,f_u, f_q)
+       init_mass=.FALSE.
     CASE ('jablonowsky06')
        CALL etat0_jablonowsky06(f_ps,f_phis,f_theta_rhodz,f_u, f_q)