Changeset 406 for codes/icosagcm/trunk/src/earth_const.f90

Timestamp:

06/08/16 23:24:41 (8 years ago)

Author:

dubos

Message:

Introduced fake_moist mode

File:

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

codes/icosagcm/trunk/src/earth_const.f90

@@ -19 +19 @@
   REAL(rstd),SAVE :: mu                 ! molar mass of the atmosphere
 
-  INTEGER, PARAMETER,PUBLIC :: thermo_theta=1, thermo_entropy=2, thermo_moist=3
-  INTEGER, PUBLIC :: caldyn_thermo
+  INTEGER, PARAMETER,PUBLIC :: thermo_theta=1, thermo_entropy=2, &
+       thermo_moist=3, thermo_dry=4, thermo_fake_moist=5 
+  INTEGER, PUBLIC :: caldyn_thermo, physics_thermo
   !$OMP THREADPRIVATE(caldyn_thermo) 
+  !$OMP THREADPRIVATE(physics_thermo) 
 
   LOGICAL, SAVE :: boussinesq, hydrostatic