Ignore:
Timestamp:
Oct 24, 2024, 4:25:39 PM (24 hours ago)
Author:
abarral
Message:

Move dimensions.h into a module
Nb: doesn't compile yet

Location:
LMDZ6/trunk/libf/dyn3dmem
Files:
1 deleted
96 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/dyn3dmem/addfi_loc.f90

    r5246 r5271  
    88  USE infotrac, ONLY : nqtot
    99  USE control_mod, ONLY : planet_type
     10  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    1011  IMPLICIT NONE
    1112  !
    … …  
    4647  !    ------------------
    4748  !
    48   include "dimensions.h"
    4949  include "paramet.h"
    5050  include "comgeom.h"

  • LMDZ6/trunk/libf/dyn3dmem/advect_new_loc.f90

    r5268 r5271  
    1010  USE logic_mod, ONLY: conser
    1111  USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_DEBUGIO
    12   IMPLICIT NONE
     12  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     13IMPLICIT NONE
    1314  !=======================================================================
    1415  !
    … …  
    3031  !   -------------
    3132
    32   include "dimensions.h"
     33
    3334  include "paramet.h"
    3435  include "comgeom.h"

  • LMDZ6/trunk/libf/dyn3dmem/advect_new_mod.f90

    r5268 r5271  
    1717  USE allocate_field_mod
    1818  USE parallel_lmdz
    19   USE dimensions_mod
    20   IMPLICIT NONE
     19  USE dimensions_mod, ONLY: iim, jjm, llm, ndm  IMPLICIT NONE
    2120  TYPE(distrib),POINTER :: d
    2221

  • LMDZ6/trunk/libf/dyn3dmem/advtrac_loc.f90

    r5268 r5271  
    2121   USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_DEBUGIO
    2222   USE strings_mod, ONLY: int2str
    23    IMPLICIT NONE
     23   USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     24IMPLICIT NONE
    2425   !
    25    include "dimensions.h"
     26
    2627   include "paramet.h"
    2728   include "comdissip.h"

  • LMDZ6/trunk/libf/dyn3dmem/advtrac_mod.f90

    r5268 r5271  
    1010  USE parallel_lmdz
    1111  USE vlspltgen_mod
    12   IMPLICIT NONE
    13   INCLUDE "dimensions.h"
     12  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     13IMPLICIT NONE
     14
    1415  INCLUDE "paramet.h"
    1516  TYPE(distrib),POINTER :: d

  • LMDZ6/trunk/libf/dyn3dmem/allocate_field_mod.f90

    r5268 r5271  
    158158  SUBROUTINE allocate1d_u2d(field,d)
    159159  USE parallel_lmdz
    160   USE dimensions_mod
    161   IMPLICIT NONE
     160  USE dimensions_mod, ONLY: iim, jjm, llm, ndm  IMPLICIT NONE
    162161  REAL,POINTER :: field(:,:)
    163162  TYPE(distrib),INTENT(IN) :: d
    … …  
    175174  SUBROUTINE allocate2d_u2d(field,dim1,d)
    176175  USE parallel_lmdz
    177   USE dimensions_mod
    178   IMPLICIT NONE
     176  USE dimensions_mod, ONLY: iim, jjm, llm, ndm  IMPLICIT NONE
    179177  REAL,POINTER :: field(:,:,:)
    180178  INTEGER      :: dim1
    … …  
    192190  SUBROUTINE allocate3d_u2d(field,dim1,dim2,d)
    193191  USE parallel_lmdz
    194   USE dimensions_mod
    195   IMPLICIT NONE
     192  USE dimensions_mod, ONLY: iim, jjm, llm, ndm  IMPLICIT NONE
    196193  REAL,POINTER :: field(:,:,:,:)
    197194  INTEGER      :: dim1,dim2
    … …  
    211208  SUBROUTINE allocate1d_v2d(field,d)
    212209  USE parallel_lmdz
    213   USE dimensions_mod
    214   IMPLICIT NONE
     210  USE dimensions_mod, ONLY: iim, jjm, llm, ndm  IMPLICIT NONE
    215211  REAL,POINTER :: field(:,:)
    216212  TYPE(distrib),INTENT(IN) :: d
    … …  
    228224  SUBROUTINE allocate2d_v2d(field,dim1,d)
    229225  USE parallel_lmdz
    230   USE dimensions_mod
    231   IMPLICIT NONE
     226  USE dimensions_mod, ONLY: iim, jjm, llm, ndm  IMPLICIT NONE
    232227  REAL,POINTER :: field(:,:,:)
    233228  INTEGER      :: dim1
    … …  
    245240  SUBROUTINE allocate3d_v2d(field,dim1,dim2,d)
    246241  USE parallel_lmdz
    247   USE dimensions_mod
    248   IMPLICIT NONE
     242  USE dimensions_mod, ONLY: iim, jjm, llm, ndm  IMPLICIT NONE
    249243  REAL,POINTER :: field(:,:,:,:)
    250244  INTEGER      :: dim1,dim2
    … …  
    511505  USE parallel_lmdz
    512506  USE mod_hallo
    513   USE dimensions_mod
    514   IMPLICIT NONE
     507  USE dimensions_mod, ONLY: iim, jjm, llm, ndm  IMPLICIT NONE
    515508  REAL,POINTER :: field(:,:)
    516509  TYPE(distrib),INTENT(IN) :: old_dist
    … …  
    548541  USE parallel_lmdz
    549542  USE mod_hallo
    550   USE dimensions_mod
    551   IMPLICIT NONE
     543  USE dimensions_mod, ONLY: iim, jjm, llm, ndm  IMPLICIT NONE
    552544  REAL,POINTER :: field(:,:,:)
    553545  TYPE(distrib),INTENT(IN) :: old_dist
    … …  
    585577  USE parallel_lmdz
    586578  USE mod_hallo
    587   USE dimensions_mod
    588   IMPLICIT NONE
     579  USE dimensions_mod, ONLY: iim, jjm, llm, ndm  IMPLICIT NONE
    589580  REAL,POINTER :: field(:,:,:,:)
    590581  TYPE(distrib),INTENT(IN) :: old_dist
    … …  
    625616  USE parallel_lmdz
    626617  USE mod_hallo
    627   USE dimensions_mod
    628   IMPLICIT NONE
     618  USE dimensions_mod, ONLY: iim, jjm, llm, ndm  IMPLICIT NONE
    629619  REAL,POINTER :: field(:,:)
    630620  TYPE(distrib),INTENT(IN) :: old_dist
    … …  
    662652  USE parallel_lmdz
    663653  USE mod_hallo
    664   USE dimensions_mod
    665   IMPLICIT NONE
     654  USE dimensions_mod, ONLY: iim, jjm, llm, ndm  IMPLICIT NONE
    666655  REAL,POINTER :: field(:,:,:)
    667656  TYPE(distrib),INTENT(IN) :: old_dist
    … …  
    699688  USE parallel_lmdz
    700689  USE mod_hallo
    701   USE dimensions_mod
    702   IMPLICIT NONE
     690  USE dimensions_mod, ONLY: iim, jjm, llm, ndm  IMPLICIT NONE
    703691  REAL,POINTER :: field(:,:,:,:)
    704692  TYPE(distrib),INTENT(IN) :: old_dist

  • LMDZ6/trunk/libf/dyn3dmem/bands.f90

    r5268 r5271  
    4242  subroutine Read_distrib
    4343    USE parallel_lmdz
    44     implicit none
    45 
    46     include "dimensions.h"
     44    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     45implicit none
     46
     47
    4748      integer :: i,j
    4849      character (len=4) :: siim,sjjm,sllm,sproc
    … …  
    105106   SUBROUTINE  Set_Bands
    106107     USE parallel_lmdz
    107      IMPLICIT NONE
    108      INCLUDE 'dimensions.h'   
     108     USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     109IMPLICIT NONE
     110
    109111     INTEGER :: i, ij
    110112     INTEGER :: jj_para_begin(0:mpi_size-1)
    … …  
    438440    subroutine WriteBands
    439441    USE parallel_lmdz
    440     implicit none
    441     include "dimensions.h"
     442    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     443implicit none
     444
    442445
    443446      integer :: i,j

  • LMDZ6/trunk/libf/dyn3dmem/bernoui_loc.f90

    r5246 r5271  
    22  USE parallel_lmdz
    33  USE mod_filtreg_p
    4   IMPLICIT NONE
     4  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     5IMPLICIT NONE
    56
    67  !=======================================================================
    … …  
    2425  !   -------------
    2526  !
    26   include "dimensions.h"
     27
    2728  include "paramet.h"
    2829  !

  • LMDZ6/trunk/libf/dyn3dmem/bilan_dyn_loc.f90

    r5268 r5271  
    1919  USE temps_mod, ONLY: annee_ref, day_ref, itau_dyn
    2020
    21   IMPLICIT NONE
    22 
    23   include "dimensions.h"
     21  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     22IMPLICIT NONE
     23
     24
    2425  include "paramet.h"
    2526  include "comgeom2.h"

  • LMDZ6/trunk/libf/dyn3dmem/caladvtrac_loc.f90

    r5268 r5271  
    1717  USE write_field_loc
    1818  USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_DEBUGIO
    19   IMPLICIT NONE
     19  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     20IMPLICIT NONE
    2021  !
    2122  ! Auteurs:   F.Hourdin , P.Le Van, F.Forget, F.Codron
    … …  
    2930
    3031
    31   include "dimensions.h"
     32
    3233  include "paramet.h"
    3334

  • LMDZ6/trunk/libf/dyn3dmem/caladvtrac_mod.f90

    r5268 r5271  
    3434  USE advtrac_mod, ONLY : advtrac_allocate
    3535  USE groupe_mod
    36   IMPLICIT NONE
    37   INCLUDE "dimensions.h"
     36  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     37IMPLICIT NONE
     38
    3839  INCLUDE "paramet.h"
    3940  TYPE(distrib),POINTER :: d

  • LMDZ6/trunk/libf/dyn3dmem/caldyn_loc.f90

    r5268 r5271  
    88  USE comvert_mod, ONLY: ap, bp
    99  USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_DEBUGIO
    10   IMPLICIT NONE
     10  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     11IMPLICIT NONE
    1112
    1213  !=======================================================================
    … …  
    2627  !   ----------------
    2728
    28   include "dimensions.h"
     29
    2930  include "paramet.h"
    3031  include "comgeom.h"

  • LMDZ6/trunk/libf/dyn3dmem/caldyn_mod.f90

    r5268 r5271  
    2222  USE allocate_field_mod
    2323  USE parallel_lmdz
    24   USE dimensions_mod
    25   USE advect_new_mod,ONLY : advect_new_allocate
     24  USE dimensions_mod, ONLY: iim, jjm, llm, ndm  USE advect_new_mod,ONLY : advect_new_allocate
    2625  IMPLICIT NONE
    2726  TYPE(distrib),POINTER :: d

  • LMDZ6/trunk/libf/dyn3dmem/call_calfis_mod.f90

    r5268 r5271  
    3636  USE allocate_field_mod
    3737  USE parallel_lmdz
    38   USE dimensions_mod
    39   USE infotrac, ONLY: nqtot
     38  USE dimensions_mod, ONLY: iim, jjm, llm, ndm  USE infotrac, ONLY: nqtot
    4039  IMPLICIT NONE
    4140    TYPE(distrib),POINTER :: d
    … …  
    7271  SUBROUTINE call_calfis(itau,lafin,ucov_dyn,vcov_dyn,teta_dyn,masse_dyn,ps_dyn, &
    7372                         phis_dyn,q_dyn,flxw_dyn)
    74   USE dimensions_mod
    75   use exner_hyb_loc_m, only: exner_hyb_loc
     73  USE dimensions_mod, ONLY: iim, jjm, llm, ndm  use exner_hyb_loc_m, only: exner_hyb_loc
    7674  use exner_milieu_loc_m, only: exner_milieu_loc
    7775  USE parallel_lmdz

  • LMDZ6/trunk/libf/dyn3dmem/call_dissip_mod.f90

    r5268 r5271  
    2424  USE allocate_field_mod
    2525  USE parallel_lmdz
    26   USE dimensions_mod
    27   USE dissip_mod, ONLY : dissip_allocate
     26  USE dimensions_mod, ONLY: iim, jjm, llm, ndm  USE dissip_mod, ONLY : dissip_allocate
    2827  IMPLICIT NONE
    2928    TYPE(distrib),POINTER :: d
    … …  
    8079 
    8180  SUBROUTINE call_dissip(ucov_dyn,vcov_dyn,teta_dyn,p_dyn,pk_dyn,ps_dyn)
    82   USE dimensions_mod
    83   USE parallel_lmdz
     81  USE dimensions_mod, ONLY: iim, jjm, llm, ndm  USE parallel_lmdz
    8482  USE times
    8583  USE mod_hallo

  • LMDZ6/trunk/libf/dyn3dmem/check_isotopes_loc.f90

    r5268 r5271  
    66   USE iso_params_mod, ONLY: tnat_H216O, tnat_H217O, tnat_H218O, tnat_HDO, tnat_HTO
    77   USE ioipsl,          ONLY: getin
    8    IMPLICIT NONE
    9    include "dimensions.h"
     8   USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     9IMPLICIT NONE
     10
    1011   REAL,             INTENT(INOUT) :: q(ijb_u:ije_u,llm,nqtot)
    1112   INTEGER,          INTENT(IN)    :: ijb, ije   !--- Can be local and different from ijb_u,ije_u, for example in qminimum

  • LMDZ6/trunk/libf/dyn3dmem/conf_gcm.F90

    r5267 r5271  
    2323  USE temps_mod, ONLY: calend, year_len, offline_time
    2424
    25   IMPLICIT NONE
     25  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     26IMPLICIT NONE
    2627  !-----------------------------------------------------------------------
    2728  !     Auteurs :   L. Fairhead , P. Le Van  .
    … …  
    3031
    3132  !     tapedef   :
    32   !     etatinit  :     = TRUE   , on ne  compare pas les valeurs des para- 
     33  !     etatinit  :     = TRUE   , on ne  compare pas les valeurs des para-
    3334  !     -metres  du zoom  avec  celles lues sur le fichier start .
    3435
    … …  
    3839  !   Declarations :
    3940  !   --------------
    40   include "dimensions.h"
     41
    4142  include "paramet.h"
    4243  include "comdissnew.h"

  • LMDZ6/trunk/libf/dyn3dmem/convflu_loc.f90

    r5246 r5271  
    1616  !
    1717  USE parallel_lmdz
    18   IMPLICIT NONE
     18  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     19IMPLICIT NONE
    1920  !
    20   INCLUDE "dimensions.h"
     21
    2122  INCLUDE "paramet.h"
    2223  REAL :: xflu,yflu,convfl,convpn,convps

  • LMDZ6/trunk/libf/dyn3dmem/convmas1_loc.f90

    r5268 r5271  
    88  USE parallel_lmdz
    99  USE mod_filtreg_p
    10   IMPLICIT NONE
    11   include "dimensions.h"
     10  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     11IMPLICIT NONE
     12
    1213  include "paramet.h"
    1314  include "comgeom.h"

  • LMDZ6/trunk/libf/dyn3dmem/convmas2_loc.f90

    r5268 r5271  
    77!          Equivalent to convmas_loc if convmas1_loc is called before.
    88  USE parallel_lmdz
    9   IMPLICIT NONE
    10   include "dimensions.h"
     9  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     10IMPLICIT NONE
     11
    1112  include "paramet.h"
    1213  include "comgeom.h"

  • LMDZ6/trunk/libf/dyn3dmem/convmas_loc.f90

    r5268 r5271  
    77  USE parallel_lmdz
    88  USE mod_filtreg_p
    9   IMPLICIT NONE
    10   include "dimensions.h"
     9  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     10IMPLICIT NONE
     11
    1112  include "paramet.h"
    1213  include "comgeom.h"

  • LMDZ6/trunk/libf/dyn3dmem/covcont_loc.f90

    r5246 r5271  
    11SUBROUTINE covcont_loc (klevel,ucov, vcov, ucont, vcont )
    22  USE parallel_lmdz
    3   IMPLICIT NONE
     3  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     4IMPLICIT NONE
    45
    56  !=======================================================================
    … …  
    1718  !=======================================================================
    1819
    19   INCLUDE "dimensions.h"
     20
    2021  INCLUDE "paramet.h"
    2122  INCLUDE "comgeom.h"

  • LMDZ6/trunk/libf/dyn3dmem/covnat_loc.f90

    r5246 r5271  
    44SUBROUTINE covnat_loc(klevel,ucov, vcov, unat, vnat )
    55  USE parallel_lmdz
    6   IMPLICIT NONE
     6  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     7IMPLICIT NONE
    78
    89  !=======================================================================
    … …  
    2021  !=======================================================================
    2122
    22   INCLUDE "dimensions.h"
     23
    2324  INCLUDE "paramet.h"
    2425  INCLUDE "comgeom.h"

  • LMDZ6/trunk/libf/dyn3dmem/dissip_loc.f90

    r5268 r5271  
    99  USE comconst_mod, ONLY: dtdiss
    1010  USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_DEBUGIO
    11   IMPLICIT NONE
     11  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     12IMPLICIT NONE
    1213
    1314
    … …  
    3031  !   -------------
    3132
    32   include "dimensions.h"
     33
    3334  include "paramet.h"
    3435  include "comgeom.h"

  • LMDZ6/trunk/libf/dyn3dmem/dissip_mod.f90

    r5268 r5271  
    99  USE allocate_field_mod
    1010  USE parallel_lmdz
    11   USE dimensions_mod
    12   USE gradiv2_mod, ONLY : gradiv2_allocate
     11  USE dimensions_mod, ONLY: iim, jjm, llm, ndm  USE gradiv2_mod, ONLY : gradiv2_allocate
    1312  USE nxgraro2_mod, ONLY : nxgraro2_allocate
    1413  USE divgrad2_mod, ONLY : divgrad2_allocate

  • LMDZ6/trunk/libf/dyn3dmem/diverg_gam_loc.f90

    r5246 r5271  
    1010  !  *********************************************************************
    1111  USE parallel_lmdz
    12   IMPLICIT NONE
     12  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     13IMPLICIT NONE
    1314  !
    1415  !  x  et  y  sont des arguments  d'entree pour le s-prog
    … …  
    2122  !
    2223  !   ---------------------------------------------------------------------
    23   INCLUDE "dimensions.h"
     24
    2425  INCLUDE "paramet.h"
    2526  INCLUDE "comgeom.h"

  • LMDZ6/trunk/libf/dyn3dmem/diverg_p.f90

    r5246 r5271  
    99  !  *********************************************************************
    1010  USE parallel_lmdz
    11   IMPLICIT NONE
     11  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     12IMPLICIT NONE
    1213  !
    1314  !  x  et  y  sont des arguments  d'entree pour le s-prog
    … …  
    2021  !
    2122  !   ---------------------------------------------------------------------
    22   INCLUDE "dimensions.h"
     23
    2324  INCLUDE "paramet.h"
    2425  INCLUDE "comgeom.h"

  • LMDZ6/trunk/libf/dyn3dmem/divergf_loc.f90

    r5246 r5271  
    1010  USE parallel_lmdz
    1111  USE mod_filtreg_p
    12   IMPLICIT NONE
     12  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     13IMPLICIT NONE
    1314  !
    1415  !  x  et  y  sont des arguments  d'entree pour le s-prog
    … …  
    2122  !
    2223  !   ---------------------------------------------------------------------
    23   INCLUDE "dimensions.h"
     24
    2425  INCLUDE "paramet.h"
    2526  INCLUDE "comgeom.h"

  • LMDZ6/trunk/libf/dyn3dmem/divgrad2_loc.f90

    r5246 r5271  
    1414  USE mod_hallo
    1515  USE divgrad2_mod
    16   IMPLICIT NONE
     16  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     17IMPLICIT NONE
    1718  !
    18   INCLUDE "dimensions.h"
     19
    1920  INCLUDE "paramet.h"
    2021  INCLUDE "comgeom2.h"

  • LMDZ6/trunk/libf/dyn3dmem/divgrad2_mod.f90

    r5268 r5271  
    99  USE allocate_field_mod
    1010  USE parallel_lmdz
    11   USE dimensions_mod
    12   IMPLICIT NONE
     11  USE dimensions_mod, ONLY: iim, jjm, llm, ndm  IMPLICIT NONE
    1312    TYPE(distrib),POINTER :: d
    1413    d=>distrib_dissip

  • LMDZ6/trunk/libf/dyn3dmem/dteta1_loc.f90

    r5246 r5271  
    33  USE write_field_p
    44  USE mod_filtreg_p
    5   IMPLICIT NONE
     5  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     6IMPLICIT NONE
    67
    78  !=======================================================================
    … …  
    2122
    2223
    23   include "dimensions.h"
     24
    2425  include "paramet.h"
    2526

  • LMDZ6/trunk/libf/dyn3dmem/dudv1_loc.f90

    r5246 r5271  
    11SUBROUTINE dudv1_loc ( vorpot, pbaru, pbarv, du, dv )
    22  USE parallel_lmdz
    3   IMPLICIT NONE
     3  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     4IMPLICIT NONE
    45  !
    56  !-----------------------------------------------------------------------
    … …  
    1718  !-----------------------------------------------------------------------
    1819
    19   INCLUDE "dimensions.h"
     20
    2021  INCLUDE "paramet.h"
    2122

  • LMDZ6/trunk/libf/dyn3dmem/dudv2_loc.f90

    r5246 r5271  
    11SUBROUTINE dudv2_loc ( teta, pkf, bern, du, dv  )
    22  USE parallel_lmdz
    3   IMPLICIT NONE
     3  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     4IMPLICIT NONE
    45  !
    56  !=======================================================================
    … …  
    2324  !=======================================================================
    2425  !
    25   include "dimensions.h"
     26
    2627  include "paramet.h"
    2728

  • LMDZ6/trunk/libf/dyn3dmem/dynetat0_loc.f90

    r5268 r5271  
    2424  USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_INCA, CPPKEY_REPROBUS
    2525
    26   IMPLICIT NONE
    27   include "dimensions.h"
     26  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     27IMPLICIT NONE
     28
    2829  include "paramet.h"
    2930  include "comgeom.h"

  • LMDZ6/trunk/libf/dyn3dmem/dynredem_loc.f90

    r5268 r5271  
    2222  USE ener_mod, ONLY: etot0,ptot0,ztot0,stot0,ang0
    2323
    24   IMPLICIT NONE
    25   include "dimensions.h"
     24  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     25IMPLICIT NONE
     26
    2627  include "paramet.h"
    2728  include "comgeom.h"
    … …  
    176177  USE temps_mod, ONLY: itau_dyn, itaufin
    177178 
    178   IMPLICIT NONE
    179   include "dimensions.h"
     179  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     180IMPLICIT NONE
     181
    180182  include "paramet.h"
    181183  include "description.h"

  • LMDZ6/trunk/libf/dyn3dmem/dynredem_mod.f90

    r5268 r5271  
    11MODULE dynredem_mod
    22
    3   USE dimensions_mod
    4   USE parallel_lmdz
     3  USE dimensions_mod, ONLY: iim, jjm, llm, ndm  USE parallel_lmdz
    54  USE mod_hallo
    65  USE netcdf

  • LMDZ6/trunk/libf/dyn3dmem/enercin_loc.f90

    r5268 r5271  
    66! Purpose: Compute kinetic energy at sigma levels.
    77  USE parallel_lmdz
    8   IMPLICIT NONE
    9   include "dimensions.h"
     8  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     9IMPLICIT NONE
     10
    1011  include "paramet.h"
    1112  include "comgeom.h"

  • LMDZ6/trunk/libf/dyn3dmem/exner_hyb_loc_m.f90

    r5268 r5271  
    3838    USE comvert_mod, ONLY: preff
    3939    USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_DEBUGIO
    40     IMPLICIT NONE
    41     !
    42     include "dimensions.h"
     40    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     41IMPLICIT NONE
     42    !
     43
    4344    include "paramet.h"
    4445    include "comgeom.h"

  • LMDZ6/trunk/libf/dyn3dmem/exner_milieu_loc_m.f90

    r5268 r5271  
    3434    USE comvert_mod, ONLY: preff
    3535   
    36     IMPLICIT NONE
     36    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     37IMPLICIT NONE
    3738    !
    38     include "dimensions.h"
     39
    3940    include "paramet.h"
    4041    include "comgeom.h"

  • LMDZ6/trunk/libf/dyn3dmem/flumass_loc.f90

    r5268 r5271  
    66! Purpose: Compute mass flux at s levels.
    77  USE parallel_lmdz
    8   IMPLICIT NONE
    9   include "dimensions.h"
     8  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     9IMPLICIT NONE
     10
    1011  include "paramet.h"
    1112  include "comgeom.h"

  • LMDZ6/trunk/libf/dyn3dmem/fluxstokenc_p.f90

    r5246 r5271  
    1616
    1717  !
    18   IMPLICIT NONE
     18  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     19IMPLICIT NONE
    1920  !
    2021  ! Auteurs:   F.Hourdin , P.Le Van, F.Forget, F.Codron
    … …  
    2728
    2829
    29   include "dimensions.h"
     30
    3031  include "paramet.h"
    3132  include "tracstoke.h"

  • LMDZ6/trunk/libf/dyn3dmem/friction_loc.f90

    r5268 r5271  
    77  USE control_mod
    88  USE IOIPSL
    9 
    109  USE comconst_mod, ONLY: pi
     10  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    1111  IMPLICIT NONE
    1212
    … …  
    2323  !=======================================================================
    2424
    25   include "dimensions.h"
    2625  include "paramet.h"
    2726  include "comgeom2.h"

  • LMDZ6/trunk/libf/dyn3dmem/gcm.F90

    r5267 r5271  
    2828
    2929
    30   IMPLICIT NONE
     30  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     31IMPLICIT NONE
    3132
    3233  !      ......   Version  du 10/01/98    ..........
    3334
    34   !             avec  coordonnees  verticales hybrides 
     35  !             avec  coordonnees  verticales hybrides
    3536  !   avec nouveaux operat. dissipation * ( gradiv2,divgrad2,nxgraro2 )
    3637
    … …  
    5960  !   Declarations:
    6061  !   -------------
    61   include "dimensions.h"
     62
    6263  include "paramet.h"
    6364  include "comdissnew.h"

  • LMDZ6/trunk/libf/dyn3dmem/geopot_loc.f90

    r5246 r5271  
    11SUBROUTINE geopot_loc ( ngrid, teta, pk, pks, phis, phi )
    22  USE parallel_lmdz
    3   IMPLICIT NONE
     3  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     4IMPLICIT NONE
    45
    56
    … …  
    2627  !   -------------
    2728
    28   include "dimensions.h"
     29
    2930  include "paramet.h"
    3031

  • LMDZ6/trunk/libf/dyn3dmem/gr_u_scal_loc.f90

    r5246 r5271  
    2626  !=======================================================================
    2727  USE parallel_lmdz
    28   IMPLICIT NONE
     28  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     29IMPLICIT NONE
    2930  !-----------------------------------------------------------------------
    3031  !   Declararations:
    3132  !   ---------------
    3233
    33   INCLUDE "dimensions.h"
     34
    3435  INCLUDE "paramet.h"
    3536  INCLUDE "comgeom.h"

  • LMDZ6/trunk/libf/dyn3dmem/gr_v_scal_loc.f90

    r5246 r5271  
    2626  !=======================================================================
    2727  USE parallel_lmdz
    28   IMPLICIT NONE
     28  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     29IMPLICIT NONE
    2930  !-----------------------------------------------------------------------
    3031  !   Declararations:
    3132  !   ---------------
    3233
    33   INCLUDE "dimensions.h"
     34
    3435  INCLUDE "paramet.h"
    3536  INCLUDE "comgeom.h"

  • LMDZ6/trunk/libf/dyn3dmem/grad_loc.f90

    r5246 r5271  
    1111  !
    1212  USE parallel_lmdz
    13   IMPLICIT NONE
     13  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     14IMPLICIT NONE
    1415  !
    15   INCLUDE "dimensions.h"
     16
    1617  INCLUDE "paramet.h"
    1718  INTEGER :: klevel

  • LMDZ6/trunk/libf/dyn3dmem/grad_p.f90

    r5246 r5271  
    1111  !
    1212  USE parallel_lmdz
    13   IMPLICIT NONE
     13  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     14IMPLICIT NONE
    1415  !
    15   INCLUDE "dimensions.h"
     16
    1617  INCLUDE "paramet.h"
    1718  INTEGER :: klevel

  • LMDZ6/trunk/libf/dyn3dmem/gradiv2_loc.f90

    r5246 r5271  
    1919  USE mod_filtreg_p
    2020  USE gradiv2_mod
    21   IMPLICIT NONE
     21  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     22IMPLICIT NONE
    2223  !
    23   INCLUDE "dimensions.h"
     24
    2425  INCLUDE "paramet.h"
    2526  INCLUDE "comgeom.h"

  • LMDZ6/trunk/libf/dyn3dmem/gradiv2_mod.f90

    r5268 r5271  
    1111  USE allocate_field_mod
    1212  USE parallel_lmdz
    13   USE dimensions_mod
    14   IMPLICIT NONE
     13  USE dimensions_mod, ONLY: iim, jjm, llm, ndm  IMPLICIT NONE
    1514    TYPE(distrib),POINTER :: d
    1615    d=>distrib_dissip

  • LMDZ6/trunk/libf/dyn3dmem/groupe_loc.f90

    r5268 r5271  
    55  USE comconst_mod, ONLY: ngroup
    66  USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_DEBUGIO
    7   implicit none
     7  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     8implicit none
    89
    910  !   sous-programme servant a fitlrer les champs de flux de masse aux
    … …  
    1819  !   pas besoin de w en entree.
    1920
    20   include "dimensions.h"
     21
    2122  include "paramet.h"
    2223  include "comgeom2.h"

  • LMDZ6/trunk/libf/dyn3dmem/groupe_mod.f90

    r5268 r5271  
    1212!  USE infotrac
    1313  USE advtrac_mod, ONLY : advtrac_allocate
    14   IMPLICIT NONE
    15   INCLUDE "dimensions.h"
     14  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     15IMPLICIT NONE
     16
    1617  INCLUDE "paramet.h"
    1718  TYPE(distrib),POINTER :: d

  • LMDZ6/trunk/libf/dyn3dmem/groupeun_loc.f90

    r5246 r5271  
    33  USE Write_Field_p
    44  USE comconst_mod, ONLY: ngroup
    5   IMPLICIT NONE
    6 
    7   include "dimensions.h"
     5  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     6IMPLICIT NONE
     7
     8
    89  include "paramet.h"
    910  include "comgeom2.h"
    … …  
    137138  USE parallel_lmdz
    138139  USE comconst_mod, ONLY: ngroup
    139   IMPLICIT NONE
    140 
    141   include "dimensions.h"
     140  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     141IMPLICIT NONE
     142
     143
    142144  include "paramet.h"
    143145  include "comgeom2.h"

  • LMDZ6/trunk/libf/dyn3dmem/guide_loc_mod.f90

    r5270 r5271  
    8080    USE serre_mod, ONLY: grossismx
    8181
    82     IMPLICIT NONE
    83 
    84     INCLUDE "dimensions.h"
     82    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     83IMPLICIT NONE
     84
     85
    8586    INCLUDE "paramet.h"
    8687
    … …  
    369370    USE comvert_mod, ONLY: ap, bp, preff, presnivs, pressure_exner
    370371
    371     IMPLICIT NONE
    372 
    373     INCLUDE "dimensions.h"
     372    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     373IMPLICIT NONE
     374
     375
    374376    INCLUDE "paramet.h"
    375377
    … …  
    729731! field1=a*field1+alpha*field2
    730732
    731     IMPLICIT NONE
    732     INCLUDE "dimensions.h"
     733    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     734IMPLICIT NONE
     735
    733736    INCLUDE "paramet.h"
    734737
    … …  
    752755! field1=a*field1+alpha*field2
    753756
    754     IMPLICIT NONE
    755     INCLUDE "dimensions.h"
     757    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     758IMPLICIT NONE
     759
    756760    INCLUDE "paramet.h"
    757761
    … …  
    777781    USE comconst_mod, ONLY: pi
    778782
    779     IMPLICIT NONE
    780 
    781     INCLUDE "dimensions.h"
     783    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     784IMPLICIT NONE
     785
     786
    782787    INCLUDE "paramet.h"
    783788    INCLUDE "comgeom.h"
    … …  
    849854    USE comconst_mod, ONLY: pi
    850855
    851     IMPLICIT NONE
    852 
    853     INCLUDE "dimensions.h"
     856    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     857IMPLICIT NONE
     858
     859
    854860    INCLUDE "paramet.h"
    855861    INCLUDE "comgeom.h"
    … …  
    921927  USE comconst_mod, ONLY: cpp, kappa
    922928  USE comvert_mod, ONLY: preff, pressure_exner, bp, ap, disvert_type
    923   IMPLICIT NONE
    924 
    925   include "dimensions.h"
     929  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     930IMPLICIT NONE
     931
     932
    926933  include "paramet.h"
    927934  include "comgeom2.h"
    … …  
    14091416    use serre_mod, only: clat, clon, grossismx, grossismy
    14101417
    1411     implicit none
    1412 
    1413     include "dimensions.h"
     1418    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     1419implicit none
     1420
     1421
    14141422    include "paramet.h"
    14151423    include "comgeom2.h"
    … …  
    15761584  SUBROUTINE guide_read(timestep)
    15771585    USE netcdf, ONLY: nf90_put_var
    1578     IMPLICIT NONE
    1579     include "dimensions.h"
     1586    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     1587IMPLICIT NONE
     1588
    15801589    include "paramet.h"
    15811590
    … …  
    18931902  SUBROUTINE guide_read2D(timestep)
    18941903    USE netcdf, ONLY: nf90_put_var
    1895     IMPLICIT NONE
    1896     include "dimensions.h"
     1904    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     1905IMPLICIT NONE
     1906
    18971907    include "paramet.h"
    18981908
    … …  
    21712181    use netcdf, only: nf90_float, nf90_put_var
    21722182
    2173     IMPLICIT NONE
    2174 
    2175     INCLUDE "dimensions.h"
     2183    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     2184IMPLICIT NONE
     2185
     2186
    21762187    INCLUDE "paramet.h"
    21772188    INCLUDE "comgeom2.h"
    … …  
    23932404use parallel_lmdz
    23942405use mod_hallo
     2406USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    23952407implicit none
    2396 include 'dimensions.h'
     2408
    23972409include 'paramet.h'
    23982410
    … …  
    24232435!====================================================================
    24242436subroutine dumpall
    2425      implicit none
    2426      include "dimensions.h"
     2437     USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     2438implicit none
     2439
    24272440     include "paramet.h"
    24282441     include "comgeom.h"

  • LMDZ6/trunk/libf/dyn3dmem/iniacademic_loc.f90

    r5268 r5271  
    2727  ! of the American Meteorological Society, 75, 1825.
    2828
    29   IMPLICIT NONE
     29  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     30IMPLICIT NONE
    3031
    3132  !   Declararations:
    3233  !   ---------------
    3334
    34   include "dimensions.h"
     35
    3536  include "paramet.h"
    3637  include "comgeom.h"

  • LMDZ6/trunk/libf/dyn3dmem/initdynav_loc.f90

    r5268 r5271  
    1717   USE temps_mod, ONLY: itau_dyn
    1818
    19    implicit none
     19   USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     20implicit none
    2021
    2122  !
    … …  
    4445  !
    4546  !   Declarations
    46   include "dimensions.h"
     47
    4748  include "paramet.h"
    4849  include "comgeom.h"

  • LMDZ6/trunk/libf/dyn3dmem/initfluxsto_p.f90

    r5268 r5271  
    1616   USE temps_mod, ONLY: annee_ref, day_ref, itau_dyn
    1717
    18   implicit none
     18  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     19implicit none
    1920
    2021  !
    … …  
    4546  !
    4647  !   Declarations
    47   include "dimensions.h"
     48
    4849  include "paramet.h"
    4950  include "comgeom.h"

  • LMDZ6/trunk/libf/dyn3dmem/inithist_loc.f90

    r5268 r5271  
    1616   USE temps_mod, ONLY: itau_dyn
    1717
    18    implicit none
     18   USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     19implicit none
    1920
    2021  !
    … …  
    4243  !
    4344  !   Declarations
    44   include "dimensions.h"
     45
    4546  include "paramet.h"
    4647  include "comgeom.h"

  • LMDZ6/trunk/libf/dyn3dmem/integrd_loc.f90

    r5258 r5271  
    1616  USE temps_mod, ONLY: dt
    1717  USE strings_mod, ONLY: int2str
    18   IMPLICIT NONE
     18  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     19IMPLICIT NONE
    1920
    2021
    … …  
    3435  !   -------------
    3536
    36   include "dimensions.h"
     37
    3738  include "paramet.h"
    3839  include "comgeom.h"

  • LMDZ6/trunk/libf/dyn3dmem/integrd_mod.f90

    r5268 r5271  
    1313  USE allocate_field_mod
    1414  USE parallel_lmdz
    15   USE dimensions_mod
    16   USE advect_new_mod,ONLY : advect_new_allocate
     15  USE dimensions_mod, ONLY: iim, jjm, llm, ndm  USE advect_new_mod,ONLY : advect_new_allocate
    1716  IMPLICIT NONE
    1817  TYPE(distrib),POINTER :: d

  • LMDZ6/trunk/libf/dyn3dmem/laplacien_gam_loc.f90

    r5246 r5271  
    1212  !
    1313  USE parallel_lmdz
    14   IMPLICIT NONE
     14  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     15IMPLICIT NONE
    1516  !
    16   INCLUDE "dimensions.h"
     17
    1718  INCLUDE "paramet.h"
    1819  INCLUDE "comgeom.h"

  • LMDZ6/trunk/libf/dyn3dmem/laplacien_loc.f90

    r5246 r5271  
    1111  USE parallel_lmdz
    1212  USE mod_filtreg_p
    13   IMPLICIT NONE
     13  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     14IMPLICIT NONE
    1415  !
    15   INCLUDE "dimensions.h"
     16
    1617  INCLUDE "paramet.h"
    1718  INCLUDE "comgeom.h"

  • LMDZ6/trunk/libf/dyn3dmem/laplacien_rot_loc.f90

    r5246 r5271  
    1212  USE parallel_lmdz
    1313  USE mod_filtreg_p
    14   IMPLICIT NONE
     14  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     15IMPLICIT NONE
    1516  !
    16   INCLUDE "dimensions.h"
     17
    1718  INCLUDE "paramet.h"
    1819  INCLUDE "comgeom.h"

  • LMDZ6/trunk/libf/dyn3dmem/laplacien_rotgam_loc.f90

    r5246 r5271  
    1010  !
    1111  USE parallel_lmdz
    12   IMPLICIT NONE
     12  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     13IMPLICIT NONE
    1314  !
    14   INCLUDE "dimensions.h"
     15
    1516  INCLUDE "paramet.h"
    1617  INCLUDE "comgeom.h"

  • LMDZ6/trunk/libf/dyn3dmem/leapfrog_loc.f90

    r5268 r5271  
    4040   USE strings_mod, ONLY: int2str
    4141
    42   IMPLICIT NONE
     42  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     43IMPLICIT NONE
    4344
    4445   ! ......   Version  du 10/01/98    ..........
    … …  
    7374  !   -------------
    7475
    75   include "dimensions.h"
     76
    7677  include "paramet.h"
    7778  include "comdissnew.h"

  • LMDZ6/trunk/libf/dyn3dmem/leapfrog_mod.f90

    r5268 r5271  
    3939  USE allocate_field_mod
    4040  USE parallel_lmdz
    41   USE dimensions_mod
    42   USE infotrac
     41  USE dimensions_mod, ONLY: iim, jjm, llm, ndm  USE infotrac
    4342  USE caldyn_mod,ONLY : caldyn_allocate
    4443  USE integrd_mod,ONLY : integrd_allocate

  • LMDZ6/trunk/libf/dyn3dmem/massbar_loc.f90

    r5268 r5271  
    77! See iniconst for more details.
    88  USE parallel_lmdz
    9   IMPLICIT NONE
    10   include "dimensions.h"
     9  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     10IMPLICIT NONE
     11
    1112  include "paramet.h"
    1213  include "comgeom.h"

  • LMDZ6/trunk/libf/dyn3dmem/massbarxy_loc.f90

    r5268 r5271  
    77! See iniconst for more details.
    88  USE parallel_lmdz
    9   IMPLICIT NONE
    10   include "dimensions.h"
     9  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     10IMPLICIT NONE
     11
    1112  include "paramet.h"
    1213  include "comgeom.h"

  • LMDZ6/trunk/libf/dyn3dmem/massdair_loc.f90

    r5246 r5271  
    1414  !  ....  p est defini aux interfaces des llm couches   .....
    1515  !
    16   IMPLICIT NONE
     16  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     17IMPLICIT NONE
    1718  !
    18   include "dimensions.h"
     19
    1920  include "paramet.h"
    2021  include "comgeom.h"

  • LMDZ6/trunk/libf/dyn3dmem/mod_filtreg_p.F90

    r5246 r5271  
    1313          matricevn, matricevs
    1414
    15     IMPLICIT NONE
     15    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     16IMPLICIT NONE
    1617
    1718    !=======================================================================
    … …  
    5556    !
    5657    !
    57     INCLUDE "dimensions.h"
     58
    5859    INCLUDE "paramet.h"
    5960    INCLUDE "coefils.h"

  • LMDZ6/trunk/libf/dyn3dmem/mod_hallo.f90

    r5268 r5271  
    6868
    6969  subroutine Init_mod_hallo
    70   USE dimensions_mod
    71   USE IOIPSL
     70  USE dimensions_mod, ONLY: iim, jjm, llm, ndm  USE IOIPSL
    7271    implicit none
    7372    integer :: jj_nb_gather(0:mpi_size-1)
    … …  
    215214 
    216215  subroutine Register_SendField(Field,ij,ll,offset,size,target,a_request)
    217   USE dimensions_mod
    218   implicit none
     216  USE dimensions_mod, ONLY: iim, jjm, llm, ndm  implicit none
    219217
    220218   
    … …  
    231229     
    232230  subroutine Register_RecvField(Field,ij,ll,offset,size,target,a_request)
    233   USE dimensions_mod
    234   implicit none
     231  USE dimensions_mod, ONLY: iim, jjm, llm, ndm  implicit none
    235232
    236233   
    … …  
    248245 
    249246  subroutine Register_SwapField(FieldS,FieldR,ij,ll,jj_Nb_New,a_request)
    250   USE dimensions_mod
    251       implicit none
     247  USE dimensions_mod, ONLY: iim, jjm, llm, ndm      implicit none
    252248
    253249   
    … …  
    296292 
    297293  subroutine Register_SwapFieldHallo(FieldS,FieldR,ij,ll,jj_Nb_New,Up,Down,a_request)
    298   USE dimensions_mod
    299  
     294  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    300295      implicit none
    301296   
    … …  
    350345  SUBROUTINE Register_SwapField1d_u(FieldS,FieldR,new_dist,a_request,up,down)
    351346  USE parallel_lmdz
    352   USE dimensions_mod
    353       IMPLICIT NONE
     347  USE dimensions_mod, ONLY: iim, jjm, llm, ndm      IMPLICIT NONE
    354348   
    355349    TYPE(distrib),INTENT(IN)          :: new_dist
    … …  
    375369  SUBROUTINE Register_SwapField1d_u_bis(FieldS,FieldR,new_dist,a_request,old_dist,up,down)
    376370  USE parallel_lmdz
    377   USE dimensions_mod
    378       IMPLICIT NONE
     371  USE dimensions_mod, ONLY: iim, jjm, llm, ndm      IMPLICIT NONE
    379372   
    380373    TYPE(distrib),INTENT(IN)          :: new_dist
    … …  
    402395  SUBROUTINE Register_SwapField2d_u1d(FieldS,FieldR,new_dist,a_request,up,down)
    403396  USE parallel_lmdz
    404   USE dimensions_mod
    405     IMPLICIT NONE
     397  USE dimensions_mod, ONLY: iim, jjm, llm, ndm    IMPLICIT NONE
    406398   
    407399    TYPE(distrib),INTENT(IN)          :: new_dist
    … …  
    430422  SUBROUTINE Register_SwapField2d_u1d_bis(FieldS,FieldR,new_dist,a_request,old_dist,up,down)
    431423  USE parallel_lmdz
    432   USE dimensions_mod
    433     IMPLICIT NONE
     424  USE dimensions_mod, ONLY: iim, jjm, llm, ndm    IMPLICIT NONE
    434425   
    435426    TYPE(distrib),INTENT(IN)          :: new_dist
    … …  
    460451  SUBROUTINE Register_SwapField3d_u(FieldS,FieldR,new_dist,a_request,up,down)
    461452  USE parallel_lmdz
    462   USE dimensions_mod
    463       IMPLICIT NONE
     453  USE dimensions_mod, ONLY: iim, jjm, llm, ndm      IMPLICIT NONE
    464454   
    465455    TYPE(distrib),INTENT(IN)          :: new_dist
    … …  
    488478  SUBROUTINE Register_SwapField3d_u_bis(FieldS,FieldR,new_dist,a_request,old_dist,up,down)
    489479  USE parallel_lmdz
    490   USE dimensions_mod
    491       IMPLICIT NONE
     480  USE dimensions_mod, ONLY: iim, jjm, llm, ndm      IMPLICIT NONE
    492481   
    493482    TYPE(distrib),INTENT(IN)          :: new_dist
    … …  
    519508 SUBROUTINE Register_SwapField1d_u2d(FieldS,FieldR,new_dist,a_request,up,down)
    520509  USE parallel_lmdz
    521   USE dimensions_mod
    522 
     510  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    523511      IMPLICIT NONE
    524512
    … …  
    545533 SUBROUTINE Register_SwapField1d_u2d_bis(FieldS,FieldR,new_dist,a_request,old_dist,up,down)
    546534  USE parallel_lmdz
    547   USE dimensions_mod
    548 
     535  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    549536      IMPLICIT NONE
    550537
    … …  
    573560  SUBROUTINE Register_SwapField2d_u2d(FieldS,FieldR,new_dist,a_request,up,down)
    574561  USE parallel_lmdz
    575   USE dimensions_mod
    576 
     562  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    577563      IMPLICIT NONE
    578564   
    … …  
    602588  SUBROUTINE Register_SwapField2d_u2d_bis(FieldS,FieldR,new_dist,a_request,old_dist,up,down)
    603589  USE parallel_lmdz
    604   USE dimensions_mod
    605 
     590  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    606591      IMPLICIT NONE
    607592   
    … …  
    633618  SUBROUTINE Register_SwapField3d_u2d(FieldS,FieldR,new_dist,a_request,up,down)
    634619  USE parallel_lmdz
    635   USE dimensions_mod
    636       IMPLICIT NONE
     620  USE dimensions_mod, ONLY: iim, jjm, llm, ndm      IMPLICIT NONE
    637621   
    638622    TYPE(distrib),INTENT(IN)          :: new_dist
    … …  
    661645  SUBROUTINE Register_SwapField3d_u2d_bis(FieldS,FieldR,new_dist,a_request,old_dist,up,down)
    662646  USE parallel_lmdz
    663   USE dimensions_mod
    664       IMPLICIT NONE
     647  USE dimensions_mod, ONLY: iim, jjm, llm, ndm      IMPLICIT NONE
    665648   
    666649    TYPE(distrib),INTENT(IN)          :: new_dist
    … …  
    696679  SUBROUTINE Register_SwapField1d_v(FieldS,FieldR,new_dist,a_request,up,down)
    697680  USE parallel_lmdz
    698   USE dimensions_mod
    699       IMPLICIT NONE
     681  USE dimensions_mod, ONLY: iim, jjm, llm, ndm      IMPLICIT NONE
    700682   
    701683    TYPE(distrib),INTENT(IN)          :: new_dist
    … …  
    721703  SUBROUTINE Register_SwapField1d_v_bis(FieldS,FieldR,new_dist,a_request,old_dist,up,down)
    722704  USE parallel_lmdz
    723   USE dimensions_mod
    724       IMPLICIT NONE
     705  USE dimensions_mod, ONLY: iim, jjm, llm, ndm      IMPLICIT NONE
    725706   
    726707    TYPE(distrib),INTENT(IN)          :: new_dist
    … …  
    748729  SUBROUTINE Register_SwapField2d_v1d(FieldS,FieldR,new_dist,a_request,up,down)
    749730  USE parallel_lmdz
    750   USE dimensions_mod
    751       IMPLICIT NONE
     731  USE dimensions_mod, ONLY: iim, jjm, llm, ndm      IMPLICIT NONE
    752732   
    753733    TYPE(distrib),INTENT(IN)          :: new_dist
    … …  
    776756  SUBROUTINE Register_SwapField2d_v1d_bis(FieldS,FieldR,new_dist,a_request,old_dist,up,down)
    777757  USE parallel_lmdz
    778   USE dimensions_mod
    779       IMPLICIT NONE
     758  USE dimensions_mod, ONLY: iim, jjm, llm, ndm      IMPLICIT NONE
    780759   
    781760    TYPE(distrib),INTENT(IN)          :: new_dist
    … …  
    807786  SUBROUTINE Register_SwapField3d_v(FieldS,FieldR,new_dist,a_request,up,down)
    808787  USE parallel_lmdz
    809   USE dimensions_mod
    810       IMPLICIT NONE
     788  USE dimensions_mod, ONLY: iim, jjm, llm, ndm      IMPLICIT NONE
    811789   
    812790    TYPE(distrib),INTENT(IN)          :: new_dist
    … …  
    835813  SUBROUTINE Register_SwapField3d_v_bis(FieldS,FieldR,new_dist,a_request,old_dist,up,down)
    836814  USE parallel_lmdz
    837   USE dimensions_mod
    838       IMPLICIT NONE
     815  USE dimensions_mod, ONLY: iim, jjm, llm, ndm      IMPLICIT NONE
    839816   
    840817    TYPE(distrib),INTENT(IN)          :: new_dist
    … …  
    867844  SUBROUTINE Register_SwapField1d_v2d(FieldS,FieldR,new_dist,a_request,up,down)
    868845  USE parallel_lmdz
    869   USE dimensions_mod
    870       IMPLICIT NONE
     846  USE dimensions_mod, ONLY: iim, jjm, llm, ndm      IMPLICIT NONE
    871847   
    872848    TYPE(distrib),INTENT(IN)          :: new_dist !LF
    … …  
    892868  SUBROUTINE Register_SwapField1d_v2d_bis(FieldS,FieldR,new_dist,a_request,old_dist,up,down)
    893869  USE parallel_lmdz
    894   USE dimensions_mod
    895       IMPLICIT NONE
     870  USE dimensions_mod, ONLY: iim, jjm, llm, ndm      IMPLICIT NONE
    896871   
    897872    TYPE(distrib),INTENT(IN)          :: new_dist !LF
    … …  
    919894  SUBROUTINE Register_SwapField2d_v2d(FieldS,FieldR,new_dist,a_request,up,down)
    920895  USE parallel_lmdz
    921   USE dimensions_mod
    922       IMPLICIT NONE
     896  USE dimensions_mod, ONLY: iim, jjm, llm, ndm      IMPLICIT NONE
    923897   
    924898    TYPE(distrib),INTENT(IN)          :: new_dist
    … …  
    947921  SUBROUTINE Register_SwapField2d_v2d_bis(FieldS,FieldR,new_dist,a_request,old_dist,up,down)
    948922  USE parallel_lmdz
    949   USE dimensions_mod
    950       IMPLICIT NONE
     923  USE dimensions_mod, ONLY: iim, jjm, llm, ndm      IMPLICIT NONE
    951924   
    952925    TYPE(distrib),INTENT(IN)          :: new_dist
    … …  
    977950  SUBROUTINE Register_SwapField3d_v2d(FieldS,FieldR,new_dist,a_request,up,down)
    978951  USE parallel_lmdz
    979   USE dimensions_mod
    980       IMPLICIT NONE
     952  USE dimensions_mod, ONLY: iim, jjm, llm, ndm      IMPLICIT NONE
    981953   
    982954    TYPE(distrib),INTENT(IN)          :: new_dist
    … …  
    1005977  SUBROUTINE Register_SwapField3d_v2d_bis(FieldS,FieldR,new_dist,a_request,old_dist,up,down)
    1006978  USE parallel_lmdz
    1007   USE dimensions_mod
    1008       IMPLICIT NONE
     979  USE dimensions_mod, ONLY: iim, jjm, llm, ndm      IMPLICIT NONE
    1009980   
    1010981    TYPE(distrib),INTENT(IN)          :: new_dist
    … …  
    10361007  SUBROUTINE Register_SwapField_gen_u(FieldS,FieldR,ll,old_dist,new_dist,Up,Down,a_request)
    10371008  USE parallel_lmdz
    1038   USE dimensions_mod
    1039       IMPLICIT NONE
     1009  USE dimensions_mod, ONLY: iim, jjm, llm, ndm      IMPLICIT NONE
    10401010   
    10411011    INTEGER :: ll,Up,Down
    … …  
    10891059  SUBROUTINE Register_SwapField_gen_v(FieldS,FieldR,ll,old_dist,new_dist,Up,Down,a_request)
    10901060  USE parallel_lmdz
    1091   USE dimensions_mod
    1092     IMPLICIT NONE
     1061  USE dimensions_mod, ONLY: iim, jjm, llm, ndm    IMPLICIT NONE
    10931062   
    10941063    INTEGER :: ll,Up,Down
    … …  
    11481117 
    11491118  subroutine Register_Hallo(Field,ij,ll,RUp,Rdown,SUp,SDown,a_request)
    1150   USE dimensions_mod
    1151   USE lmdz_mpi
     1119  USE dimensions_mod, ONLY: iim, jjm, llm, ndm  USE lmdz_mpi
    11521120      implicit none
    11531121
    … …  
    12131181
    12141182  subroutine Register_Hallo_u(Field,ll,RUp,Rdown,SUp,SDown,a_request)
    1215   USE dimensions_mod
    1216   USE lmdz_mpi
     1183  USE dimensions_mod, ONLY: iim, jjm, llm, ndm  USE lmdz_mpi
    12171184      implicit none
    12181185      INTEGER :: ll
    … …  
    12761243
    12771244  subroutine Register_Hallo_v(Field,ll,RUp,Rdown,SUp,SDown,a_request)
    1278   USE dimensions_mod
    1279   USE lmdz_mpi
     1245  USE dimensions_mod, ONLY: iim, jjm, llm, ndm  USE lmdz_mpi
    12801246      implicit none
    12811247      INTEGER :: ll
    … …  
    13391305   
    13401306    subroutine SendRequest(a_Request)
    1341     USE dimensions_mod
    1342     USE lmdz_mpi
     1307    USE dimensions_mod, ONLY: iim, jjm, llm, ndm    USE lmdz_mpi
    13431308      implicit none
    13441309
    … …  
    14571422   
    14581423   subroutine WaitRequest(a_Request)
    1459    USE dimensions_mod
    1460    USE lmdz_mpi
     1424   USE dimensions_mod, ONLY: iim, jjm, llm, ndm   USE lmdz_mpi
    14611425   implicit none
    14621426     
    … …  
    15431507   subroutine WaitSendRequest(a_Request)
    15441508   USE lmdz_mpi
    1545    USE dimensions_mod
    1546    implicit none
     1509   USE dimensions_mod, ONLY: iim, jjm, llm, ndm   implicit none
    15471510   
    15481511      type(request),target :: a_request
    … …  
    15901553   
    15911554   subroutine WaitRecvRequest(a_Request)
    1592    USE dimensions_mod
    1593    USE lmdz_mpi
     1555   USE dimensions_mod, ONLY: iim, jjm, llm, ndm   USE lmdz_mpi
    15941556   implicit none
    15951557      type(request),target :: a_request
    … …  
    16611623   
    16621624    subroutine CopyField(FieldS,FieldR,ij,ll,jj_Nb_New)
    1663     USE dimensions_mod
    1664  
     1625    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    16651626      implicit none
    16661627   
    … …  
    16991660
    17001661  subroutine CopyFieldHallo(FieldS,FieldR,ij,ll,jj_Nb_New,Up,Down)
    1701   USE dimensions_mod
    1702  
     1662  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    17031663      implicit none
    17041664   
    … …  
    17391699
    17401700   subroutine Gather_field_u(field_loc,field_glo,ll)
    1741    USE dimensions_mod
    1742    implicit none
     1701   USE dimensions_mod, ONLY: iim, jjm, llm, ndm   implicit none
    17431702     integer :: ll
    17441703     real :: field_loc(ijb_u:ije_u,ll)
    … …  
    17621721       
    17631722   subroutine Gather_field_v(field_loc,field_glo,ll)
    1764    USE dimensions_mod
    1765    implicit none
     1723   USE dimensions_mod, ONLY: iim, jjm, llm, ndm   implicit none
    17661724     integer :: ll
    17671725     real :: field_loc(ijb_v:ije_v,ll)
    … …  
    17901748     
    17911749   subroutine Scatter_field_u(field_glo,field_loc,ll)
    1792    USE dimensions_mod
    1793    implicit none
     1750   USE dimensions_mod, ONLY: iim, jjm, llm, ndm   implicit none
    17941751     integer :: ll
    17951752     real :: field_glo(ip1jmp1,ll)
    … …  
    18241781
    18251782   subroutine Scatter_field_v(field_glo,field_loc,ll)
    1826    USE dimensions_mod
    1827    implicit none
     1783   USE dimensions_mod, ONLY: iim, jjm, llm, ndm   implicit none
    18281784     integer :: ll
    18291785     real :: field_glo(ip1jmp1,ll)

  • LMDZ6/trunk/libf/dyn3dmem/mod_xios_dyn3dmem.f90

    r5268 r5271  
    4040     USE parallel_lmdz
    4141
    42      IMPLICIT NONE
    43 
    44      INCLUDE 'dimensions.h'
     42     USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     43IMPLICIT NONE
     44
     45
    4546     INCLUDE "paramet.h"
    4647     INCLUDE 'comgeom.h'
    … …  
    133134
    134135     USE parallel_lmdz
    135      IMPLICIT NONE
    136      include 'dimensions.h'
     136     USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     137IMPLICIT NONE
     138
    137139     include 'paramet.h'
    138140     CHARACTER(LEN=*)   :: name
    … …  
    154156
    155157     USE parallel_lmdz
    156      IMPLICIT NONE
    157      include 'dimensions.h'
     158     USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     159IMPLICIT NONE
     160
    158161     include 'paramet.h'
    159162     CHARACTER(LEN=*)   :: name
    … …  
    187190
    188191     USE parallel_lmdz
    189      IMPLICIT NONE
    190      include 'dimensions.h'
     192     USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     193IMPLICIT NONE
     194
    191195     include 'paramet.h'
    192196     CHARACTER(LEN=*)   :: name
    … …  
    217221
    218222     USE parallel_lmdz
    219      IMPLICIT NONE
    220      include 'dimensions.h'
     223     USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     224IMPLICIT NONE
     225
    221226     include 'paramet.h'
    222227     CHARACTER(LEN=*)   :: name

  • LMDZ6/trunk/libf/dyn3dmem/nxgrad_gam_loc.f90

    r5246 r5271  
    1111  USE parallel_lmdz
    1212
    13   IMPLICIT NONE
     13  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     14IMPLICIT NONE
    1415  !
    15   INCLUDE "dimensions.h"
     16
    1617  INCLUDE "paramet.h"
    1718  INCLUDE "comgeom.h"

  • LMDZ6/trunk/libf/dyn3dmem/nxgrad_loc.f90

    r5246 r5271  
    1010  !
    1111  USE parallel_lmdz
    12   IMPLICIT NONE
     12  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     13IMPLICIT NONE
    1314  !
    14   INCLUDE "dimensions.h"
     15
    1516  INCLUDE "paramet.h"
    1617  INCLUDE "comgeom.h"

  • LMDZ6/trunk/libf/dyn3dmem/nxgraro2_loc.f90

    r5246 r5271  
    1818  USE mod_filtreg_p
    1919  USE nxgraro2_mod
    20   IMPLICIT NONE
     20  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     21IMPLICIT NONE
    2122  !
    22   INCLUDE "dimensions.h"
     23
    2324  INCLUDE "paramet.h"
    2425  INCLUDE "comdissipn.h"

  • LMDZ6/trunk/libf/dyn3dmem/nxgraro2_mod.f90

    r5268 r5271  
    1111  USE allocate_field_mod
    1212  USE parallel_lmdz
    13   USE dimensions_mod
    14   IMPLICIT NONE
     13  USE dimensions_mod, ONLY: iim, jjm, llm, ndm  IMPLICIT NONE
    1514    TYPE(distrib),POINTER :: d
    1615    d=>distrib_dissip

  • LMDZ6/trunk/libf/dyn3dmem/parallel_lmdz.F90

    r5267 r5271  
    8585    USE vampir
    8686    USE lmdz_mpi
    87     implicit none
    88       INCLUDE "dimensions.h"
     87    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     88implicit none
     89
    8990      INCLUDE "paramet.h"
    9091      INCLUDE "iniprint.h"
    … …  
    244245
    245246    SUBROUTINE create_distrib(jj_nb_new,d)
    246     IMPLICIT NONE
    247       INCLUDE "dimensions.h"
     247    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     248IMPLICIT NONE
     249
    248250      INCLUDE "paramet.h"
    249251     
    … …  
    295297     
    296298    SUBROUTINE Set_Distrib(d)
    297     IMPLICIT NONE
    298 
    299     INCLUDE "dimensions.h"
     299    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     300IMPLICIT NONE
     301
     302
    300303    INCLUDE "paramet.h"
    301304    TYPE(distrib),INTENT(IN) :: d
    … …  
    331334
    332335    SUBROUTINE copy_distrib(dist,new_dist)
    333     IMPLICIT NONE
    334 
    335     INCLUDE "dimensions.h"
     336    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     337IMPLICIT NONE
     338
     339
    336340    INCLUDE "paramet.h"
    337341    TYPE(distrib),INTENT(INOUT) :: dist
    … …  
    368372   
    369373    SUBROUTINE get_current_distrib(d)
    370     IMPLICIT NONE
    371 
    372     INCLUDE "dimensions.h"
     374    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     375IMPLICIT NONE
     376
     377
    373378    INCLUDE "paramet.h"
    374379    TYPE(distrib),INTENT(OUT) :: d
    … …  
    383388        USE wxios
    384389    USE control_mod, only : ok_dyn_xios
     390    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    385391
    386392#ifdef CPP_COUPLE
    … …  
    401407! #endif of #ifdef CPP_EARTH
    402408
    403       include "dimensions.h"
    404409      include "paramet.h"
    405410
    … …  
    447452       
    448453    subroutine Pack_Data(Field,ij,ll,row,Buffer)
    449     implicit none
    450 
    451       INCLUDE "dimensions.h"
     454    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     455implicit none
     456
     457
    452458      INCLUDE "paramet.h"
    453459
    … …  
    470476     
    471477    subroutine Unpack_Data(Field,ij,ll,row,Buffer)
    472     implicit none
    473 
    474       INCLUDE "dimensions.h"
     478    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     479implicit none
     480
     481
    475482      INCLUDE "paramet.h"
    476483
    … …  
    509516    USE lmdz_mpi
    510517    USE Vampir
    511     implicit none
    512       INCLUDE "dimensions.h"
     518    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     519implicit none
     520
    513521      INCLUDE "paramet.h"   
    514522      INTEGER :: ij,ll
    … …  
    626634    subroutine Gather_Field(Field,ij,ll,rank)
    627635    USE lmdz_mpi
    628     implicit none
    629     INCLUDE "dimensions.h"
     636    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     637implicit none
     638
    630639    INCLUDE "paramet.h"
    631640    INCLUDE "iniprint.h"
    … …  
    706715    subroutine AllGather_Field(Field,ij,ll)
    707716    USE lmdz_mpi
    708     implicit none
    709     INCLUDE "dimensions.h"
     717    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     718implicit none
     719
    710720    INCLUDE "paramet.h"   
    711721      INTEGER :: ij,ll
    … …  
    724734   subroutine Broadcast_Field(Field,ij,ll,rank)
    725735    USE lmdz_mpi
    726     implicit none
    727     INCLUDE "dimensions.h"
     736    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     737implicit none
     738
    728739    INCLUDE "paramet.h"   
    729740      INTEGER :: ij,ll
    … …  
    744755!  Subroutine verif_hallo(Field,ij,ll,up,down)
    745756!    USE lmdz_mpi
    746 !    implicit none
    747 !      INCLUDE "dimensions.h"
     757!    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     758implicit none
     759!
    748760!      INCLUDE "paramet.h"   
    749761!   

  • LMDZ6/trunk/libf/dyn3dmem/pression_loc.f90

    r5246 r5271  
    1212  !  ************************************************************************
    1313  !
    14   IMPLICIT NONE
     14  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     15IMPLICIT NONE
    1516  !
    16   INCLUDE "dimensions.h"
     17
    1718  INCLUDE "paramet.h"
    1819  !

  • LMDZ6/trunk/libf/dyn3dmem/qminimum_loc.f90

    r5246 r5271  
    77        isoCheck, min_qParent
    88  USE strings_mod, ONLY: strIdx
    9   IMPLICIT none
     9  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     10IMPLICIT none
    1011  !
    1112  !  -- Objet : Traiter les valeurs trop petites (meme negatives)
    1213  !         pour l'eau vapeur et l'eau liquide
    1314  !
    14   include "dimensions.h"
     15
    1516  include "paramet.h"
    1617  include "iniprint.h"

  • LMDZ6/trunk/libf/dyn3dmem/rotat_nfil_loc.f90

    r5246 r5271  
    1111  !
    1212  USE parallel_lmdz
    13   IMPLICIT NONE
     13  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     14IMPLICIT NONE
    1415  !
    15   INCLUDE "dimensions.h"
     16
    1617  INCLUDE "paramet.h"
    1718  INCLUDE "comgeom.h"

  • LMDZ6/trunk/libf/dyn3dmem/rotat_p.f90

    r5246 r5271  
    1111  !
    1212  USE parallel_lmdz
    13   IMPLICIT NONE
     13  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     14IMPLICIT NONE
    1415  !
    15   INCLUDE "dimensions.h"
     16
    1617  INCLUDE "paramet.h"
    1718  INCLUDE "comgeom.h"

  • LMDZ6/trunk/libf/dyn3dmem/rotatf_loc.f90

    r5246 r5271  
    1212  USE parallel_lmdz
    1313  USE mod_filtreg_p
    14   IMPLICIT NONE
     14  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     15IMPLICIT NONE
    1516  !
    16   INCLUDE "dimensions.h"
     17
    1718  INCLUDE "paramet.h"
    1819  INCLUDE "comgeom.h"

  • LMDZ6/trunk/libf/dyn3dmem/sw_case_williamson91_6_loc.f90

    r5246 r5271  
    3030  USE comvert_mod, ONLY: ap, bp, preff
    3131
    32   IMPLICIT NONE
     32  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     33IMPLICIT NONE
    3334  !-----------------------------------------------------------------------
    3435  !   Declararations:
    3536  !   ---------------
    3637
    37   include "dimensions.h"
     38
    3839  include "paramet.h"
    3940  include "comgeom.h"

  • LMDZ6/trunk/libf/dyn3dmem/times.f90

    r5268 r5271  
    2626  subroutine init_timer
    2727    USE parallel_lmdz
    28     implicit none
    29     INCLUDE "dimensions.h"
     28    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     29implicit none
     30
    3031    INCLUDE "paramet.h"
    3132   

  • LMDZ6/trunk/libf/dyn3dmem/top_bound_loc.f90

    r5246 r5271  
    88  USE comvert_mod, ONLY: presnivs, preff, scaleheight
    99
    10   IMPLICIT NONE
    11   !
    12   include "dimensions.h"
     10  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     11IMPLICIT NONE
     12  !
     13
    1314  include "paramet.h"
    1415  include "comgeom2.h"
    … …  
    2728  !   ------
    2829  !
    29   !   Dissipation linéaire (ex top_bound de la physique)
     30  !   Dissipation lin�aire (ex top_bound de la physique)
    3031  !
    3132  !=======================================================================

  • LMDZ6/trunk/libf/dyn3dmem/tourpot_loc.f90

    r5268 r5271  
    77  USE parallel_lmdz
    88  USE mod_filtreg_p
    9   IMPLICIT NONE
    10   include "dimensions.h"
     9  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     10IMPLICIT NONE
     11
    1112  include "paramet.h"
    1213  include "comgeom.h"

  • LMDZ6/trunk/libf/dyn3dmem/vitvert_loc.f90

    r5268 r5271  
    88  USE comvert_mod, ONLY: bp
    99 
    10   IMPLICIT NONE
    11   include "dimensions.h"
     10  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     11IMPLICIT NONE
     12
    1213  include "paramet.h"
    1314!===============================================================================

  • LMDZ6/trunk/libf/dyn3dmem/vlsplt_loc.F90

    r5248 r5271  
    1616  USE infotrac, ONLY : nqtot,tracers, & ! CRisi                 &
    1717        min_qParent,min_qMass,min_ratio ! MVals et CRisi
    18   IMPLICIT NONE
    19   !
    20   include "dimensions.h"
     18  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     19IMPLICIT NONE
     20  !
     21
    2122  include "paramet.h"
    2223  include "iniprint.h"
    … …  
    418419        min_qParent,min_qMass,min_ratio ! MVals et CRisi
    419420  USE comconst_mod, ONLY: pi
    420   IMPLICIT NONE
    421   !
    422   include "dimensions.h"
     421  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     422IMPLICIT NONE
     423  !
     424
    423425  include "paramet.h"
    424426  include "comgeom.h"
    … …  
    886888        min_qParent,min_qMass,min_ratio ! MVals et CRisi
    887889
    888   IMPLICIT NONE
    889   !
    890   include "dimensions.h"
     890  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     891IMPLICIT NONE
     892  !
     893
    891894  include "paramet.h"
    892895  include "iniprint.h"
    … …  
    12071210 ! SUBROUTINE minmaxq(zq,qmin,qmax,comment)
    12081211!
    1209 !  INCLUDE "dimensions.h"
     1212!  INCLUDE "dimensions_mod.f90"
    12101213!  INCLUDE "paramet.h"
    12111214

  • LMDZ6/trunk/libf/dyn3dmem/vlspltgen_loc.F90

    r5258 r5271  
    3434  USE logic_mod, ONLY: adv_qsat_liq
    3535  USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_DEBUGIO
    36   IMPLICIT NONE
    37 
    38   !
    39   include "dimensions.h"
     36  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     37IMPLICIT NONE
     38
     39  !
     40
    4041  include "paramet.h"
    4142

  • LMDZ6/trunk/libf/dyn3dmem/vlspltgen_mod.f90

    r5268 r5271  
    1616  USE infotrac
    1717  USE vlz_mod,ONLY : vlz_allocate
    18   IMPLICIT NONE
    19   INCLUDE "dimensions.h"
     18  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     19IMPLICIT NONE
     20
    2021  INCLUDE "paramet.h"
    2122  TYPE(distrib),POINTER :: d

  • LMDZ6/trunk/libf/dyn3dmem/vlspltqs_loc.F90

    r5246 r5271  
    1414  USE infotrac, ONLY : nqtot,tracers, & ! CRisi                 &
    1515        min_qParent,min_qMass,min_ratio ! MVals et CRisi
    16   IMPLICIT NONE
    17   !
    18   include "dimensions.h"
     16  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     17IMPLICIT NONE
     18  !
     19
    1920  include "paramet.h"
    2021  !
    … …  
    423424        min_qParent,min_qMass,min_ratio ! MVals et CRisi
    424425  USE comconst_mod, ONLY: pi
    425   IMPLICIT NONE
    426   !
    427   include "dimensions.h"
     426  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     427IMPLICIT NONE
     428  !
     429
    428430  include "paramet.h"
    429431  include "comgeom.h"

  • LMDZ6/trunk/libf/dyn3dmem/vlz_mod.f90

    r5268 r5271  
    1515  USE parallel_lmdz
    1616  USE infotrac
    17   USE dimensions_mod
    18   IMPLICIT NONE
     17  USE dimensions_mod, ONLY: iim, jjm, llm, ndm  IMPLICIT NONE
    1918  TYPE(distrib),POINTER :: d
    2019   

  • LMDZ6/trunk/libf/dyn3dmem/write_field_loc.f90

    r5268 r5271  
    3737    USE write_field
    3838    USE mod_hallo
    39     implicit none
    40     include 'dimensions.h'
     39    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     40implicit none
     41
    4142    include 'paramet.h'
    4243     
    … …  
    102103    USE write_field
    103104    USE mod_hallo
    104     implicit none
    105     include 'dimensions.h'
     105    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     106implicit none
     107
    106108    include 'paramet.h'
    107109     

  • LMDZ6/trunk/libf/dyn3dmem/writedyn_xios.f90

    r5268 r5271  
    1414      USE mod_xios_dyn3dmem, ONLY : writefield_dyn_u, writefield_dyn_v
    1515     
    16       implicit none
     16      USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     17implicit none
    1718!
    1819!   Ecriture du fichier histoire au format xios
    … …  
    2829!      ps   :pression au sol
    2930!      phis : geopotentiel au sol
    30 !     
     31!
    3132!   L. Fairhead, LMD, 03/21
    3233!
    … …  
    3435!
    3536!   Declarations
    36       include "dimensions.h"
     37
    3738      include "paramet.h"
    3839      include "comgeom.h"

  • LMDZ6/trunk/libf/dyn3dmem/writedynav_loc.f90

    r5268 r5271  
    1515  USE temps_mod, ONLY: itau_dyn
    1616
    17   implicit none
     17  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     18implicit none
    1819
    1920  !
    … …  
    4344  !
    4445  !   Declarations
    45   include "dimensions.h"
     46
    4647  include "paramet.h"
    4748  include "comgeom.h"

  • LMDZ6/trunk/libf/dyn3dmem/writehist_loc.f90

    r5268 r5271  
    1515  USE temps_mod, ONLY: itau_dyn
    1616
    17   implicit none
     17  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     18implicit none
    1819
    1920  !
    … …  
    4344  !
    4445  !   Declarations
    45   include "dimensions.h"
     46
    4647  include "paramet.h"
    4748  include "comgeom.h"
Note: See TracChangeset for help on using the changeset viewer.