Changeset 3490 for LMDZ6/trunk/libf

Timestamp:

Apr 30, 2019, 11:39:50 AM (6 years ago)

Author:

musat

Message:

Le bornage a 2m n'est pas actif par defaut.
Les 2 flags qui controlent le bornage sont initialises
iflag_bug_t2m_ipslcm61=1
iflag_bug_t2m_stab_ipslcm61=-1
Valeurs possibles des flags et bornage CMIP6 (*) a posteriori:

• iflag_bug_t2m_ipslcm61=0/1 :

0 = bornage (*)
1 = pas de bornage

• iflag_bug_t2m_stab_ipslcm61 = -2/-1/1/0

-2 : bornage si q2m < 0
-1 : bornage si ftsol <= tair1 + q2m < 0 (*)

1 : bornage si ftsol <= tair1
0 : bornage systematique

File:

• LMDZ6/trunk/libf/phylmd/physiq_mod.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/phylmd/physiq_mod.F90

@@ -596 +596 @@
     !$OMP THREADPRIVATE(iflag_alp_wk_cond)
 
-    INTEGER,  SAVE               :: iflag_bug_t2m_ipslcm61=0 !
+    INTEGER,  SAVE               :: iflag_bug_t2m_ipslcm61=1 !
     !$OMP THREADPRIVATE(iflag_bug_t2m_ipslcm61)
-    INTEGER,  SAVE               :: iflag_bug_t2m_stab_ipslcm61=1 !
+    INTEGER,  SAVE               :: iflag_bug_t2m_stab_ipslcm61=-1 !
     !$OMP THREADPRIVATE(iflag_bug_t2m_stab_ipslcm61)
 
@@ -1304 +1304 @@
        WRITE(lunout,*) 'debut physiq_mod tau_gl=',tau_gl
 
-       iflag_bug_t2m_ipslcm61 = 0
+       iflag_bug_t2m_ipslcm61 = 1
        CALL getin_p('iflag_bug_t2m_ipslcm61', iflag_bug_t2m_ipslcm61)
-       iflag_bug_t2m_stab_ipslcm61 = 0
+       iflag_bug_t2m_stab_ipslcm61 = -1
        CALL getin_p('iflag_bug_t2m_stab_ipslcm61', iflag_bug_t2m_stab_ipslcm61)