Ignore:
Timestamp:
Oct 19, 2000, 5:44:02 PM (24 years ago)
Author:
lmdzadmin
Message:

Bug dans coekz2
LF

File:
1 edited

Legend:

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

    r143 r146  
    12031203c
    12041204      INTEGER knon, nsrf
    1205       REAL paprs(klon,klev+1), pplay(klon,klev)
    1206       REAL t(klon,klev)
    1207 c
    1208       REAL pcfm(klon,klev), pcfh(klon,klev)
     1205      REAL paprs(knon,klev+1), pplay(knon,klev)
     1206      REAL t(knon,klev)
     1207c
     1208      REAL pcfm(knon,klev), pcfh(knon,klev)
    12091209c
    12101210c Quelques constantes et options:
     
    12251225c Variables locales:
    12261226c
    1227       INTEGER i, k, invb(klon)
    1228       REAL zl2(klon)
    1229       REAL zdthmin(klon), zdthdp
     1227      INTEGER i, k, invb(knon)
     1228      REAL zl2(knon)
     1229      REAL zdthmin(knon), zdthdp
    12301230c
    12311231c Initialiser les sorties
     
    12401240c Chercher la zone d'inversion forte
    12411241c
    1242       DO i = 1, klon
     1242      DO i = 1, knon
    12431243         invb(i) = klev
    12441244         zdthmin(i)=0.0
    12451245      ENDDO
    12461246      DO k = 2, klev/2-1
    1247       DO i = 1, klon
     1247      DO i = 1, knon
    12481248         zdthdp = (t(i,k)-t(i,k+1))/(pplay(i,k)-pplay(i,k+1))
    12491249     .          - RD * 0.5*(t(i,k)+t(i,k+1))/RCPD/paprs(i,k+1)
Note: See TracChangeset for help on using the changeset viewer.