Changeset 335

Timestamp:

Feb 15, 2002, 12:05:25 PM (22 years ago)

Author:

lmdz

Message:

Un bug trouve par Olivier n'avait pas ete corrige dans la version officielle
LF

File:

• LMDZ.3.3/branches/rel-1-0-patch/libf/phylmd/conflx.F (modified) (1 diff)

LMDZ.3.3/branches/rel-1-0-patch/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)