Ignore:
Timestamp:
Oct 15, 2002, 5:01:46 PM (22 years ago)
Author:
lmdzadmin
Message:

correction bug IM
IM/LF

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ.3.3/branches/rel-LF/libf/phylmd/fisrtilp.F

    r393 r410  
    107107C     Pour la conversion eau-neige
    108108      REAL zlh_solid(klon), zm_solid
     109cIM
     110      INTEGER klevm1
    109111c---------------------------------------------------------------
    110112c
     
    203205c Boucle verticale (du haut vers le bas)
    204206c
     207cIM : klevm1
     208      klevm1=klev-1
    205209      DO 9999 k = klev, 1, -1
    206210c
     
    219223C
    220224      DO i = 1, klon
     225cIM
     226       IF(k.LE.klevm1) THEN         
    221227        zmair=(paprs(i,k)-paprs(i,k+1))/RG
    222228        zcpair=RCPD*(1.0+RVTMP2*zq(i))
     
    226232     $      / (zmair*zcpair + zrfl(i)*dtime*zcpeau)
    227233CC        WRITE (6,*) 'cppluie ', zt(i)-(t(i,k+1)+d_t(i,k+1))
     234       ENDIF
    228235      ENDDO
    229236c
Note: See TracChangeset for help on using the changeset viewer.