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

Timestamp:

Jul 12, 2017, 4:20:24 PM (7 years ago)

Author:

jbmadeleine

Message:

• Added a new output called rneblsvol which is the cloud fraction by volume

computed in the thermals (see cloudth_vert in cloudth_mod.F90)

• Added an option called iflag_rain_incloud_vol that computes the conversion

of cloud water to rain using the cloud fraction by volume instead of the cloud
fraction by area, which is larger and otherwise erroneously reduces the in-cloud
water content; iflag_rain_incloud_vol can only be used for iflag_cloudth_vert>=3

File:

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

LMDZ5/trunk/libf/phylmd/conf_phys_m.F90

@@ -169 +169 @@
     INTEGER,SAVE :: iflag_t_glace_omp
     INTEGER,SAVE :: iflag_cloudth_vert_omp
+    INTEGER,SAVE :: iflag_rain_incloud_vol_omp
     REAL,SAVE :: rad_froid_omp, rad_chau1_omp, rad_chau2_omp
     REAL,SAVE :: t_glace_min_omp, t_glace_max_omp
@@ -1248 +1249 @@
 
     !
+    !Config Key  = iflag_rain_incloud_vol
+    !Config Desc =  
+    !Config Def  = 0
+    !Config Help = 
+    !
+    iflag_rain_incloud_vol_omp = 0
+    CALL getin('iflag_rain_incloud_vol',iflag_rain_incloud_vol_omp)
+
+    !
     !Config Key  = iflag_ice_thermo
     !Config Desc =  
@@ -2163 +2173 @@
     iflag_t_glace = iflag_t_glace_omp
     iflag_cloudth_vert=iflag_cloudth_vert_omp
+    iflag_rain_incloud_vol=iflag_rain_incloud_vol_omp
     iflag_ice_thermo = iflag_ice_thermo_omp
     rei_min = rei_min_omp
@@ -2511 +2522 @@
     write(lunout,*)' iflag_t_glace = ',iflag_t_glace
     write(lunout,*)' iflag_cloudth_vert = ',iflag_cloudth_vert
+    write(lunout,*)' iflag_rain_incloud_vol = ',iflag_rain_incloud_vol
     write(lunout,*)' iflag_ice_thermo = ',iflag_ice_thermo
     write(lunout,*)' rei_min = ',rei_min