Changeset 2199 for LMDZ5/trunk/libf


Ignore:
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:
2 edited

Legend:

Unmodified
Added
Removed
  • LMDZ5/trunk/libf/bibio/xersve.F

    r2197 r2199  
    5959C   920501  Reformatted the REFERENCES section.  (WRB)
    6060C***END PROLOGUE  XERSVE
    61       PARAMETER (LENTAB=10)
     61      INTEGER,PARAMETER :: LENTAB=10
    6262      INTEGER LUN(5)
    6363      CHARACTER*(*) LIBRAR, SUBROU, MESSG
     
    6868      DATA KOUNTX/0/, NMSG/0/
    6969      INTEGER NERR,LEVEL,KONTRL
    70       INTEGER LENTAB, NERTAB, LEVTAB, KOUNT, KOUNTX, NMSG
     70      INTEGER NERTAB, LEVTAB, KOUNT, KOUNTX, NMSG
    7171      INTEGER KFLAG, ICOUNT, NUNIT, KUNIT, IUNIT, I1MACH, I
    7272C***FIRST EXECUTABLE STATEMENT  XERSVE
  • LMDZ5/trunk/libf/dyn3d_common/grid_noro.F

    r2197 r2199  
    5656      IMPLICIT NONE
    5757     
    58           parameter(iusn=2160,jusn=1080,iext=216, epsfra = 1.e-5)
     58      INTEGER,PARAMETER :: iusn=2160,jusn=1080,iext=216
     59      REAL,PARAMETER :: epsfra = 1.e-5
    5960#include "dimensions.h"
    6061          REAL xusn(iusn+2*iext),yusn(jusn+2)   
     
    8889      REAL a(2200),b(2200),c(1100),d(1100)
    8990      logical masque_lu
    90       INTEGER iusn, jusn, iext
    9191      INTEGER i,j,ii,jj
    92       REAL epsfra, xpi, rad, zdeltay, masque
     92      REAL xpi, rad, zdeltay, masque
    9393      REAL zdeltax, zlenx, zleny, xincr
    9494      REAL zbordnor, zbordsud, weighy, zbordest, zbordoue, weighx
Note: See TracChangeset for help on using the changeset viewer.