Changeset 146 for LMDZ.3.3/branches/rel-LF

Timestamp:

Oct 19, 2000, 5:44:02 PM (24 years ago)

Author:

lmdzadmin

Message:

Bug dans coekz2
LF

File:

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

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

@@ -1203 +1203 @@
 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:
@@ -1225 +1225 @@
 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
@@ -1240 +1240 @@
 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)