Changeset 4413 for LMDZ6/trunk/libf/phylmd/thermcell_ini_mod.F90

Timestamp:

Feb 1, 2023, 5:47:09 PM (17 months ago)

Author:

evignon

Message:

pour les mini-projets: controle des coefficients pour le detrainement
et l'entrainement des downdrafts dans les .def

File:

• LMDZ6/trunk/libf/phylmd/thermcell_ini_mod.F90 (modified) (3 diffs)

LMDZ6/trunk/libf/phylmd/thermcell_ini_mod.F90

@@ -8 +8 @@
    integer        :: iflag_thermals_ed,iflag_thermals_optflux,iflag_thermals_closure
    integer        :: iflag_thermals_down
+   real           :: entrdn_coef, detrdn_coef
 
 !$OMP THREADPRIVATE(dvdq,dqimpl,prt_level,lunout)
@@ -14 +15 @@
 !$OMP THREADPRIVATE(iflag_thermals_ed,iflag_thermals_optflux,iflag_thermals_closure)
 !$OMP THREADPRIVATE(iflag_thermals_down)
+!$OMP THREADPRIVATE(entrdn_coef, detrdn_coef)
 
 
@@ -91 +93 @@
 
 
+   entrdn_coef = 0.5
+   CALL getin_p('entrdn_coef',entrdn_coef)
+
+   detrdn_coef = 0.5
+   CALL getin_p('detrdn_coef',detrdn_coef)
+
+
      CALL getin_p('thermals_fact_epsilon',fact_epsilon)
      CALL getin_p('thermals_betalpha',betalpha)