Changeset 349 for LMDZ.3.3/branches/rel-1-0-patch/libf/bibio

Timestamp:

Mar 19, 2002, 5:22:02 PM (23 years ago)

Author:

lmdz

Message:

Regle le probleme de decalage de 1 jour au debut de chaque simulation
LF

Location:

LMDZ.3.3/branches/rel-1-0-patch/libf/bibio

Files:

• initdynav.F (modified) (3 diffs)
• initfluxsto.F (modified) (3 diffs)
• inithist.F (modified) (3 diffs)

LMDZ.3.3/branches/rel-1-0-patch/libf/bibio/initdynav.F

@@ +1 @@
+C
+C $Header$
+C
       subroutine initdynav(infile,day0,anne0,tstep,t_ops,t_wrt
      .                     ,nq,fileid)
@@ -62 +65 @@
       real rlong(iip1,jjp1), rlat(iip1,jjp1)
       integer ii,jj
-      integer zan
+      integer zan, idayref
 C
 C  Initialisations
@@ -74 +77 @@
 
       zan = anne0
-      CALL ymds2ju(zan, 1, 1, 0.0, zjulian)
-      zjulian = zjulian + day0
+      idayref = day0
+      CALL ymds2ju(zan, 1, idayref, 0.0, zjulian)
       tau0 = 0
       

LMDZ.3.3/branches/rel-1-0-patch/libf/bibio/initfluxsto.F

@@ +1 @@
+C
+C $Header$
+C
       subroutine initfluxsto
      .  (infile,tstep,t_ops,t_wrt,nq,
@@ -65 +68 @@
       integer uhoriid, vhoriid, thoriid, zvertiid,dhoriid,dvertiid
       integer ii,jj
-      integer zan
+      integer zan, idayref
       logical ok_sync
 C
@@ -79 +82 @@
 
       zan = anne_ini
-      CALL ymds2ju(zan, 1, 1, 0.0, zjulian)
-      zjulian = zjulian + day_ini
+      idayref = day_ini
+      CALL ymds2ju(zan, 1, idayref, 0.0, zjulian)
       tau0 = 0
         

LMDZ.3.3/branches/rel-1-0-patch/libf/bibio/inithist.F

@@ +1 @@
+C
+C $Header$
+C
       subroutine inithist(infile,day0,anne0,tstep,t_ops,t_wrt,nq,fileid,
      .                    filevid)
@@ -63 +66 @@
       integer uhoriid, vhoriid, thoriid, zvertiid
       integer ii,jj
-      integer zan
+      integer zan, idayref
 C
 C  Initialisations
@@ -75 +78 @@
 
       zan = anne0
-      CALL ymds2ju(zan, 1, 1, 0.0, zjulian)
-      zjulian = zjulian + day0
+      idayref = day0
+      CALL ymds2ju(zan, 1, idayref, 0.0, zjulian)
       tau0 = 0