Changeset 4843 for LMDZ6/trunk/libf/phylmd/conf_phys_m.F90

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/conf_phys_m.F90 (modified) (5 diffs)

LMDZ6/trunk/libf/phylmd/conf_phys_m.F90

@@ -144 +144 @@
     REAL,SAVE :: tau_thermals_omp,alp_bl_k_omp
     ! nrlmd le 10/04/2012
-    INTEGER,SAVE :: iflag_trig_bl_omp,iflag_clos_bl_omp
+    INTEGER,SAVE :: iflag_trig_bl_omp,iflag_clos_bl_omp,iflag_strig_omp
     INTEGER,SAVE :: tau_trig_shallow_omp,tau_trig_deep_omp
-    REAL,SAVE    :: s_trig_omp
+    REAL,SAVE    :: s_trig_omp,h_trig_omp
     ! fin nrlmd le 10/04/2012
     REAL :: alp_offset
@@ -1559 +1559 @@
     CALL getin('iflag_trig_bl',iflag_trig_bl_omp)
 
+    !Config Key  = iflag_strig
+    !Config Desc =  
+    !Config Def  = 0
+    !Config Help = 
+    !
+    iflag_strig_omp = 0
+    CALL getin('iflag_strig',iflag_strig_omp)
+
     !Config Key  = s_trig_bl
     !Config Desc =  
@@ -1566 +1574 @@
     s_trig_omp = 2e7
     CALL getin('s_trig',s_trig_omp)
+
+    !Config Key  = h_trig
+    !Config Desc =  
+    !Config Def  = 0
+    !Config Help = 
+    !
+    h_trig_omp = 6000.
+    CALL getin('h_trig',h_trig_omp)
 
     !Config Key  = tau_trig_shallow
@@ -2439 +2455 @@
     ! nrlmd le 10/04/2012
     iflag_trig_bl = iflag_trig_bl_omp
+    iflag_strig = iflag_strig_omp
     s_trig = s_trig_omp
+    h_trig = h_trig_omp
     tau_trig_shallow = tau_trig_shallow_omp
     tau_trig_deep = tau_trig_deep_omp
@@ -2835 +2853 @@
     ! nrlmd le 10/04/2012
     WRITE(lunout,*) ' iflag_trig_bl = ', iflag_trig_bl
+    WRITE(lunout,*) ' iflag_strig = ', iflag_strig
     WRITE(lunout,*) ' s_trig = ', s_trig
+    WRITE(lunout,*) ' h_trig = ', h_trig
     WRITE(lunout,*) ' tau_trig_shallow = ', tau_trig_shallow
     WRITE(lunout,*) ' tau_trig_deep = ', tau_trig_deep