Changeset 719 for LMDZ4/trunk/libf/phylmd/write_histday.h

Timestamp:

Oct 6, 2006, 12:34:58 PM (18 years ago)

Author:

lmdzadmin

Message:

Correction typage ecrit_day, ecrit_mth (*.h) et definition rh2m (physiq.F)
FH/IM

File:

• LMDZ4/trunk/libf/phylmd/write_histday.h (modified) (1 diff)

LMDZ4/trunk/libf/phylmd/write_histday.h

@@ -611 +611 @@
 c
       DO i=1, klon
-       zx_tmp_2d(i)=MIN(100.,rh2m(i)*100.)
-      ENDDO
-c
-      CALL gr_fi_ecrit(1,klon,iim,jjmp1, zx_tmp_2d,zx_tmp_2d)
+       zx_tmp_fi2d(i)=MIN(100.,rh2m(i)*100.)
+      ENDDO
+c
+      CALL gr_fi_ecrit(1,klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)
       CALL histwrite(nid_day,"rh2m",itau_w,zx_tmp_2d,
      .               iim*jjmp1,ndex2d)