Changeset 149 for LMDZ.3.3/trunk/libf

Timestamp:

Oct 26, 2000, 12:40:31 PM (24 years ago)

Author:

lmdz

Message:

Continuation bug coefkz2
LF

File:

• LMDZ.3.3/trunk/libf/phylmd/clmain.F (modified) (1 diff)

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

@@ -1172 +1172 @@
 c
       INTEGER knon, nsrf
-      REAL paprs(knon,klev+1), pplay(knon,klev)
-      REAL t(knon,klev)
-c
-      REAL pcfm(knon,klev), pcfh(knon,klev)
+      REAL paprs(klon,klev+1), pplay(klon,klev)
+      REAL t(klon,klev)
+c
+      REAL pcfm(klon,klev), pcfh(klon,klev)
 c
 c Quelques constantes et options: