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/initdynav.F

    r2 r348  
    6262      real rlong(iip1,jjp1), rlat(iip1,jjp1)
    6363      integer ii,jj
    64       integer zan
     64      integer zan, idayref
    6565C
    6666C  Initialisations
    … …  
    7474
    7575      zan = anne0
    76       CALL ymds2ju(zan, 1, 1, 0.0, zjulian)
    77       zjulian = zjulian + day0
     76      idayref = day0
     77      CALL ymds2ju(zan, 1, idayref, 0.0, zjulian)
    7878      tau0 = 0
    7979     
Note: See TracChangeset for help on using the changeset viewer.