Changeset 2199 for LMDZ5/trunk/libf/dyn3d_common

Timestamp:

Feb 9, 2015, 9:59:05 AM (9 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

File:

• LMDZ5/trunk/libf/dyn3d_common/grid_noro.F (modified) (2 diffs)

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