Changeset 148 for LMDZ.3.3/branches/rel-LF/libf/phylmd

Timestamp:

Oct 24, 2000, 9:58:51 AM (24 years ago)

Author:

lmdzadmin

Message:

Dimmensionnement a klon dans coefkz2
LF

File:

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

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

@@ -744 +744 @@
       ENDDO
 c
+      write(45,*) 'pctsrf'
+      write(45,'(72f8.3)')pctsrf_new(:,is_sic)
+
       RETURN
       END
@@ -1203 +1206 @@
 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: