Changeset 684 for LMDZ4/trunk/libf/phylmd/ini_undefSTD.F

Timestamp:

Apr 4, 2006, 5:00:40 PM (19 years ago)

Author:

lmdzadmin

Message:

Ajout nouveaux flags (ip_ebil_phy, ok_slab_sicOBS) ds physiq.def +
Lecture freq. ecriture en nombre de jours
IM

File:

• LMDZ4/trunk/libf/phylmd/ini_undefSTD.F (modified) (4 diffs)

LMDZ4/trunk/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
+      REAL dtime
+      REAL ecrit_day,ecrit_mth
 c
 c variables locales
@@ -45 +46 @@
 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 +58 @@
 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