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

Timestamp:

Jun 7, 2016, 3:48:13 PM (8 years ago)

Author:

jbmadeleine

Message:

Ajout de l'option iflag_cloudth_vert=2 developpe par Jean Jouhaud pour l heterogeneite verticale sous maille des
nuages. Pour le moment, l ecart type de la pdf verticale vaut la moitie de l ecart type de la pdf horizontale.
Le iflag_cloudth_vert=1 conserve l heterogeneite verticale telle qu introduite par Arnaud Jam en Avril 2015.

File:

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

LMDZ5/trunk/libf/phylmd/conf_phys_m.F90

@@ -165 +165 @@
     INTEGER,SAVE :: iflag_ice_thermo_omp
     INTEGER,SAVE :: iflag_t_glace_omp
+    INTEGER,SAVE :: iflag_cloudth_vert_omp
     REAL,SAVE :: rad_froid_omp, rad_chau1_omp, rad_chau2_omp
     REAL,SAVE :: t_glace_min_omp, t_glace_max_omp
@@ -1161 +1162 @@
 
     !
+    !Config Key  = iflag_cloudth_vert
+    !Config Desc =  
+    !Config Def  = 0
+    !Config Help = 
+    !
+    iflag_cloudth_vert_omp = 0
+    call getin('iflag_cloudth_vert',iflag_cloudth_vert_omp)
+
+    !
     !Config Key  = iflag_ice_thermo
     !Config Desc =  
@@ -2044 +2054 @@
     exposant_glace = exposant_glace_omp
     iflag_t_glace = iflag_t_glace_omp
+    iflag_cloudth_vert=iflag_cloudth_vert_omp
     iflag_ice_thermo = iflag_ice_thermo_omp
     rei_min = rei_min_omp
@@ -2361 +2372 @@
     write(lunout,*)' exposant_glace = ',exposant_glace
     write(lunout,*)' iflag_t_glace = ',iflag_t_glace
+    write(lunout,*)' iflag_cloudth_vert = ',iflag_cloudth_vert
     write(lunout,*)' iflag_ice_thermo = ',iflag_ice_thermo
     write(lunout,*)' rei_min = ',rei_min