Changeset 1932 for LMDZ5/trunk/libf/dyn3d/pres2lev_mod.F90

Timestamp:

Jan 17, 2014, 7:03:16 PM (11 years ago)

Author:

lguez

Message:

Declaration of variables appearing in array bounds must be specified
before the declaration of the array.

Variables used in FCTTRE.h are declared in YOMCST.h and YOETHF.h so
YOMCST.h and YOETHF.h must be included before FCTTRE.h.

(There were compilation errors with gfortran and debugging options.)

File:

• LMDZ5/trunk/libf/dyn3d/pres2lev_mod.F90 (modified) (1 diff)

LMDZ5/trunk/libf/dyn3d/pres2lev_mod.F90

@@ -27 +27 @@
   INTEGER, INTENT(IN) :: lmn ! dimensions nouvelle couches
   
+  INTEGER, INTENT(IN) :: ni,nj ! nombre de point horizontal
   REAL, INTENT(IN) :: po(ni*nj,lmo) ! niveau de pression ancienne grille
   REAL, INTENT(IN) :: pn(ni*nj,lmn) ! niveau de pression nouvelle grille
-
-  INTEGER, INTENT(IN) :: ni,nj ! nombre de point horizontal
 
   REAL, INTENT(IN)  :: varo(ni*nj,lmo) ! var dans l'ancienne grille