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

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

@@ -201 +201 @@
       SAVE debugindex
       DATA debugindex/.false./
+      integer idayref
 #include "temps.h"
       
@@ -208 +209 @@
 ! initialisation sorties netcdf
 !
-          CALL ymds2ju(anne_ini, 1, 1, 0.0, zjulian)
-          zjulian = zjulian + day_ini
+          idayref = day_ini
+          CALL ymds2ju(annee_ref, 1, idayref, 0.0, zjulian)
           CALL gr_fi_ecrit(1,klon,iim,jjm+1,rlon,zx_lon)
           DO i = 1, iim
@@ -217 +218 @@
           CALL gr_fi_ecrit(1,klon,iim,jjm+1,rlat,zx_lat)
           cldebug='sous_index'
-          CALL histbeg(cldebug, iim,zx_lon,jjm+1,zx_lat,1,iim,1,jjm
-     $        +1, 0,zjulian,dtime,nhoridbg,nidbg) 
+          CALL histbeg(cldebug, iim,zx_lon(:,1),jjm+1,zx_lat(1,:),
+     $        1,iim,1,jjm
+     $        +1, itau_phy,zjulian,dtime,nhoridbg,nidbg) 
 ! no vertical axis
           cl_surf(1)='ter'