Changeset 784 for LMDZ4/trunk/libf/dyn3d

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/dyn3d

Files:

• inter_barx.F (modified) (1 diff)
• write_paramLMDZ_dyn.h (modified) (3 diffs)

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)