Changeset 4913 for LMDZ6/trunk/libf/phylmd/lmdz_lscp_ini.F90

Timestamp:

Apr 21, 2024, 1:29:21 PM (4 weeks ago)

Author:

evignon

Message:

amelioration de poprecip avec:

• formule du rayon des cristaux
• qvap du ciel clair pour l'évap des precip

Lea et Audran

File:

• LMDZ6/trunk/libf/phylmd/lmdz_lscp_ini.F90 (modified) (4 diffs)

LMDZ6/trunk/libf/phylmd/lmdz_lscp_ini.F90

@@ -146 +146 @@
   !$OMP THREADPRIVATE(ok_poprecip)
 
+  LOGICAL, SAVE, PROTECTED :: ok_corr_vap_evasub=.FALSE.    ! use the corrected version of clear-sky water vapor for the evap / subl processes
+  !$OMP THREADPRIVATE(ok_corr_vap_evasub)
+
   REAL, SAVE, PROTECTED :: cld_lc_lsc_snow=2.e-5            ! snow autoconversion coefficient, stratiform. default from  Chaboureau and PInty 2006
   !$OMP THREADPRIVATE(cld_lc_lsc_snow)
@@ -178 +181 @@
   REAL, SAVE, PROTECTED :: r_snow=1.E-3                    ! A COMMENTER TODO [m]
   !$OMP THREADPRIVATE(r_snow)
-
-  REAL, SAVE, PROTECTED :: r_ice=50.E-6                    ! A COMMENTER TODO [m]
-  !$OMP THREADPRIVATE(r_ice)
 
   REAL, SAVE, PROTECTED :: tau_auto_snow_min=100.          ! A COMMENTER TODO [s]
@@ -301 +301 @@
     CALL getin_p('iflag_oldbug_fisrtilp',iflag_oldbug_fisrtilp)
     CALL getin_p('ok_poprecip',ok_poprecip)
+    CALL getin_p('ok_corr_vap_evasub',ok_corr_vap_evasub)
     CALL getin_p('rain_int_min',rain_int_min) 
     CALL getin_p('gamma_agg',gamma_agg)
@@ -358 +359 @@
     WRITE(lunout,*) 'lscp_ini, fl_cor_ebil', fl_cor_ebil
     WRITE(lunout,*) 'lscp_ini, ok_poprecip', ok_poprecip
+    WRITE(lunout,*) 'lscp_ini, ok_corr_vap_evasub', ok_corr_vap_evasub
     WRITE(lunout,*) 'lscp_ini, rain_int_min:', rain_int_min
     WRITE(lunout,*) 'lscp_ini, gamma_agg:', gamma_agg