Changeset 719 for LMDZ4/trunk/libf/phylmd/write_paramLMDZ_phy.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_paramLMDZ_phy.h (modified) (1 diff)

LMDZ4/trunk/libf/phylmd/write_paramLMDZ_phy.h

@@ -301 +301 @@
      .               zx_tmp_2d,iim*jjmp1,ndex2d)
 c
-      zx_tmp_2d(1:iim,1:jjmp1)=FLOAT(ecrit_ins)
+      zx_tmp_2d(1:iim,1:jjmp1)=ecrit_ins
       CALL histwrite(nid_ctesGCM,"ecrit_ins",itau_w,
      .               zx_tmp_2d,iim*jjmp1,ndex2d)
 c
-      zx_tmp_2d(1:iim,1:jjmp1)=FLOAT(ecrit_hf)
+      zx_tmp_2d(1:iim,1:jjmp1)=ecrit_hf
       CALL histwrite(nid_ctesGCM,"ecrit_hf",itau_w,
      .               zx_tmp_2d,iim*jjmp1,ndex2d)
 c
-      zx_tmp_2d(1:iim,1:jjmp1)=FLOAT(ecrit_day)
+      zx_tmp_2d(1:iim,1:jjmp1)=ecrit_day
       CALL histwrite(nid_ctesGCM,"ecrit_day",itau_w,
      .               zx_tmp_2d,iim*jjmp1,ndex2d)
 c
-      zx_tmp_2d(1:iim,1:jjmp1)=FLOAT(ecrit_mth)
+      zx_tmp_2d(1:iim,1:jjmp1)=ecrit_mth
       CALL histwrite(nid_ctesGCM,"ecrit_mth",itau_w,
      .               zx_tmp_2d,iim*jjmp1,ndex2d)
 c
-      zx_tmp_2d(1:iim,1:jjmp1)=FLOAT(ecrit_tra)
+      zx_tmp_2d(1:iim,1:jjmp1)=ecrit_tra
       CALL histwrite(nid_ctesGCM,"ecrit_tra",itau_w,
      .               zx_tmp_2d,iim*jjmp1,ndex2d)
 c
-      zx_tmp_2d(1:iim,1:jjmp1)=FLOAT(ecrit_reg)
+      zx_tmp_2d(1:iim,1:jjmp1)=ecrit_reg
       CALL histwrite(nid_ctesGCM,"ecrit_reg",itau_w,
      .               zx_tmp_2d,iim*jjmp1,ndex2d)