Index: LMDZ5/branches/LMDZ5V1.0-dev/libf/dyn3dpar/fluxstokenc_p.F
===================================================================
--- LMDZ5/branches/LMDZ5V1.0-dev/libf/dyn3dpar/fluxstokenc_p.F	(revision 1452)
+++ LMDZ5/branches/LMDZ5V1.0-dev/libf/dyn3dpar/fluxstokenc_p.F	(revision 1453)
@@ -57,5 +57,5 @@
 
 c AC initialisations
-cym      pbarug(:,:)   = 0.
+      pbarug(:,:)   = 0.
 cym      pbarvg(:,:,:) = 0.
 cym      wg(:,:)       = 0.
Index: LMDZ5/branches/LMDZ5V1.0-dev/libf/phylmd/calcul_divers.h
===================================================================
--- LMDZ5/branches/LMDZ5V1.0-dev/libf/phylmd/calcul_divers.h	(revision 1452)
+++ LMDZ5/branches/LMDZ5V1.0-dev/libf/phylmd/calcul_divers.h	(revision 1453)
@@ -2,28 +2,23 @@
 c $Header$
 c
-c
-c initialisations diverses au "debut" du mois
-c
-      IF(MOD(itap,INT(ecrit_mth/dtime)).EQ.1) THEN
+
+c     Initialisations diverses au "debut" du mois
+      IF(debut) THEN
+         nday_rain(:)=0.
+
+c        surface terre
+         paire_ter(:)=0.
          DO i=1, klon
-          nday_rain(i)=0.
-         ENDDO !i
-c
-c surface terre
-       DO i=1, klon
-         IF(pctsrf(i,is_ter).GT.0.) THEN
-            paire_ter(i)=airephy(i)*pctsrf(i,is_ter)
-         ENDIF 
-       ENDDO
-c
-      ENDIF !MOD(itap,INT(ecrit_mth)).EQ.1
-c
-      IF(MOD(itap,INT(ecrit_day/dtime)).EQ.0) THEN
-c
-cIM calcul total_rain, nday_rain
-c
-       DO i = 1, klon
-        total_rain(i)=rain_fall(i)+snow_fall(i)  
-        IF(total_rain(i).GT.0.) nday_rain(i)=nday_rain(i)+1.
-       ENDDO
-      ENDIF !itap.EQ.ecrit_mth
+            IF(pctsrf(i,is_ter).GT.0.) THEN
+               paire_ter(i)=airephy(i)*pctsrf(i,is_ter)
+            ENDIF 
+         ENDDO
+      ENDIF
+
+cIM   Calcul une fois par jour : total_rain, nday_rain
+      IF(MOD(itap,INT(un_jour/dtime)).EQ.0) THEN
+         DO i = 1, klon
+            total_rain(i)=rain_fall(i)+snow_fall(i)  
+            IF(total_rain(i).GT.0.) nday_rain(i)=nday_rain(i)+1.
+         ENDDO
+      ENDIF
Index: LMDZ5/branches/LMDZ5V1.0-dev/libf/phylmd/physiq.F
===================================================================
--- LMDZ5/branches/LMDZ5V1.0-dev/libf/phylmd/physiq.F	(revision 1452)
+++ LMDZ5/branches/LMDZ5V1.0-dev/libf/phylmd/physiq.F	(revision 1453)
@@ -1250,5 +1250,4 @@
 cym Attention pbase pas initialise dans concvl !!!!
           pbase=0
-          paire_ter(:)=0.    
 cIM 180608
 c         pmflxr=0.