Changeset 2199 for LMDZ5/trunk/libf

Timestamp:

Feb 9, 2015, 9:59:05 AM (10 years ago)

Author:

Ehouarn Millour

Message:

Follow-up of r2197; some compilers (e.g. ifort) impose that parameter types be declared before or at the same time as the associated values.
EM

Location:

LMDZ5/trunk/libf

Files:

• bibio/xersve.F (modified) (2 diffs)
• dyn3d_common/grid_noro.F (modified) (2 diffs)

LMDZ5/trunk/libf/bibio/xersve.F

@@ -59 +59 @@
 C   920501  Reformatted the REFERENCES section.  (WRB)
 C***END PROLOGUE  XERSVE
-      PARAMETER (LENTAB=10)
+      INTEGER,PARAMETER :: LENTAB=10
       INTEGER LUN(5)
       CHARACTER*(*) LIBRAR, SUBROU, MESSG
@@ -68 +68 @@
       DATA KOUNTX/0/, NMSG/0/
       INTEGER NERR,LEVEL,KONTRL
-      INTEGER LENTAB, NERTAB, LEVTAB, KOUNT, KOUNTX, NMSG
+      INTEGER NERTAB, LEVTAB, KOUNT, KOUNTX, NMSG
       INTEGER KFLAG, ICOUNT, NUNIT, KUNIT, IUNIT, I1MACH, I
 C***FIRST EXECUTABLE STATEMENT  XERSVE

LMDZ5/trunk/libf/dyn3d_common/grid_noro.F

@@ -56 +56 @@
       IMPLICIT NONE 
       
-          parameter(iusn=2160,jusn=1080,iext=216, epsfra = 1.e-5)
+      INTEGER,PARAMETER :: iusn=2160,jusn=1080,iext=216
+      REAL,PARAMETER :: epsfra = 1.e-5
 #include "dimensions.h"
           REAL xusn(iusn+2*iext),yusn(jusn+2)   
@@ -88 +89 @@
       REAL a(2200),b(2200),c(1100),d(1100)
       logical masque_lu
-      INTEGER iusn, jusn, iext
       INTEGER i,j,ii,jj
-      REAL epsfra, xpi, rad, zdeltay, masque
+      REAL xpi, rad, zdeltay, masque
       REAL zdeltax, zlenx, zleny, xincr
       REAL zbordnor, zbordsud, weighy, zbordest, zbordoue, weighx