Changeset 410 for LMDZ.3.3/branches/rel-LF/libf/phylmd/fisrtilp.F

Timestamp:

Oct 15, 2002, 5:01:46 PM (22 years ago)

Author:

lmdzadmin

Message:

correction bug IM
IM/LF

File:

• LMDZ.3.3/branches/rel-LF/libf/phylmd/fisrtilp.F (modified) (4 diffs)

LMDZ.3.3/branches/rel-LF/libf/phylmd/fisrtilp.F

@@ -107 +107 @@
 C     Pour la conversion eau-neige
       REAL zlh_solid(klon), zm_solid
+cIM 
+      INTEGER klevm1
 c---------------------------------------------------------------
 c
@@ -203 +205 @@
 c Boucle verticale (du haut vers le bas)
 c
+cIM : klevm1
+      klevm1=klev-1
       DO 9999 k = klev, 1, -1
 c
@@ -219 +223 @@
 C
       DO i = 1, klon
+cIM
+       IF(k.LE.klevm1) THEN         
         zmair=(paprs(i,k)-paprs(i,k+1))/RG
         zcpair=RCPD*(1.0+RVTMP2*zq(i))
@@ -226 +232 @@
      $      / (zmair*zcpair + zrfl(i)*dtime*zcpeau)
 CC        WRITE (6,*) 'cppluie ', zt(i)-(t(i,k+1)+d_t(i,k+1))
+       ENDIF
       ENDDO
 c