Changeset 350 for LMDZ.3.3/branches


Ignore:
Timestamp:
Mar 21, 2002, 4:00:18 PM (22 years ago)
Author:
lmdzadmin
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ.3.3/branches/rel-LF/libf/bibio/initdynav.F

    r295 r350  
    6363      real rlong(iip1,jjp1), rlat(iip1,jjp1)
    6464      integer ii,jj
    65       integer zan
     65      integer zan, dayref
    6666C
    6767C  Initialisations
     
    7575
    7676      zan = anne0
    77       CALL ymds2ju(zan, 1, 1, 0.0, zjulian)
    78       zjulian = zjulian + day0
    79       tau0 = 0
     77      dayref = day0
     78      CALL ymds2ju(zan, 1, dayref, 0.0, zjulian)
     79      tau0 = itau_dyn
    8080     
    8181      do jj = 1, jjp1
     
    8686      enddo
    8787       
    88       call histbeg(infile, iip1, rlong, jjp1, rlat,
     88      call histbeg(infile, iip1, rlong(:,1), jjp1, rlat(1,:),
    8989     .             1, iip1, 1, jjp1,
    9090     .             tau0, zjulian, tstep, thoriid, fileid)
Note: See TracChangeset for help on using the changeset viewer.