Ignore:
Timestamp:
Mar 19, 2002, 5:12:44 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/trunk/libf/bibio
Files:
3 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     

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

    r54 r348  
    6565      integer uhoriid, vhoriid, thoriid, zvertiid,dhoriid,dvertiid
    6666      integer ii,jj
    67       integer zan
     67      integer zan, idayref
    6868      logical ok_sync
    6969C
    … …  
    7979
    8080      zan = anne_ini
    81       CALL ymds2ju(zan, 1, 1, 0.0, zjulian)
    82       zjulian = zjulian + day_ini
     81      idayref = day_ini
     82      CALL ymds2ju(zan, 1, idayref, 0.0, zjulian)
    8383      tau0 = 0
    8484       

  • 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.