Changeset 353 for LMDZ.3.3/branches/rel-LF/libf/bibio/inithist.F

Timestamp:

Mar 21, 2002, 4:09:32 PM (22 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/bibio/inithist.F (modified) (4 diffs)

LMDZ.3.3/branches/rel-LF/libf/bibio/inithist.F

@@ -64 +64 @@
       integer uhoriid, vhoriid, thoriid, zvertiid
       integer ii,jj
-      integer zan
+      integer zan, dayref
 C
 C  Initialisations
@@ -76 +76 @@
 
       zan = anne0
-      CALL ymds2ju(zan, 1, 1, 0.0, zjulian)
-      zjulian = zjulian + day0
-      tau0 = 0
+      dayref = day0
+      CALL ymds2ju(zan, 1, dayref, 0.0, zjulian)
+      tau0 = itau_dyn
       
       do jj = 1, jjp1
@@ -87 +87 @@
       enddo
        
-      call histbeg(infile, iip1, rlong, jjp1, rlat,
+      call histbeg(infile, iip1, rlong(:,1), jjp1, rlat(1,:),
      .             1, iip1, 1, jjp1,
      .             tau0, zjulian, tstep, uhoriid, fileid)
@@ -102 +102 @@
       enddo
 
-      call histbeg('dyn_histv.nc', iip1, rlong, jjm, rlat,
+      call histbeg('dyn_histv.nc', iip1, rlong(:,1), jjm, rlat(1,:),
      .             1, iip1, 1, jjm,
      .             tau0, zjulian, tstep, vhoriid, filevid)