Changeset 1849 for LMDZ5/trunk/libf/phylmd/conf_phys_m.F90

Timestamp:

Aug 27, 2013, 12:55:18 PM (11 years ago)

Author:

Ehouarn Millour

Message:

Including the thermodynamics of ice in the convection scheme (iactive only if iflag_ice_thermo==1).
CR+JYG

File:

• LMDZ5/trunk/libf/phylmd/conf_phys_m.F90 (modified) (4 diffs)

LMDZ5/trunk/libf/phylmd/conf_phys_m.F90

@@ -141 +141 @@
   LOGICAL,SAVE :: reevap_ice_omp
   INTEGER,SAVE :: iflag_pdf_omp
+  INTEGER,SAVE :: iflag_ice_thermo_omp
   REAL,SAVE :: rad_froid_omp, rad_chau1_omp, rad_chau2_omp
   REAL,SAVE :: t_glace_min_omp, t_glace_max_omp
@@ -966 +967 @@
   t_glace_max_omp = 273.13
   call getin('t_glace_max',t_glace_max_omp)
+
+!
+!Config Key  = iflag_ice_thermo
+!Config Desc =  
+!Config Def  = 0
+!Config Help = 
+!
+  iflag_ice_thermo_omp = 0
+  call getin('iflag_ice_thermo',iflag_ice_thermo_omp)
 
 !Config Key  = rei_min
@@ -1694 +1704 @@
     t_glace_min = t_glace_min_omp
     t_glace_max = t_glace_max_omp
+    iflag_ice_thermo = iflag_ice_thermo_omp
     rei_min = rei_min_omp
     rei_max = rei_max_omp
@@ -1911 +1922 @@
   write(lunout,*)' t_glace_min = ',t_glace_min
   write(lunout,*)' t_glace_max = ',t_glace_max
+  write(lunout,*)' iflag_ice_thermo = ',iflag_ice_thermo
   write(lunout,*)' rei_min = ',rei_min
   write(lunout,*)' rei_max = ',rei_max