Changeset 1339 for LMDZ4/branches/LMDZ4V5.0-dev/libf/dyn3d

Timestamp:

Apr 7, 2010, 10:06:42 AM (15 years ago)

Author:

lguez

Message:

Use generic rather than specific names for intrinsic procedures.

File:

• LMDZ4/branches/LMDZ4V5.0-dev/libf/dyn3d/inter_barxy_m.F90 (modified) (2 diffs)

LMDZ4/branches/LMDZ4V5.0-dev/libf/dyn3d/inter_barxy_m.F90

@@ -118 +118 @@
     IMPLICIT NONE
 
-    REAL, intent(in):: dlonid(:)
-    real, intent(in):: fdat(:)
-    real, intent(in):: rlonimod(:)
+    REAL, intent(in):: dlonid(:) ! dim(idatmax)
+    real, intent(in):: fdat(:) ! dim(idatmax)
+    real, intent(in):: rlonimod(:) ! dim(imodmax)
 
     real inter_barx(size(rlonimod))
@@ -176 +176 @@
 
     DO idat = 1, idatmax
-       xxd(idat) = AMOD( xxd(idat) - xim0, 360. )
+       xxd(idat) = MOD( xxd(idat) - xim0, 360. )
        fdd(idat) = fdat (idat)
     ENDDO