Changeset 348 for LMDZ.3.3/trunk/libf/bibio/initfluxsto.F

Timestamp:

Mar 19, 2002, 5:12:44 PM (22 years ago)

Author:

lmdz

Message:

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

File:

• LMDZ.3.3/trunk/libf/bibio/initfluxsto.F (modified) (2 diffs)

LMDZ.3.3/trunk/libf/bibio/initfluxsto.F

@@ -65 +65 @@
       integer uhoriid, vhoriid, thoriid, zvertiid,dhoriid,dvertiid
       integer ii,jj
-      integer zan
+      integer zan, idayref
       logical ok_sync
 C
@@ -79 +79 @@
 
       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