Changeset 145 for LMDZ.3.3/trunk

Timestamp:

Oct 19, 2000, 5:41:15 PM (24 years ago)

Author:

lmdz

Message:

Bug de dimensionnement dans coefkz2
LF

File:

• LMDZ.3.3/trunk/libf/phylmd/clmain.F (modified) (3 diffs)

LMDZ.3.3/trunk/libf/phylmd/clmain.F

@@ -1172 +1172 @@
 c
       INTEGER knon, nsrf
-      REAL paprs(klon,klev+1), pplay(klon,klev)
-      REAL t(klon,klev)
-c
-      REAL pcfm(klon,klev), pcfh(klon,klev)
+      REAL paprs(knon,klev+1), pplay(knon,klev)
+      REAL t(knon,klev)
+c
+      REAL pcfm(knon,klev), pcfh(knon,klev)
 c
 c Quelques constantes et options:
@@ -1194 +1194 @@
 c Variables locales:
 c
-      INTEGER i, k, invb(klon)
-      REAL zl2(klon)
-      REAL zdthmin(klon), zdthdp
+      INTEGER i, k, invb(knon)
+      REAL zl2(knon)
+      REAL zdthmin(knon), zdthdp
 c
 c Initialiser les sorties
@@ -1209 +1209 @@
 c Chercher la zone d'inversion forte
 c
-      DO i = 1, klon
+      DO i = 1, knon
          invb(i) = klev
          zdthmin(i)=0.0
       ENDDO
       DO k = 2, klev/2-1
-      DO i = 1, klon
+      DO i = 1, knon
          zdthdp = (t(i,k)-t(i,k+1))/(pplay(i,k)-pplay(i,k+1))
      .          - RD * 0.5*(t(i,k)+t(i,k+1))/RCPD/paprs(i,k+1)