Changeset 1932


Ignore:
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.)

Location:
LMDZ5/trunk/libf
Files:
5 edited

Legend:

Unmodified
Added
Removed

  • LMDZ5/trunk/libf/dyn3d/pres2lev_mod.F90

    r1907 r1932  
    2727  INTEGER, INTENT(IN) :: lmn ! dimensions nouvelle couches
    2828 
     29  INTEGER, INTENT(IN) :: ni,nj ! nombre de point horizontal
    2930  REAL, INTENT(IN) :: po(ni*nj,lmo) ! niveau de pression ancienne grille
    3031  REAL, INTENT(IN) :: pn(ni*nj,lmn) ! niveau de pression nouvelle grille
    31 
    32   INTEGER, INTENT(IN) :: ni,nj ! nombre de point horizontal
    3332
    3433  REAL, INTENT(IN)  :: varo(ni*nj,lmo) ! var dans l'ancienne grille

  • LMDZ5/trunk/libf/phylmd/coef_diff_turb_mod.F90

    r1907 r1932  
    210210!======================================================================
    211211    INCLUDE "YOETHF.h"
     212    INCLUDE "YOMCST.h"
    212213    INCLUDE "FCTTRE.h"
    213214    INCLUDE "iniprint.h"
    214215    INCLUDE "compbl.h"
    215     INCLUDE "YOMCST.h"
    216216!
    217217! Arguments:

  • LMDZ5/trunk/libf/phylmd/mod_phys_lmdz_mpi_transfert.F90

    r1907 r1932  
    12611261    IMPLICIT NONE
    12621262   
     1263    INTEGER,INTENT(IN) :: nb
    12631264    INTEGER,DIMENSION(nb),INTENT(INOUT) :: Var
    1264     INTEGER,INTENT(IN) :: nb
    12651265   
    12661266#ifdef CPP_MPI
    … …  
    12841284    IMPLICIT NONE
    12851285   
     1286    INTEGER,INTENT(IN) :: nb
    12861287    REAL,DIMENSION(nb),INTENT(INOUT) :: Var
    1287     INTEGER,INTENT(IN) :: nb
    12881288   
    12891289#ifdef CPP_MPI
    … …  
    13071307    IMPLICIT NONE
    13081308   
     1309    INTEGER,INTENT(IN) :: nb
    13091310    LOGICAL,DIMENSION(nb),INTENT(INOUT) :: Var
    1310     INTEGER,INTENT(IN) :: nb
    13111311   
    13121312#ifdef CPP_MPI
    … …  
    16331633#endif
    16341634   
     1635    INTEGER,INTENT(IN) :: nb
    16351636    INTEGER,DIMENSION(nb),INTENT(IN) :: VarIn
    16361637    INTEGER,DIMENSION(nb),INTENT(OUT) :: VarOut   
    1637     INTEGER,INTENT(IN) :: nb
    16381638    INTEGER :: ierr
    16391639   
    … …  
    16601660#endif
    16611661   
     1662    INTEGER,INTENT(IN) :: nb
    16621663    REAL,DIMENSION(nb),INTENT(IN) :: VarIn
    16631664    REAL,DIMENSION(nb),INTENT(OUT) :: VarOut   
    1664     INTEGER,INTENT(IN) :: nb
    16651665    INTEGER :: ierr
    16661666 

  • LMDZ5/trunk/libf/phylmd/mod_phys_lmdz_omp_transfert.F90

    r1907 r1932  
    740740  IMPLICIT NONE
    741741   
     742    INTEGER,INTENT(IN) :: Nb
    742743    INTEGER,DIMENSION(Nb),INTENT(INOUT) :: Var
    743744    INTEGER,DIMENSION(Nb),INTENT(INOUT) :: Buff
    744     INTEGER,INTENT(IN) :: Nb
    745745
    746746    INTEGER :: i
    … …  
    764764  IMPLICIT NONE
    765765   
     766    INTEGER,INTENT(IN) :: Nb
    766767    REAL,DIMENSION(Nb),INTENT(INOUT) :: Var
    767768    REAL,DIMENSION(Nb),INTENT(INOUT) :: Buff
    768     INTEGER,INTENT(IN) :: Nb
    769769
    770770    INTEGER :: i
    … …  
    787787  IMPLICIT NONE
    788788   
     789    INTEGER,INTENT(IN) :: Nb
    789790    LOGICAL,DIMENSION(Nb),INTENT(INOUT) :: Var
    790791    LOGICAL,DIMENSION(Nb),INTENT(INOUT) :: Buff
    791     INTEGER,INTENT(IN) :: Nb
    792792 
    793793    INTEGER :: i

  • LMDZ5/trunk/libf/phylmd/pbl_surface_mod.F90

    r1919 r1932  
    263263    INCLUDE "YOMCST.h"
    264264    INCLUDE "iniprint.h"
     265    INCLUDE "YOETHF.h"
    265266    INCLUDE "FCTTRE.h"
    266267    INCLUDE "clesphys.h"
    267268    INCLUDE "compbl.h"
    268269    INCLUDE "dimensions.h"
    269     INCLUDE "YOETHF.h"
    270270    INCLUDE "temps.h"
    271271    INCLUDE "flux_arp.h"
Note: See TracChangeset for help on using the changeset viewer.