Changeset 348 for LMDZ.3.3/trunk/libf/phylmd/physiq.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/physiq.F (modified) (4 diffs)

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

@@ -632 +632 @@
       INTEGER nhori, nvert
       REAL zsto, zout, zjulian
+      integer idayref
 
       character*20 modname
@@ -794 +795 @@
       IF (ok_journe) THEN
 c
-         CALL ymds2ju(anne_ini, 1, 1, 0.0, zjulian)
-         zjulian = zjulian + day_ini
+         idayref = day_ini
+         CALL ymds2ju(anne_ini, 1, idayref, 0.0, zjulian)
 c
          CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlon,zx_lon)
@@ -950 +951 @@
       IF (ok_mensuel) THEN
 c
-         CALL ymds2ju(anne_ini, 1, 1, 0.0, zjulian)
-         zjulian = zjulian + day_ini
+         idayref = day_ini
+         CALL ymds2ju(anne_ini, 1, idayref, 0.0, zjulian)
 c
          CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlon,zx_lon)
@@ -1343 +1344 @@
       IF (ok_instan) THEN
 c
-         CALL ymds2ju(anne_ini, 1, 1, 0.0, zjulian)
-         zjulian = zjulian + day_ini
+         idayref = day_ini
+         CALL ymds2ju(anne_ini, 1, idayref, 0.0, zjulian)
 c
          CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlon,zx_lon)