Changeset 22 for LMDZ.3.3/trunk/libf

Timestamp:

Jan 18, 2000, 5:37:13 PM (25 years ago)

Author:

lmdz

Message:

la tendance de l'eau doit etre inversee dans conflx D. Hauglustaine

File:

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

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

@@ -65 +65 @@
       REAL zde_u(klon,klev)
       REAL zde_d(klon,klev)
+      REAL zmflxr(klon,klev+1)
+      REAL zmflxs(klon,klev+1)
 cAA
 
@@ -150 +152 @@
      .             rain, snow, kcbot, kctop, kdtop,
      .             zmfu, zmfd, zen_u, zde_u, zen_d, zde_d,
-     .             d_t_bis, d_q_bis, pmflxr, pmflxs)
+     .             d_t_bis, d_q_bis, zmflxr, zmflxs)
 C
 cAA--------------------------------------------------------
@@ -193 +195 @@
       ENDDO
 
-c
+      DO k = 1, klev+1
+      DO i = 1, klon
+         pmflxr(i,klev+2-k)= zmflxr(i,k)
+         pmflxs(i,klev+2-k)= zmflxs(i,k)
+      ENDDO
+      ENDDO
+
       RETURN
       END
@@ -1539 +1547 @@
       zalsdcp = rlstt/RCPD
 C
-
-      DO i = 1, klon
-         zcond(i) = 0.0
-      ENDDO
-
       DO 210 i =1, klon
       IF (ldflag(i)) THEN