Changeset 286 for LMDZ.3.3/trunk/libf/phylmd/conflx.F

Timestamp:

Oct 25, 2001, 2:29:01 PM (23 years ago)

Author:

lmdz

Message:

Correction d'Olivier
LF

File:

• LMDZ.3.3/trunk/libf/phylmd/conflx.F (modified) (1 diff)

LMDZ.3.3/trunk/libf/phylmd/conflx.F

@@ -833 +833 @@
             pqu(i,k+1) = pqen(i,k)
             plu(i,k+1) = 0.0
-            zzzmb = MAX(CMFCMIN, -pvervel(i,k)/RG)
+c--modif Olivier 12/2000
+c            zzzmb = MAX(CMFCMIN, -pvervel(i,k)/RG)
+            zzzmb = MAX(CMFCMIN, -pvervel(i,k))
             zmfmax = (paph(i,k)-paph(i,k-1))/(RG*pdtime)
             pmfub(i) = MIN(zzzmb,zmfmax)