Index: LMDZ4/branches/V3_test/libf/phylmd/physiq.F
===================================================================
--- LMDZ4/branches/V3_test/libf/phylmd/physiq.F	(revision 744)
+++ LMDZ4/branches/V3_test/libf/phylmd/physiq.F	(revision 745)
@@ -40,5 +40,5 @@
 c#define histhf
 c#define histday
-C#define histmth
+#define histmth
 c#define histins
 c#define histmthNMC
@@ -444,5 +444,7 @@
 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)