Changeset 3670 for LMDZ6/trunk/libf/phylmd/cv3_routines.F90

Timestamp:

Apr 27, 2020, 10:49:09 AM (5 years ago)

Author:

jyg

Message:

In order to makEmanuel scheme : set iflag=14 in
cv3_trigger when
no convection and reset Cin to Cin_noconv at the
end of cva_driver when iflag=14.

File:

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

LMDZ6/trunk/libf/phylmd/cv3_routines.F90

@@ -888 +888 @@
 ! - relaxation of sig and w0 when no convection
 
-! Caution1: if no convection, we set iflag=4
+! Caution1: if no convection, we set iflag=14
 ! (it used to be 0 in convect3)
 
@@ -968 +968 @@
         sig(i, k) = amax1(sig(i,k), 0.0)
         w0(i, k) = beta*w0(i, k)
-        iflag(i) = 4 ! pour version vectorisee
+        iflag(i) = 14 ! pour version vectorisee
 ! convect3         iflag(i)=0
       END IF