Changeset 353 for LMDZ.3.3/branches/rel-LF/libf/phylmd/phytrac.F

Timestamp:

Mar 21, 2002, 4:09:32 PM (23 years ago)

Author:

lmdzadmin

Message:

2 changements pour les fichiers histoire:

• utilisation de l'entree "rectilineaire" de IOIPSL pour ne plus avoir

a

lancer ncregular a chaque fois

• le calendrier des fichiers histoire est maintenant base sur la date d'initialisation de la simulation plutot que sur la date de depart du

job

en cours

LF

File:

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

LMDZ.3.3/branches/rel-LF/libf/phylmd/phytrac.F

@@ -235 +235 @@
          itap=0
 C         
-         CALL ymds2ju(anne_ini, 1, 1, 0.0, zjulian)
-         zjulian = zjulian + day_ini
+         CALL ymds2ju(annee_ref, 1, 1, 0.0, zjulian)
+         zjulian = zjulian + day_ref
 c
          CALL gr_fi_ecrit(1,klon,iim,jjm+1,xlon,zx_lon)
@@ -247 +247 @@
 c         ENDDO
          CALL gr_fi_ecrit(1,klon,iim,jjm+1,xlat,zx_lat)
-         CALL histbeg("histrac", iim,zx_lon, jjm+1,zx_lat,
-     .                 1,iim,1,jjm+1, 0, zjulian, pdtphys,
+         CALL histbeg("histrac", iim,zx_lon(:,1), jjm+1,zx_lat(1,:),
+     .                 1,iim,1,jjm+1, itau_phy, zjulian, pdtphys,
      .                 nhori, nid_tra)
          CALL histvert(nid_tra, "presnivs", "Vertical levels", "mb",