Changeset 453 for LMDZ.3.3/branches/rel-LF/libf/phylmd

Timestamp:

Feb 21, 2003, 4:33:19 PM (22 years ago)

Author:

lmdzadmin

Message:

Modif pour avoir la bonne origine des temps dans le calendrier
LF

File:

• LMDZ.3.3/branches/rel-LF/libf/phylmd/ini_histhf.h (modified) (2 diffs)

LMDZ.3.3/branches/rel-LF/libf/phylmd/ini_histhf.h

@@ -5 +5 @@
 
 cccIM    CALL ymds2ju(anne_ini, 1, 1, 0.0, zjulian)
-         CALL ymds2ju(annee_ref, 1, 1, 0.0, zjulian)
-         zjulian = zjulian + day_ini
+         idayref = day_ref
+         CALL ymds2ju(annee_ref, 1, idayref, 0.0, zjulian)
+
 c
          CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlon,zx_lon)
@@ -18 +19 @@
 cccIM      CALL histbeg("histhf", iim,zx_lon, jjmp1,zx_lat,
          CALL histbeg("histhf", iim,zx_lon(:,1), jjmp1,zx_lat(1,:),
-     .                 1,iim,1,jjmp1, 0, zjulian, dtime, 
+     .                 1,iim,1,jjmp1, itau_phy, zjulian, dtime, 
      .                 nhori, nid_hf)