Changeset 340

Timestamp:

Feb 26, 2002, 4:25:57 PM (23 years ago)

Author:

lmdzadmin

Message:

Coordonnees rectilineaires dans ioipsl
LF

File:

• LMDZ.3.3/branches/rel-LF/libf/phylmd/physiq.F (modified) (2 diffs)

LMDZ.3.3/branches/rel-LF/libf/phylmd/physiq.F

@@ -779 +779 @@
          ENDDO
          CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlat,zx_lat)
-         CALL histbeg("histday", iim,zx_lon, jjmp1,zx_lat,
+         CALL histbeg("histday", iim,zx_lon(:,1), jjmp1,zx_lat(1,:),
      .                 1,iim,1,jjmp1, 0, zjulian, dtime, 
      .                 nhori, nid_day)
@@ -1014 +1014 @@
          ENDDO
          CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlat,zx_lat)
-         CALL histbeg("histmth", iim,zx_lon, jjmp1,zx_lat,
+         CALL histbeg("histmth.nc", iim,zx_lon(:,1), jjmp1,zx_lat(1,:),
      .                 1,iim,1,jjmp1, 0, zjulian, dtime, 
      .                 nhori, nid_mth)