Changeset 745

Timestamp:

Jan 18, 2007, 4:59:08 PM (18 years ago)

Author:

Laurent Fairhead

Message:

Correction bug YM
LF

File:

• LMDZ4/branches/V3_test/libf/phylmd/physiq.F (modified) (2 diffs)

LMDZ4/branches/V3_test/libf/phylmd/physiq.F

@@ -40 +40 @@
 c#define histhf
 c#define histday
-C#define histmth
+#define histmth
 c#define histins
 c#define histmthNMC
@@ -444 +444 @@
 c ncol = nb. de sous-colonnes pour chaque maille du GCM 
 c ncolmx = No. max. de sous-colonnes pour chaque maille du GCM 
-      INTEGER ncol(napisccp), ncolmx, seed(klon,napisccp)
+c      INTEGER ncol(napisccp), ncolmx, seed(klon,napisccp)
+      INTEGER,SAVE :: ncol(napisccp)
+      INTEGER ncolmx, seed(klon,napisccp)
       REAL nbsunlit(nregISCtot,klon,napisccp)  !nbsunlit : moyenne de sunlit
       PARAMETER(ncolmx=1500)