Changeset 684 for LMDZ4/trunk/libf/phylmd/ini_histhf3d.h

Timestamp:

Apr 4, 2006, 5:00:40 PM (18 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_histhf3d.h (modified) (1 diff)

LMDZ4/trunk/libf/phylmd/ini_histhf3d.h

@@ -4 +4 @@
 c sorties hf 3d
 c
-cIM 130904     zstohf = dtime * REAL(NINT(86400./dtime*ecrit_hf))
-cIM 130904     zout = dtime * REAL(NINT(86400./dtime*ecrit_hf))
-cIM     zstohf = dtime * FLOAT(ecrit_hf)
-cIM     zout = dtime * FLOAT(ecrit_hf)
-        zstohf = dtime * FLOAT(ecrit_hf)
-        zout = dtime * FLOAT(ecrit_hf)
+        zstohf = ecrit_hf
+        zout = ecrit_hf
 c
 c       PRINT*, 'La frequence de sortie hf3d est de ', ecrit_hf