Changeset 350 for LMDZ.3.3/branches/rel-LF/libf/bibio

Timestamp:

Mar 21, 2002, 4:00:18 PM (23 years ago)

Author:

lmdzadmin

Message:

* empty log message *

File:

• LMDZ.3.3/branches/rel-LF/libf/bibio/initdynav.F (modified) (3 diffs)

LMDZ.3.3/branches/rel-LF/libf/bibio/initdynav.F

@@ -63 +63 @@
       real rlong(iip1,jjp1), rlat(iip1,jjp1)
       integer ii,jj
-      integer zan
+      integer zan, dayref
 C
 C  Initialisations
@@ -75 +75 @@
 
       zan = anne0
-      CALL ymds2ju(zan, 1, 1, 0.0, zjulian)
-      zjulian = zjulian + day0
-      tau0 = 0
+      dayref = day0
+      CALL ymds2ju(zan, 1, dayref, 0.0, zjulian)
+      tau0 = itau_dyn
       
       do jj = 1, jjp1
@@ -86 +86 @@
       enddo
        
-      call histbeg(infile, iip1, rlong, jjp1, rlat,
+      call histbeg(infile, iip1, rlong(:,1), jjp1, rlat(1,:),
      .             1, iip1, 1, jjp1,
      .             tau0, zjulian, tstep, thoriid, fileid)