Changeset 353 for LMDZ.3.3/branches/rel-LF/libf/bibio/writephys.F90

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/writephys.F90 (modified) (2 diffs)

LMDZ.3.3/branches/rel-LF/libf/bibio/writephys.F90

@@ -93 +93 @@
   real, dimension(llm) :: zlev
   real                 :: date0, dtime
+  integer              :: itau_deb
 !
 ! Variables locales
@@ -121 +122 @@
 ! Initialisation du fichier
 !
-  call histbeg(nom_fichier, iim, temp_lon, jjm, temp_lat, &
-     &                 1, iim, 1, jjm, 0, date0, dtime, &
+  call histbeg(nom_fichier, iim, temp_lon(:,1), jjm, temp_lat(1,:), &
+     &                 1, iim, 1, jjm, itau_deb, date0, dtime, &
      &                 nhori, file_id)
   call histvert(file_id, "presnivs", "Vertical levels", "mb", &