Changeset 349 for LMDZ.3.3/branches/rel-1-0-patch/libf/phylmd

Timestamp:

Mar 19, 2002, 5:22:02 PM (23 years ago)

Author:

lmdz

Message:

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

Location:

LMDZ.3.3/branches/rel-1-0-patch/libf/phylmd

Files:

• initphysto.F (modified) (2 diffs)
• physiq.F (modified) (4 diffs)
• phytrac.F (modified) (2 diffs)

LMDZ.3.3/branches/rel-1-0-patch/libf/phylmd/initphysto.F

@@ -68 +68 @@
       integer uhoriid, vhoriid, thoriid, zvertiid
       integer ii,jj
-      integer zan
+      integer zan, idayref
       logical ok_sync
       REAL zx_lon(iim,jjm+1), zx_lat(iim,jjm+1)
@@ -85 +85 @@
 
       zan = anneeref
-      CALL ymds2ju(zan, 1, 1, 0.0, zjulian)
-      zjulian = zjulian + dayref
+      idayref = dayref
+      CALL ymds2ju(zan, 1, idayref, 0.0, zjulian)
       tau0 = 0
         

LMDZ.3.3/branches/rel-1-0-patch/libf/phylmd/physiq.F

@@ -591 +591 @@
       INTEGER nhori, nvert
       REAL zsto, zout, zjulian
+      integer idayref
 
       character*20 modname
@@ -753 +754 @@
       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)
@@ -909 +910 @@
       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)
@@ -1302 +1303 @@
       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)

LMDZ.3.3/branches/rel-1-0-patch/libf/phylmd/phytrac.F

@@ -136 +136 @@
       INTEGER nhori, nvert
       REAL zsto, zout, zjulian
+      integer idayref
       INTEGER nid_tra
       SAVE nid_tra
@@ -232 +233 @@
          itap=0
 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,jjm+1,xlon,zx_lon)