Changeset 41 for LMDZ.3.3/trunk/libf

Timestamp:

Feb 9, 2000, 11:27:22 AM (25 years ago)

Author:

lmdz

Message:

Ajustement de parametres, initialisation de variables L.Li
LF

File:

• LMDZ.3.3/trunk/libf/phylmd/conflx.F (modified) (2 diffs)

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

@@ -317 +317 @@
       DO i = 1, klon
          ktype(i) = 2
-         if (zdqcv(i).GT.MAX(0.,-1.1*pqhfl(i)*RG)) ktype(i) = 1
+         if (zdqcv(i).GT.MAX(0.,-1.5*pqhfl(i)*RG)) ktype(i) = 1
+ccc         if (zdqcv(i).GT.MAX(0.,-1.1*pqhfl(i)*RG)) ktype(i) = 1
       ENDDO
 c
@@ -1547 +1548 @@
       zalsdcp = rlstt/RCPD
 C
+
+      DO i = 1, klon
+         zcond(i) = 0.0
+      ENDDO
+
       DO 210 i =1, klon
       IF (ldflag(i)) THEN