Changeset 1451 for LMDZ4/branches/LMDZ4_AR5/libf/phylmd/calcul_divers.h

Timestamp:

Nov 12, 2010, 4:13:39 PM (14 years ago)

Author:

jghattas

Message:

Bug corrections :
dyn3dpar/initfluxsto_p.F, leapfrog_p.F and fluxstokenc_p.F : for offline option
phylmd/calcul_divers.h : corrected initialization, for case ecrit_mth=dtime

File:

• LMDZ4/branches/LMDZ4_AR5/libf/phylmd/calcul_divers.h (modified) (3 diffs)

LMDZ4/branches/LMDZ4_AR5/libf/phylmd/calcul_divers.h

@@ -3 +3 @@
 c
 c
-c initialisations diverses au "debut" du mois
+c initialisations diverses au "debut" du simulation
 c
-      IF(MOD(itap,INT(ecrit_mth/dtime)).EQ.1) THEN
+      IF(debut) THEN
          DO i=1, klon
           nday_rain(i)=0.
@@ -17 +17 @@
        ENDDO
 c
-      ENDIF !MOD(itap,INT(ecrit_mth)).EQ.1
+      ENDIF
 c
-      IF(MOD(itap,INT(ecrit_day/dtime)).EQ.0) THEN
+      IF(MOD(itap,INT(un_jour/dtime)).EQ.0) THEN
 c
-cIM calcul total_rain, nday_rain
+cIM calcul une fois par jour : total_rain, nday_rain
 c
        DO i = 1, klon
@@ -27 +27 @@
         IF(total_rain(i).GT.0.) nday_rain(i)=nday_rain(i)+1.
        ENDDO
-      ENDIF !itap.EQ.ecrit_mth
+      ENDIF