Changeset 343 for LMDZ.3.3/trunk/libf/phylmd

Timestamp:

Mar 5, 2002, 1:09:28 PM (23 years ago)

Author:

lmdz

Message:

On corrige le double bug sur la vitesse verticale
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
-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)