Changeset 784 for LMDZ4/trunk/libf/phylmd/write_paramLMDZ_phy.h

Timestamp:

Jun 19, 2007, 12:08:56 PM (17 years ago)

Author:

Laurent Fairhead

Message:

Modifications pour la compilation avec g95 JG
LF

File:

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

LMDZ4/trunk/libf/phylmd/write_paramLMDZ_phy.h

@@ -303 +303 @@
      .               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)