Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ.3.3/trunk/libf/bibio/inithist.F

    r2 r348  
    6363      integer uhoriid, vhoriid, thoriid, zvertiid
    6464      integer ii,jj
    65       integer zan
     65      integer zan, idayref
    6666C
    6767C  Initialisations
    … …  
    7575
    7676      zan = anne0
    77       CALL ymds2ju(zan, 1, 1, 0.0, zjulian)
    78       zjulian = zjulian + day0
     77      idayref = day0
     78      CALL ymds2ju(zan, 1, idayref, 0.0, zjulian)
    7979      tau0 = 0
    8080     
Note: See TracChangeset for help on using the changeset viewer.