Changeset 723 for LMDZ4/branches/LMDZ4_V2_patch/libf/phylmd/ini_histhf.h

Timestamp:

Oct 6, 2006, 1:06:22 PM (18 years ago)

Author:

lmdzadmin

Message:

On passe a des ecrit_ins, ecrit_day, etc en nombre de jours (REAL)
On lit frequence ecriture traceurs ecrit_trac dans physiq.def
Correction petits pbs ini_histrac.h
IM

File:

• LMDZ4/branches/LMDZ4_V2_patch/libf/phylmd/ini_histhf.h (modified) (2 diffs)

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

@@ -5 +5 @@
       IF (ok_hf) THEN
 c
-       zstohf = dtime * FLOAT(ecrit_hf)
+       zstohf = dtime * ecrit_hf
        zstophy = dtime
-       zstoday = dtime * FLOAT(ecrit_day)
-       zout = dtime * FLOAT(ecrit_hf)
+       zstoday = dtime * ecrit_day
+       zout = dtime * ecrit_hf
 c
          idayref = day_ref
@@ -190 +190 @@
       ENDIF !lev_histhf.GE.4
 c
+c
       ELSE IF(type_run.EQ."AMIP".OR.type_run.EQ."CFMI") THEN
 c