Changeset 740 for LMDZ4/branches/LMDZ4_V2_patch/libf/phylmd/ini_undefSTD.F

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/ini_undefSTD.F (modified) (4 diffs)

LMDZ4/branches/LMDZ4_V2_patch/libf/phylmd/ini_undefSTD.F

@@ -1 +1 @@
       SUBROUTINE ini_undefSTD(nlevSTD,itap,
-     $           ecrit_day,ecrit_mth,
+     $           dtime, ecrit_day,ecrit_mth,
      $           tnondef,tsumSTD)
       IMPLICIT none
@@ -33 +33 @@
       INTEGER nlevSTD, klevSTD, itap
       PARAMETER(klevSTD=17)
-      INTEGER ecrit_day,ecrit_mth
+071206
+      REAL dtime
+      REAL ecrit_day,ecrit_mth
 c
 c variables locales
@@ -45 +47 @@
 c initialisation variables journalieres en debut de journee
 c
-      IF(MOD(itap,ecrit_day).EQ.1.) THEN
+      IF(MOD(itap,NINT(ecrit_day/dtime)).EQ.1.) THEN
        DO k=1, nlevSTD
         DO i=1, klon
@@ -57 +59 @@
 c en debut de mois : nout=2
 c
-      IF(MOD(itap,ecrit_mth).EQ.1.) THEN
+      IF(MOD(itap,NINT(ecrit_mth/dtime)).EQ.1.) THEN
 c
        DO k=1, nlevSTD