Changeset 2398 for LMDZ5/trunk/libf/phylmd/cva_driver.F90

Timestamp:

Nov 19, 2015, 12:19:38 PM (9 years ago)

Author:

jyg

Message:

Introduction of two new flags (ok_conv_stop
[Def=F], ok_intermittent [Def=F]) and one new
parameter (tau_stop [Def=15000]) in
conv_param.data:

. ok_conv_stop=T => convective mass fluxes are

set to zero if there is no trigger for a time
lapse longer than tau_stop.

. ok_intermittent=T => intermittent convection is

represented; the change concerns the upper
bound on the cloud base mass flux in
cv3p2_closure.F90.

The upper bound on Alp in physiq.F90 should

also be changed: this is still to be done.

File:

• LMDZ5/trunk/libf/phylmd/cva_driver.F90 (modified) (1 diff)

LMDZ5/trunk/libf/phylmd/cva_driver.F90

@@ -622 +622 @@
   END DO
 
+!!  IF (iflag_con==3) THEN
+!!    DO il = 1, len
+!!      sig1(il, nd) = sig1(il, nd) + 1.
+!!      sig1(il, nd) = amin1(sig1(il,nd), 12.1)
+!!    END DO
+!!  END IF
+
   IF (iflag_con==3) THEN
-    DO il = 1, len
-      sig1(il, nd) = sig1(il, nd) + 1.
-      sig1(il, nd) = amin1(sig1(il,nd), 12.1)
-    END DO
-  END IF
+      CALL cv3_incrcount(len,nd,delt,sig1)
+  END IF  ! (iflag_con==3)
 
 ! RomP >>>