Changeset 1454 for LMDZ5/trunk/libf/phylmd/calcul_divers.h

Timestamp:

Nov 18, 2010, 1:01:24 PM (14 years ago)

Author:

Laurent Fairhead

Message:

Merge of LMDZ5V1.0-dev branch r1453 into LMDZ5 trunk r1434

---

Fusion entre la version r1453 de la branche de développement LMDZ5V1.0-dev
et le tronc LMDZ5 (r1434)

Location:

LMDZ5/trunk

Files:

• . (modified) (1 prop)
• libf/phylmd/calcul_divers.h (modified) (1 diff)

LMDZ5/trunk/libf/phylmd/calcul_divers.h

@@ -2 +2 @@
 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