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

LMDZ.3.3/branches/rel-LF/libf/dyn3d/dynredem.F

@@ -1 +1 @@
 c $Header$
 c
-      SUBROUTINE dynredem0(fichnom,idayref,anneeref,phis,nq)
+      SUBROUTINE dynredem0(fichnom,iday_end,phis,nq)
       USE IOIPSL
       IMPLICIT NONE
@@ -23 +23 @@
 c   Arguments:
 c   ----------
-      INTEGER*4 idayref,anneeref
+      INTEGER iday_end
       REAL phis(ip1jmp1)
       CHARACTER*(*) fichnom
@@ -56 +56 @@
       modname='dynredem'
 
-      call ymds2ju(anneeref,1,idayref,0.0, zjulian)
-      call ju2ymds(zjulian, yyears0,mmois0,jjour0,hours)
+      call ymds2ju(annee_ref, 1, iday_end, 0.0, zjulian)
+      call ju2ymds(zjulian, yyears0, mmois0, jjour0, hours)
         
 
@@ -66 +66 @@
        tab_cntrl(2)  = FLOAT(jjm)
        tab_cntrl(3)  = FLOAT(llm)
-       tab_cntrl(4)  = FLOAT(idayref)
-       tab_cntrl(5)  = FLOAT(anneeref)
+       tab_cntrl(4)  = FLOAT(day_ref)
+       tab_cntrl(5)  = FLOAT(annee_ref)
        tab_cntrl(6)  = rad
        tab_cntrl(7)  = omeg
@@ -106 +106 @@
        IF( ysinus )  tab_cntrl(27) = 1.
       ENDIF
+
+       tab_cntrl(30) = FLOAT(iday_end)
+       tab_cntrl(31) = FLOAT(itau_dyn + itaufin)
 c
 c    .........................................................
@@ -378 +381 @@
       ierr = NF_CLOSE(nid) ! fermer le fichier
 
-      PRINT*,'iim,jjm,llm,idayref',iim,jjm,llm,idayref
+      PRINT*,'iim,jjm,llm,iday_end',iim,jjm,llm,iday_end
       PRINT*,'rad,omeg,g,cpp,kappa',
      ,        rad,omeg,g,cpp,kappa