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/phylmd/initphysto.F

    r214 r348  
    6868      integer uhoriid, vhoriid, thoriid, zvertiid
    6969      integer ii,jj
    70       integer zan
     70      integer zan, idayref
    7171      logical ok_sync
    7272      REAL zx_lon(iim,jjm+1), zx_lat(iim,jjm+1)
    … …  
    8585
    8686      zan = anneeref
    87       CALL ymds2ju(zan, 1, 1, 0.0, zjulian)
    88       zjulian = zjulian + dayref
     87      idayref = dayref
     88      CALL ymds2ju(zan, 1, idayref, 0.0, zjulian)
    8989      tau0 = 0
    9090       
Note: See TracChangeset for help on using the changeset viewer.