Changeset 145 for LMDZ.3.3/trunk


Ignore:
Timestamp:
Oct 19, 2000, 5:41:15 PM (24 years ago)
Author:
lmdz
Message:

Bug de dimensionnement dans coefkz2
LF

File:
1 edited

Legend:

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

    r144 r145  
    11721172c
    11731173      INTEGER knon, nsrf
    1174       REAL paprs(klon,klev+1), pplay(klon,klev)
    1175       REAL t(klon,klev)
    1176 c
    1177       REAL pcfm(klon,klev), pcfh(klon,klev)
     1174      REAL paprs(knon,klev+1), pplay(knon,klev)
     1175      REAL t(knon,klev)
     1176c
     1177      REAL pcfm(knon,klev), pcfh(knon,klev)
    11781178c
    11791179c Quelques constantes et options:
     
    11941194c Variables locales:
    11951195c
    1196       INTEGER i, k, invb(klon)
    1197       REAL zl2(klon)
    1198       REAL zdthmin(klon), zdthdp
     1196      INTEGER i, k, invb(knon)
     1197      REAL zl2(knon)
     1198      REAL zdthmin(knon), zdthdp
    11991199c
    12001200c Initialiser les sorties
     
    12091209c Chercher la zone d'inversion forte
    12101210c
    1211       DO i = 1, klon
     1211      DO i = 1, knon
    12121212         invb(i) = klev
    12131213         zdthmin(i)=0.0
    12141214      ENDDO
    12151215      DO k = 2, klev/2-1
    1216       DO i = 1, klon
     1216      DO i = 1, knon
    12171217         zdthdp = (t(i,k)-t(i,k+1))/(pplay(i,k)-pplay(i,k+1))
    12181218     .          - 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.