Changeset 784 for LMDZ4/trunk

Timestamp:

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

Author:

Laurent Fairhead

Message:

Modifications pour la compilation avec g95 JG
LF

Location:

LMDZ4/trunk/libf

Files:

• dyn3d/inter_barx.F (modified) (1 diff)
• dyn3d/write_paramLMDZ_dyn.h (modified) (3 diffs)
• phylmd/write_paramLMDZ_phy.h (modified) (1 diff)

LMDZ4/trunk/libf/dyn3d/inter_barx.F

@@ -81 +81 @@
 
       DO idat = 1, idatmax
-       xxd(idat) = AMOD( xxd(idat) - xim0, 360. )
+       xxd(idat) = MOD( xxd(idat) - xim0, 360. )
        fdd(idat) = fdat (idat)
       ENDDO

LMDZ4/trunk/libf/dyn3d/write_paramLMDZ_dyn.h

@@ -120 +120 @@
      .               zx_tmp_2d,iip1*jjp1,ndex2d)
 c
-      zx_tmp_2d(1:iip1,1:jjp1)=FLOAT(ecritphy)
+      zx_tmp_2d(1:iip1,1:jjp1)=ecritphy
       CALL histwrite(nid_ctesGCM, "ecritphy", itau_dyn,
      .               zx_tmp_2d,iip1*jjp1,ndex2d)
@@ -172 +172 @@
      .               zx_tmp_2d,iip1*jjp1,ndex2d)
 c
-      zx_tmp_2d(1:iip1,1:jjp1)=FLOAT(nbapp_rad)
+      zx_tmp_2d(1:iip1,1:jjp1)=nbapp_rad
       CALL histwrite(nid_ctesGCM, "nbapp_rad", itau_dyn,
      .               zx_tmp_2d,iip1*jjp1,ndex2d)
 c
-      zx_tmp_2d(1:iip1,1:jjp1)=FLOAT(iflag_con)
+      zx_tmp_2d(1:iip1,1:jjp1)=iflag_con
       CALL histwrite(nid_ctesGCM, "iflag_con", itau_dyn,
      .               zx_tmp_2d,iip1*jjp1,ndex2d)
@@ -228 +228 @@
      .               zx_tmp_2d,iip1*jjp1,ndex2d)
 c
-      zx_tmp_2d(1:iip1,1:jjp1)=FLOAT(ip_ebil_dyn)
+      zx_tmp_2d(1:iip1,1:jjp1)=ip_ebil_dyn
       CALL histwrite(nid_ctesGCM, "ip_ebil_dyn", itau_dyn,
      .               zx_tmp_2d,iip1*jjp1,ndex2d)

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)