Changeset 349


Ignore:
Timestamp:
Mar 19, 2002, 5:22:02 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/branches/rel-1-0-patch/libf
Files:
6 edited

Legend:

Unmodified
Added
Removed
  • LMDZ.3.3/branches/rel-1-0-patch/libf/bibio/initdynav.F

    r253 r349  
     1C
     2C $Header$
     3C
    14      subroutine initdynav(infile,day0,anne0,tstep,t_ops,t_wrt
    25     .                     ,nq,fileid)
     
    6265      real rlong(iip1,jjp1), rlat(iip1,jjp1)
    6366      integer ii,jj
    64       integer zan
     67      integer zan, idayref
    6568C
    6669C  Initialisations
     
    7477
    7578      zan = anne0
    76       CALL ymds2ju(zan, 1, 1, 0.0, zjulian)
    77       zjulian = zjulian + day0
     79      idayref = day0
     80      CALL ymds2ju(zan, 1, idayref, 0.0, zjulian)
    7881      tau0 = 0
    7982     
  • LMDZ.3.3/branches/rel-1-0-patch/libf/bibio/initfluxsto.F

    r54 r349  
     1C
     2C $Header$
     3C
    14      subroutine initfluxsto
    25     .  (infile,tstep,t_ops,t_wrt,nq,
     
    6568      integer uhoriid, vhoriid, thoriid, zvertiid,dhoriid,dvertiid
    6669      integer ii,jj
    67       integer zan
     70      integer zan, idayref
    6871      logical ok_sync
    6972C
     
    7982
    8083      zan = anne_ini
    81       CALL ymds2ju(zan, 1, 1, 0.0, zjulian)
    82       zjulian = zjulian + day_ini
     84      idayref = day_ini
     85      CALL ymds2ju(zan, 1, idayref, 0.0, zjulian)
    8386      tau0 = 0
    8487       
  • LMDZ.3.3/branches/rel-1-0-patch/libf/bibio/inithist.F

    r253 r349  
     1C
     2C $Header$
     3C
    14      subroutine inithist(infile,day0,anne0,tstep,t_ops,t_wrt,nq,fileid,
    25     .                    filevid)
     
    6366      integer uhoriid, vhoriid, thoriid, zvertiid
    6467      integer ii,jj
    65       integer zan
     68      integer zan, idayref
    6669C
    6770C  Initialisations
     
    7578
    7679      zan = anne0
    77       CALL ymds2ju(zan, 1, 1, 0.0, zjulian)
    78       zjulian = zjulian + day0
     80      idayref = day0
     81      CALL ymds2ju(zan, 1, idayref, 0.0, zjulian)
    7982      tau0 = 0
    8083     
  • LMDZ.3.3/branches/rel-1-0-patch/libf/phylmd/initphysto.F

    r214 r349  
    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       
  • LMDZ.3.3/branches/rel-1-0-patch/libf/phylmd/physiq.F

    r289 r349  
    591591      INTEGER nhori, nvert
    592592      REAL zsto, zout, zjulian
     593      integer idayref
    593594
    594595      character*20 modname
     
    753754      IF (ok_journe) THEN
    754755c
    755          CALL ymds2ju(anne_ini, 1, 1, 0.0, zjulian)
    756          zjulian = zjulian + day_ini
     756         idayref = day_ini
     757         CALL ymds2ju(anne_ini, 1, idayref, 0.0, zjulian)
    757758c
    758759         CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlon,zx_lon)
     
    909910      IF (ok_mensuel) THEN
    910911c
    911          CALL ymds2ju(anne_ini, 1, 1, 0.0, zjulian)
    912          zjulian = zjulian + day_ini
     912         idayref = day_ini
     913         CALL ymds2ju(anne_ini, 1, idayref, 0.0, zjulian)
    913914c
    914915         CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlon,zx_lon)
     
    13021303      IF (ok_instan) THEN
    13031304c
    1304          CALL ymds2ju(anne_ini, 1, 1, 0.0, zjulian)
    1305          zjulian = zjulian + day_ini
     1305         idayref = day_ini
     1306         CALL ymds2ju(anne_ini, 1, idayref, 0.0, zjulian)
    13061307c
    13071308         CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlon,zx_lon)
  • LMDZ.3.3/branches/rel-1-0-patch/libf/phylmd/phytrac.F

    r209 r349  
    136136      INTEGER nhori, nvert
    137137      REAL zsto, zout, zjulian
     138      integer idayref
    138139      INTEGER nid_tra
    139140      SAVE nid_tra
     
    232233         itap=0
    233234C         
    234          CALL ymds2ju(anne_ini, 1, 1, 0.0, zjulian)
    235          zjulian = zjulian + day_ini
     235         idayref = day_ini
     236         CALL ymds2ju(anne_ini, 1, idayref, 0.0, zjulian)
    236237c
    237238         CALL gr_fi_ecrit(1,klon,iim,jjm+1,xlon,zx_lon)
Note: See TracChangeset for help on using the changeset viewer.