c
c $Header$
c
c
c initialisations diverses au "debut" du simulation
c
      IF(debut) THEN
         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
c
      IF(MOD(itap,INT(un_jour/dtime)).EQ.0) THEN
c
cIM calcul une fois par jour : 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