Changeset 348 for LMDZ.3.3/trunk/libf/phylmd/phytrac.F

Timestamp:

Mar 19, 2002, 5:12:44 PM (22 years ago)

Author:

lmdz

Message:

Regle le probleme de decalage de 1 jour au debut de chaque simulation
LF

File:

• LMDZ.3.3/trunk/libf/phylmd/phytrac.F (modified) (2 diffs)

LMDZ.3.3/trunk/libf/phylmd/phytrac.F

@@ -210 +210 @@
       INTEGER nhori, nvert, nverta, nvertb, nverts
       REAL zsto, zout, zjulian
+      integer idayref
       INTEGER nid_tra
       SAVE nid_tra
@@ -331 +332 @@
 
 C         
-         CALL ymds2ju(anne_ini, 1, 1, 0.0, zjulian)
+         idayref = 1
+         CALL ymds2ju(anne_ini, 1, idayref, 0.0, zjulian)
          itra = NINT(FLOAT(day_ini)*86400./pdtphys)
          itap = NINT(FLOAT(day_ini)*86400./pdtphys)