Changeset 22 for LMDZ.3.3/trunk/libf


Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ.3.3/trunk/libf/phylmd/conflx.F

    r17 r22  
    6565      REAL zde_u(klon,klev)
    6666      REAL zde_d(klon,klev)
     67      REAL zmflxr(klon,klev+1)
     68      REAL zmflxs(klon,klev+1)
    6769cAA
    6870
     
    150152     .             rain, snow, kcbot, kctop, kdtop,
    151153     .             zmfu, zmfd, zen_u, zde_u, zen_d, zde_d,
    152      .             d_t_bis, d_q_bis, pmflxr, pmflxs)
     154     .             d_t_bis, d_q_bis, zmflxr, zmflxs)
    153155C
    154156cAA--------------------------------------------------------
     
    193195      ENDDO
    194196
    195 c
     197      DO k = 1, klev+1
     198      DO i = 1, klon
     199         pmflxr(i,klev+2-k)= zmflxr(i,k)
     200         pmflxs(i,klev+2-k)= zmflxs(i,k)
     201      ENDDO
     202      ENDDO
     203
    196204      RETURN
    197205      END
     
    15391547      zalsdcp = rlstt/RCPD
    15401548C
    1541 
    1542       DO i = 1, klon
    1543          zcond(i) = 0.0
    1544       ENDDO
    1545 
    15461549      DO 210 i =1, klon
    15471550      IF (ldflag(i)) THEN
Note: See TracChangeset for help on using the changeset viewer.