Changeset 740 for LMDZ4/branches/LMDZ4_V2_patch/libf/phylmd/calcul_divers.h

Timestamp:

Dec 8, 2006, 12:45:43 PM (18 years ago)

Author:

lmdzadmin

Message:

Correction bogues: les ecrit_ sont des REALs lus dans conf_phys.F90 en
nombre de jours sauf pour ecrit_ins et ecrit_tra en secondes!
Les ecrit_ sont initialises dans conf_phys.F90 et peuvent etre modifies dans
physiq.def.
IM

File:

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

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

@@ -5 +5 @@
 c initialisations diverses au "debut" du mois
 c
-      IF(MOD(itap,ecrit_mth).EQ.1) THEN
+      IF(MOD(itap,NINT(ecrit_mth/dtime)).EQ.1) THEN
          DO i=1, klon
           nday_rain(i)=0.
@@ -19 +19 @@
       ENDIF !MOD(itap,ecrit_mth).EQ.1
 c
-      IF(MOD(itap,ecrit_day).EQ.0) THEN
+      IF(MOD(itap,NINT(ecrit_day/dtime)).EQ.0) THEN
 c
 cIM calcul total_rain, nday_rain
@@ -27 +27 @@
         IF(total_rain(i).GT.0.) nday_rain(i)=nday_rain(i)+1.
        ENDDO
-      ENDIF !itap.EQ.ecrit_mth
+      ENDIF !itap.EQ.ecrit_day