Changeset 4843 for LMDZ6/trunk/libf/phylmd/alpale.h

Timestamp:

Mar 4, 2024, 6:58:03 PM (3 months ago)

Author:

crio

Message:

Nouvelle formulation du strig et correction thermiques montent trop haut

File:

• LMDZ6/trunk/libf/phylmd/alpale.h (modified) (2 diffs)

LMDZ6/trunk/libf/phylmd/alpale.h

@@ -5 +5 @@
 
 ! dans alealp_th, thermcell_alp, physiq_mod, conf_phys
-      integer            :: iflag_trig_bl,iflag_clos_bl
+      integer            :: iflag_trig_bl,iflag_clos_bl,iflag_strig
       integer            :: tau_trig_shallow,tau_trig_deep
-      real               :: s_trig
+      real               :: s_trig, h_trig
 ! thermcell_alp et convection ...
       integer            :: iflag_coupl,iflag_clos,iflag_wake
@@ -13 +13 @@
       real               :: alp_bl_k
 
-      common/calpale1/iflag_trig_bl,iflag_clos_bl,tau_trig_shallow,tau_trig_deep
-      common/calpale2/s_trig,iflag_coupl,iflag_clos,iflag_wake,alp_bl_k
+      common/calpale1/iflag_trig_bl,iflag_clos_bl,tau_trig_shallow,tau_trig_deep,iflag_strig
+      common/calpale2/s_trig,iflag_coupl,iflag_clos,iflag_wake,alp_bl_k,h_trig
 
 !$OMP THREADPRIVATE(/calpale1/,/calpale2/)