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

Timestamp:

Jan 13, 2023, 11:39:28 AM (18 months ago)

Author:

evignon

Message:

pour les downdrafts, suppression de la cle de compilation pour protection sous flag
iflag_thermals_down
+ stop si le flux compensatoire est vers le haut

File:

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

LMDZ6/trunk/libf/phylmd/thermcell_ini_mod.F90

@@ -7 +7 @@
    real           :: r_aspect_thermals,tau_thermals,fact_thermals_ed_dz
    integer        :: iflag_thermals_ed,iflag_thermals_optflux,iflag_thermals_closure
-
+   integer        :: iflag_thermals_down
 
 !$OMP THREADPRIVATE(dvdq,dqimpl,prt_level,lunout)
@@ -13 +13 @@
 !$OMP THREADPRIVATE(r_aspect_thermals,tau_thermals,fact_thermals_ed_dz)
 !$OMP THREADPRIVATE(iflag_thermals_ed,iflag_thermals_optflux,iflag_thermals_closure)
+!$OMP THREADPRIVATE(iflag_thermals_down)
+
 
    REAL, SAVE :: fact_epsilon=0.002
@@ -85 +87 @@
    CALL getin_p('iflag_thermals_closure',iflag_thermals_closure)
 
+   iflag_thermals_down = 0
+   CALL getin_p('iflag_thermals_down',iflag_thermals_down)
+
+
      CALL getin_p('thermals_fact_epsilon',fact_epsilon)
      CALL getin_p('thermals_betalpha',betalpha)