Changeset 452 for LMDZ.3.3/branches/rel-LF/libf/dyn3d

Timestamp:

Feb 21, 2003, 4:32:13 PM (22 years ago)

Author:

lmdzadmin

Message:

Modif pour avoir la bonne origine du calendrier
LF

File:

• LMDZ.3.3/branches/rel-LF/libf/dyn3d/bilan_dyn.F (modified) (4 diffs)

LMDZ.3.3/branches/rel-LF/libf/dyn3d/bilan_dyn.F

@@ -16 +16 @@
 #include "comvert.h"
 #include "comgeom2.h"
+#include "temps.h"
 
 c====================================================================
@@ -130 +131 @@
       character*10 infile
 
-      integer*4 day0, anne0
       integer fileid
       integer thoriid, zvertiid
@@ -144 +144 @@
       character*10 ctrac
       integer ii,jj
-      integer zan
+      integer zan, dayref
 C
       real rlong(jjm),rlatg(jjm)
@@ -202 +202 @@
       infile='dynzon'
 
-      day0=0
-      zan = 0.
-
-      CALL ymds2ju(zan, 1, 1, 0.0, zjulian)
-      zjulian = zjulian + day0
-      tau0 = 0
+      zan = annee_ref
+      dayref = day_ref
+      CALL ymds2ju(zan, 1, dayref, 0.0, zjulian)
+      tau0 = itau_dyn
       
       rlong=0.