Changeset 353 for LMDZ.3.3/branches/rel-LF/libf/bibio/writehist.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/writehist.F (modified) (7 diffs)

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

@@ -63 +63 @@
       character*3 str
       logical ok_sync
+      integer itau_w
 C
 C  Initialisations
@@ -71 +72 @@
       ndex2d = 0
       ok_sync =.TRUE.
+      itau_w = itau_dyn + time
 C
 C  Appels a histwrite pour l'ecriture des variables a sauvegarder
@@ -76 +78 @@
 C  Vents U
 C
-      call histwrite(histid, 'ucov', time, ucov, 
+      call histwrite(histid, 'ucov', itau_w, ucov, 
      .               iip1*jjp1*llm, ndexu)
 
@@ -82 +84 @@
 C  Vents V
 C
-      call histwrite(histvid, 'vcov', time, vcov, 
+      call histwrite(histvid, 'vcov', itau_w, vcov, 
      .               iip1*jjm*llm, ndexv)
 
@@ -88 +90 @@
 C  Temperature potentielle
 C
-      call histwrite(histid, 'teta', time, teta, 
+      call histwrite(histid, 'teta', itau_w, teta, 
      .                iip1*jjp1*llm, ndexu)
 C
 C  Geopotentiel
 C
-      call histwrite(histid, 'phi', time, phi, 
+      call histwrite(histid, 'phi', itau_w, phi, 
      .                iip1*jjp1*llm, ndexu)
 C
@@ -105 +107 @@
             WRITE(str(2:3),'(i2.2)') iq
           ENDIF
-          call histwrite(histid, str, time, q(:,:,iq), 
+          call histwrite(histid, str, itau_w, q(:,:,iq), 
      .                   iip1*jjp1*llm, ndexu)
         enddo
@@ -112 +114 @@
 C  Masse
 C
-      call histwrite(histid, 'masse', time, masse, iip1*jjp1, ndex2d)
+      call histwrite(histid, 'masse', itau_w, masse, iip1*jjp1, ndex2d)
 C
 C  Pression au sol
 C
-      call histwrite(histid, 'ps', time, ps, iip1*jjp1, ndex2d)
+      call histwrite(histid, 'ps', itau_w, ps, iip1*jjp1, ndex2d)
 C
 C  Geopotentiel au sol
 C
-      call histwrite(histid, 'phis', time, phis, iip1*jjp1, ndex2d)
+      call histwrite(histid, 'phis', itau_w, phis, iip1*jjp1, ndex2d)
 C
 C  Fin