Changeset 5271


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

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

Location:
LMDZ6/trunk
Files:
1 deleted
296 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/dyn3d/abort_gcm.F90

    r5267 r5271  
    1010  USE wxios
    1111
    12 #include "iniprint.h"
     12INCLUDE "iniprint.h"
    1313
    1414  !

  • LMDZ6/trunk/libf/dyn3d/addfi.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/dyn3d/advect.f90

    r5246 r5271  
    33!
    44SUBROUTINE advect(ucov,vcov,teta,w,massebx,masseby,du,dv,dteta)
    5 
    65  USE comconst_mod, ONLY: daysec
    76  USE logic_mod, ONLY: conser
    87  USE ener_mod, ONLY: gtot
    9 
     8  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    109  IMPLICIT NONE
    1110  !=======================================================================
    … …  
    2827  !   -------------
    2928
    30   include "dimensions.h"
    3129  include "paramet.h"
    3230  include "comgeom.h"

  • LMDZ6/trunk/libf/dyn3d/advtrac.f90

    r5268 r5271  
    1414   USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_DEBUGIO
    1515   USE strings_mod, ONLY: int2str
    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 "comdissip.h"

  • LMDZ6/trunk/libf/dyn3d/bilan_dyn.f90

    r5268 r5271  
    1515  USE temps_mod, ONLY: annee_ref, day_ref, itau_dyn
    1616
    17   IMPLICIT NONE
    18 
    19   include "dimensions.h"
     17  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     18IMPLICIT NONE
     19
     20
    2021  include "paramet.h"
    2122  include "comgeom2.h"

  • LMDZ6/trunk/libf/dyn3d/caladvtrac.f90

    r5246 r5271  
    1212  USE comconst_mod, ONLY: dtvr
    1313
    14   IMPLICIT NONE
     14  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     15IMPLICIT NONE
    1516  !
    1617  ! Auteurs:   F.Hourdin , P.Le Van, F.Forget, F.Codron
    … …  
    2425
    2526
    26   include "dimensions.h"
     27
    2728  include "paramet.h"
    2829

  • LMDZ6/trunk/libf/dyn3d/caldyn.f90

    r5246 r5271  
    99  USE comvert_mod, ONLY: ap, bp
    1010
    11   IMPLICIT NONE
     11  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     12IMPLICIT NONE
    1213
    1314  !=======================================================================
    … …  
    2728  !   ----------------
    2829
    29   include "dimensions.h"
     30
    3031  include "paramet.h"
    3132  include "comgeom.h"

  • LMDZ6/trunk/libf/dyn3d/check_isotopes.f90

    r5268 r5271  
    55   USE iso_params_mod,  ONLY: tnat_H216O, tnat_H217O, tnat_H218O, tnat_HDO, tnat_HTO
    66   USE ioipsl,          ONLY: getin
    7    IMPLICIT NONE
    8    include "dimensions.h"
     7   USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     8IMPLICIT NONE
     9
    910   REAL,             INTENT(INOUT) :: q(ip1jmp1,llm,nqtot)
    1011   INTEGER,          INTENT(IN)    :: ip1jmp1

  • LMDZ6/trunk/libf/dyn3d/conf_gcm.f90

    r5268 r5271  
    1818  USE temps_mod, ONLY: calend, year_len
    1919
    20   IMPLICIT NONE
     20  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     21IMPLICIT NONE
    2122  !-----------------------------------------------------------------------
    2223  !     Auteurs :   L. Fairhead , P. Le Van  .
    … …  
    2526
    2627  !     tapedef   :
    27   !     etatinit  :     = TRUE   , on ne  compare pas les valeurs des para- 
     28  !     etatinit  :     = TRUE   , on ne  compare pas les valeurs des para-
    2829  !     -metres  du zoom  avec  celles lues sur le fichier start .
    2930
    … …  
    3334  !   Declarations :
    3435  !   --------------
    35   include "dimensions.h"
     36
    3637  include "paramet.h"
    3738  include "comdissnew.h"

  • LMDZ6/trunk/libf/dyn3d/covnat.F90

    r5246 r5271  
    33!
    44SUBROUTINE covnat (klevel,ucov, vcov, unat, vnat )
     5  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    56  IMPLICIT NONE
    67
    … …  
    1920  !=======================================================================
    2021
    21 #include "dimensions.h"
    22 #include "paramet.h"
    23 #include "comgeom.h"
     22INCLUDE "paramet.h"
     23INCLUDE "comgeom.h"
    2424
    2525  INTEGER :: klevel

  • LMDZ6/trunk/libf/dyn3d/dissip.f90

    r5246 r5271  
    66  USE comconst_mod, ONLY: dtdiss
    77
    8   IMPLICIT NONE
     8  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     9IMPLICIT NONE
    910
    1011
    … …  
    2728  !   -------------
    2829
    29   include "dimensions.h"
     30
    3031  include "paramet.h"
    3132  include "comgeom.h"

  • LMDZ6/trunk/libf/dyn3d/dteta1.f90

    r5246 r5271  
    33!
    44SUBROUTINE dteta1 ( teta, pbaru, pbarv, dteta)
     5  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    56  IMPLICIT NONE
    67
    … …  
    2021  !=======================================================================
    2122
    22 
    23   include "dimensions.h"
    2423  include "paramet.h"
    2524

  • LMDZ6/trunk/libf/dyn3d/dudv1.F90

    r5246 r5271  
    33!
    44SUBROUTINE dudv1 ( vorpot, pbaru, pbarv, du, dv )
    5   IMPLICIT NONE
     5  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     6IMPLICIT NONE
    67  !
    78  !-----------------------------------------------------------------------
    … …  
    1920  !-----------------------------------------------------------------------
    2021
    21 #include "dimensions.h"
    22 #include "paramet.h"
     22
     23INCLUDE "paramet.h"
    2324
    2425  REAL :: vorpot( ip1jm,llm ) ,pbaru( ip1jmp1,llm ) , &

  • LMDZ6/trunk/libf/dyn3d/dudv2.f90

    r5246 r5271  
    33!
    44SUBROUTINE dudv2 ( teta, pkf, bern, du, dv  )
    5 
     5  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    66  IMPLICIT NONE
    77  !
    … …  
    2525  !
    2626  !=======================================================================
    27   !
    28   include "dimensions.h"
    2927  include "paramet.h"
    3028

  • LMDZ6/trunk/libf/dyn3d/dynetat0.f90

    r5268 r5271  
    2424  USE strings_mod, ONLY: strIdx
    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 "comgeom2.h"

  • LMDZ6/trunk/libf/dyn3d/dynredem.f90

    r5268 r5271  
    1919  USE ener_mod, ONLY: etot0,ptot0,ztot0,stot0,ang0
    2020 
    21   IMPLICIT NONE
    22   include "dimensions.h"
     21  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     22IMPLICIT NONE
     23
    2324  include "paramet.h"
    2425  include "comgeom2.h"
    … …  
    167168  USE temps_mod, ONLY: itau_dyn, itaufin
    168169 
    169   IMPLICIT NONE
    170   include "dimensions.h"
     170  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     171IMPLICIT NONE
     172
    171173  include "paramet.h"
    172174  include "description.h"

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

    r5268 r5271  
    11MODULE dynredem_mod
    2 
    32  USE netcdf
     3  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    44  PRIVATE
    55  PUBLIC :: dynredem_write_u, dynredem_write_v, dynredem_read_u, err
    66  PUBLIC :: cre_var, put_var1, put_var2, fil, modname, msg
    7   include "dimensions.h"
    87  include "paramet.h"
    98  CHARACTER(LEN=256), SAVE :: fil, modname

  • LMDZ6/trunk/libf/dyn3d/fluxstokenc.f90

    r5268 r5271  
    1313  !cc   ..   Modif. P. Le Van  ( 20/12/97 )  ...
    1414  !
    15   IMPLICIT NONE
     15  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     16IMPLICIT NONE
    1617  !
    17   include "dimensions.h"
     18
    1819  include "paramet.h"
    1920  include "comgeom.h"

  • LMDZ6/trunk/libf/dyn3d/friction.f90

    r5268 r5271  
    44!=======================================================================
    55SUBROUTINE friction(ucov,vcov,pdt)
    6 
    76  USE control_mod
    87  USE IOIPSL
    9 
    108  USE comconst_mod, ONLY: pi
     9  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    1110  IMPLICIT NONE
    1211
    … …  
    2322  !=======================================================================
    2423
    25   include "dimensions.h"
    2624  include "paramet.h"
    2725  include "comgeom2.h"

  • LMDZ6/trunk/libf/dyn3d/gcm.f90

    r5268 r5271  
    55!
    66PROGRAM gcm
    7 
    87  USE IOIPSL
    9 
    10 
    11 
    12 ! ug Pour les sorties XIOS
    13   USE wxios
    14 
     8  USE wxios  ! ug Pour les sorties XIOS
    159  USE filtreg_mod
    1610  USE infotrac, ONLY: nqtot, init_infotrac
    … …  
    2216  USE logic_mod, ONLY: ecripar, iflag_phys, read_start
    2317  USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_PHYS
    24 
    2518!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
    2619  ! FH 2008/05/09 On elimine toutes les clefs physiques dans la dynamique
    … …  
    2922  USE iniphysiq_mod, ONLY: iniphysiq
    3023!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
    31 
     24  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    3225  IMPLICIT NONE
    3326
    … …  
    6255  !   -------------
    6356
    64   include "dimensions.h"
    6557  include "paramet.h"
    6658  include "comdissnew.h"

  • LMDZ6/trunk/libf/dyn3d/groupe.f90

    r5246 r5271  
    66  use comconst_mod, only: ngroup
    77
    8   implicit none
     8  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     9implicit none
    910
    1011  !   sous-programme servant a fitlrer les champs de flux de masse aux
    … …  
    1920  !   pas besoin de w en entree.
    2021
    21   include "dimensions.h"
     22
    2223  include "paramet.h"
    2324  include "comgeom2.h"

  • LMDZ6/trunk/libf/dyn3d/groupeun.f90

    r5246 r5271  
    66  USE comconst_mod, ONLY: ngroup
    77
    8   IMPLICIT NONE
    9 
    10   include "dimensions.h"
     8  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     9IMPLICIT NONE
     10
     11
    1112  include "paramet.h"
    1213  include "comgeom2.h"
    … …  
    140141  USE comconst_mod, ONLY: ngroup
    141142
    142   IMPLICIT NONE
    143 
    144   include "dimensions.h"
     143  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     144IMPLICIT NONE
     145
     146
    145147  include "paramet.h"
    146148  include "comgeom2.h"

  • LMDZ6/trunk/libf/dyn3d/guide_mod.f90

    r5270 r5271  
    7878    USE serre_mod, ONLY: grossismx
    7979
    80     IMPLICIT NONE
    81  
    82     INCLUDE "dimensions.h"
     80    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     81IMPLICIT NONE
     82
     83
    8384    INCLUDE "paramet.h"
    8485
    … …  
    359360    USE comvert_mod, ONLY: ap, bp, preff, presnivs, pressure_exner
    360361 
    361     IMPLICIT NONE
    362  
    363     INCLUDE "dimensions.h"
     362    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     363IMPLICIT NONE
     364
     365
    364366    INCLUDE "paramet.h"
    365367    INCLUDE "iniprint.h"
    … …  
    610612    USE comconst_mod, ONLY: pi
    611613   
    612     IMPLICIT NONE
    613 
    614     INCLUDE "dimensions.h"
     614    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     615IMPLICIT NONE
     616
     617
    615618    INCLUDE "paramet.h"
    616619    INCLUDE "comgeom.h"
    … …  
    676679  use comconst_mod, only: kappa, cpp
    677680  use comvert_mod, only: preff, pressure_exner, bp, ap
    678   IMPLICIT NONE
    679 
    680   include "dimensions.h"
     681  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     682IMPLICIT NONE
     683
     684
    681685  include "paramet.h"
    682686  include "comgeom2.h"
    … …  
    926930    use serre_mod, only: clon, clat, grossismx, grossismy
    927931   
    928     implicit none
    929 
    930     include "dimensions.h"
     932    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     933implicit none
     934
     935
    931936    include "paramet.h"
    932937    include "comgeom2.h"
    … …  
    10961101    use netcdf, only: NF90_GET_VAR, nf90_noerr
    10971102
    1098     IMPLICIT NONE
    1099 
    1100     include "dimensions.h"
     1103    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     1104IMPLICIT NONE
     1105
     1106
    11011107    include "paramet.h"
    11021108
    … …  
    13961402    use netcdf, only: nf90_get_var, nf90_noerr
    13971403
    1398     IMPLICIT NONE
    1399 
    1400     include "dimensions.h"
     1404    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     1405IMPLICIT NONE
     1406
     1407
    14011408    include "paramet.h"
    14021409
    … …  
    16601667    use netcdf, only: nf90_float, nf90_def_var, nf90_put_var
    16611668   
    1662     IMPLICIT NONE
    1663 
    1664     INCLUDE "dimensions.h"
     1669    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     1670IMPLICIT NONE
     1671
     1672
    16651673    INCLUDE "paramet.h"
    16661674    INCLUDE "comgeom2.h"

  • LMDZ6/trunk/libf/dyn3d/iniacademic.f90

    r5268 r5271  
    2626  ! of the American Meteorological Society, 75, 1825.
    2727
    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/dyn3d/integrd.f90

    r5246 r5271  
    1313  USE temps_mod, ONLY: dt
    1414
    15   IMPLICIT NONE
     15  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     16IMPLICIT NONE
    1617
    1718
    … …  
    3132  !   -------------
    3233
    33   include "dimensions.h"
     34
    3435  include "paramet.h"
    3536  include "comgeom.h"

  • LMDZ6/trunk/libf/dyn3d/leapfrog.F90

    r5267 r5271  
    55!
    66SUBROUTINE leapfrog(ucov,vcov,teta,ps,masse,phis,q,time_0)
    7 
    8 
    97  !IM : pour sortir les param. du modele dans un fis. netcdf 110106
    108  use IOIPSL
    … …  
    2624  USE strings_mod, ONLY: msg
    2725  USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_PHYS
    28 
     26  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    2927  IMPLICIT NONE
    3028
    … …  
    5957  !   Declarations:
    6058  !   -------------
    61 
    62   include "dimensions.h"
    6359  include "paramet.h"
    6460  include "comdissnew.h"
    … …  
    452448     ! IF (first) THEN
    453449     !  first=.false.
    454   !#include "ini_paramLMDZ_dyn.h"
     450  !INCLUDE "ini_paramLMDZ_dyn.h"
    455451     ! ENDIF
    456452  !
    457   !#include "write_paramLMDZ_dyn.h"
     453  !INCLUDE "write_paramLMDZ_dyn.h"
    458454
    459455IF (CPPKEY_PHYS) THEN
    … …  
    708704  ! For some Grads outputs of fields
    709705          if (output_grads_dyn) then
    710 #include "write_grads_dyn.h"
     706INCLUDE "write_grads_dyn.h"
    711707          endif
    712708         endif ! of if (leapf.or.(.not.leapf.and.(.not.forward)))
    … …  
    831827  ! For some Grads outputs
    832828            if (output_grads_dyn) then
    833 #include "write_grads_dyn.h"
     829INCLUDE "write_grads_dyn.h"
    834830            endif
    835831

  • LMDZ6/trunk/libf/dyn3d/qminimum.f90

    r5246 r5271  
    66  USE infotrac, ONLY: niso, ntiso, iqIsoPha, tracers, addPhase
    77  USE strings_mod, ONLY: strIdx
    8   IMPLICIT none
     8  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     9IMPLICIT none
    910  !
    1011  !  -- Objet : Traiter les valeurs trop petites (meme negatives)
    1112  !         pour l'eau vapeur et l'eau liquide
    1213  !
    13   include "dimensions.h"
     14
    1415  include "paramet.h"
    1516  !

  • LMDZ6/trunk/libf/dyn3d/replay3d.f90

    r5268 r5271  
    55!
    66PROGRAM replay3d
    7 
    8 
    9 
    10 USE comvert_mod, only :  preff, pa
    11 USE inigeomphy_mod, ONLY: inigeomphy
    12 
    13 
     7  USE comvert_mod, only :  preff, pa
     8  USE inigeomphy_mod, ONLY: inigeomphy
    149  USE control_mod
    1510  USE temps_mod, ONLY: calend,start_time,annee_ref,day_ref, &
    … …  
    2116        grossismx, grossismy, dzoomx, dzoomy,taux,tauy
    2217  USE mod_const_mpi, ONLY: comm_lmdz
    23 
    24 
    25 
    2618!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
    2719  ! FH 2008/05/09 On elimine toutes les clefs physiques dans la dynamique
    … …  
    3022  USE iniphysiq_mod, ONLY: iniphysiq
    3123!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
     24  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    3225
    3326  IMPLICIT NONE
    … …  
    6255  !   Declarations:
    6356  !   -------------
    64 
    65   include "dimensions.h"
    6657  include "paramet.h"
    6758  include "comdissnew.h"

  • LMDZ6/trunk/libf/dyn3d/sw_case_williamson91_6.f90

    r5246 r5271  
    2929  USE comvert_mod, ONLY: ap, bp, preff
    3030
    31   IMPLICIT NONE
     31  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     32IMPLICIT NONE
    3233  !-----------------------------------------------------------------------
    3334  !   Declararations:
    3435  !   ---------------
    3536
    36   include "dimensions.h"
     37
    3738  include "paramet.h"
    3839  include "comgeom.h"

  • LMDZ6/trunk/libf/dyn3d/tetaleveli1j.F90

    r5246 r5271  
    77  ! FH 2008/05/09 On elimine toutes les clefs physiques dans la dynamique
    88   ! USE dimphy
    9   IMPLICIT none
     9  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     10IMPLICIT none
    1011
    11 #include "dimensions.h"
    12   !cccc#include "dimphy.h"
     12
     13  !ccccINCLUDE "dimphy.h"
    1314
    1415  !================================================================
    … …  
    4546  ! REAL ptop, pbot, aist(klon), aisb(klon)
    4647  !
    47 #include "paramet.h"
     48INCLUDE "paramet.h"
    4849  !
    4950  INTEGER :: lt(ip1jm), lb(ip1jm)
    … …  
    5758  !=====================================================================
    5859  if (lnew) then
    59   !   on réinitialise les réindicages et les poids
     60  !   on r�initialise les r�indicages et les poids
    6061  !=====================================================================
    6162
    … …  
    9697  !
    9798  ! ...   Modif . P. Le Van    ( 20/01/98) ....
    98   !   Modif Frédéric Hourdin (3/01/02)
     99  !   Modif Fr�d�ric Hourdin (3/01/02)
    99100
    100101    IF(pgcm(i,lb(i)).EQ.0.OR. &

  • LMDZ6/trunk/libf/dyn3d/tetaleveli1j1.F90

    r5246 r5271  
    77  ! FH 2008/05/09 On elimine toutes les clefs physiques dans la dynamique
    88   ! USE dimphy
    9   IMPLICIT none
     9  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     10IMPLICIT none
    1011
    11 #include "dimensions.h"
    12   !ccc#include "dimphy.h"
     12
     13  !cccINCLUDE "dimphy.h"
    1314
    1415  !================================================================
    … …  
    4546  ! REAL ptop, pbot, aist(klon), aisb(klon)
    4647  !
    47 #include "paramet.h"
     48INCLUDE "paramet.h"
    4849  !
    4950  INTEGER :: lt(ip1jmp1), lb(ip1jmp1)
    … …  
    5758  !=====================================================================
    5859  if (lnew) then
    59   !   on réinitialise les réindicages et les poids
     60  !   on r�initialise les r�indicages et les poids
    6061  !=====================================================================
    6162
    … …  
    9697  !
    9798  ! ...   Modif . P. Le Van    ( 20/01/98) ....
    98   !   Modif Frédéric Hourdin (3/01/02)
     99  !   Modif Fr�d�ric Hourdin (3/01/02)
    99100
    100101    IF(pgcm(i,lb(i)).EQ.0.OR. &

  • LMDZ6/trunk/libf/dyn3d/top_bound.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  !=======================================================================
    … …  
    5455
    5556
    56 #include "comdissipn.h"
    57 #include "iniprint.h"
     57INCLUDE "comdissipn.h"
     58INCLUDE "iniprint.h"
    5859
    5960  !   Arguments:

  • LMDZ6/trunk/libf/dyn3d/vlsplt.F90

    r5248 r5271  
    1919  !
    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
    … …  
    136137  !
    137138  !   --------------------------------------------------------------------
    138   IMPLICIT NONE
    139   !
    140   include "dimensions.h"
     139  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     140IMPLICIT NONE
     141  !
     142
    141143  include "paramet.h"
    142144  include "iniprint.h"
    … …  
    495497  !   --------------------------------------------------------------------
    496498  USE comconst_mod, ONLY: pi
    497   IMPLICIT NONE
    498   !
    499   include "dimensions.h"
     499  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     500IMPLICIT NONE
     501  !
     502
    500503  include "paramet.h"
    501504  include "comgeom.h"
    … …  
    857860  !
    858861  !   --------------------------------------------------------------------
    859   IMPLICIT NONE
    860   !
    861   include "dimensions.h"
     862  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     863IMPLICIT NONE
     864  !
     865
    862866  include "paramet.h"
    863867  !
    … …  
    10141018 ! SUBROUTINE minmaxq(zq,qmin,qmax,comment)
    10151019!
    1016 !#include "dimensions.h"
    1017 !#include "paramet.h"
     1020!INCLUDE "dimensions_mod.f90"
     1021!INCLUDE "paramet.h"
    10181022
    10191023!  CHARACTER*(*) comment
    … …  
    10431047!  end
    10441048subroutine minmaxq(zq,qmin,qmax,comment)
    1045 
    1046 #include "dimensions.h"
    1047 #include "paramet.h"
     1049  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     1050  INCLUDE "paramet.h"
    10481051
    10491052  character(len=20) :: comment

  • LMDZ6/trunk/libf/dyn3d/vlspltqs.F90

    r5246 r5271  
    2626  USE comconst_mod, ONLY: cpp
    2727  USE logic_mod, ONLY: adv_qsat_liq
    28   IMPLICIT NONE
    29   !
    30   include "dimensions.h"
     28  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     29IMPLICIT NONE
     30  !
     31
    3132  include "paramet.h"
    3233
    … …  
    190191  !
    191192  !   --------------------------------------------------------------------
    192   IMPLICIT NONE
    193   !
    194   include "dimensions.h"
     193  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     194IMPLICIT NONE
     195  !
     196
    195197  include "paramet.h"
    196198  !
    … …  
    554556  USE comconst_mod, ONLY: pi
    555557
    556   IMPLICIT NONE
    557   !
    558   include "dimensions.h"
     558  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     559IMPLICIT NONE
     560  !
     561
    559562  include "paramet.h"
    560563  include "comgeom.h"

  • LMDZ6/trunk/libf/dyn3d/wrgrads.F90

    r5246 r5271  
    1212  !    titlevar   Titre
    1313
    14 #include "gradsdef.h"
     14INCLUDE "gradsdef.h"
    1515
    1616  !   arguments

  • LMDZ6/trunk/libf/dyn3d_common/adaptdt.f90

    r5246 r5271  
    66
    77  USE comconst_mod, ONLY: dtvr
    8   IMPLICIT NONE
     8  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     9IMPLICIT NONE
    910
    10   include "dimensions.h"
     11
    1112  include "paramet.h"
    1213  include "comdissip.h"

  • LMDZ6/trunk/libf/dyn3d_common/advn.F90

    r5246 r5271  
    1515  !
    1616  !   --------------------------------------------------------------------
    17   IMPLICIT NONE
    18   !
    19   include "dimensions.h"
     17  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     18IMPLICIT NONE
     19  !
     20
    2021  include "paramet.h"
    2122  include "comgeom.h"
    … …  
    144145  !
    145146  !   --------------------------------------------------------------------
    146   IMPLICIT NONE
    147   !
    148   INCLUDE "dimensions.h"
     147  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     148IMPLICIT NONE
     149  !
     150
    149151  INCLUDE "paramet.h"
    150152  INCLUDE "iniprint.h"
    … …  
    261263  !
    262264  !   --------------------------------------------------------------------
    263   IMPLICIT NONE
    264   !
    265   INCLUDE "dimensions.h"
     265  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     266IMPLICIT NONE
     267  !
     268
    266269  INCLUDE "paramet.h"
    267270  INCLUDE "iniprint.h"
    … …  
    357360  !
    358361  !   --------------------------------------------------------------------
    359   IMPLICIT NONE
    360   !
    361   INCLUDE "dimensions.h"
     362  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     363IMPLICIT NONE
     364  !
     365
    362366  INCLUDE "paramet.h"
    363367  INCLUDE "iniprint.h"
    … …  
    479483  !
    480484  !   --------------------------------------------------------------------
    481   IMPLICIT NONE
    482   !
    483   include "dimensions.h"
     485  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     486IMPLICIT NONE
     487  !
     488
    484489  include "paramet.h"
    485490  include "iniprint.h"
    … …  
    744749  !
    745750  !   --------------------------------------------------------------------
    746   IMPLICIT NONE
    747   !
    748   INCLUDE "dimensions.h"
     751  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     752IMPLICIT NONE
     753  !
     754
    749755  INCLUDE "paramet.h"
    750756  INCLUDE "comgeom.h"
    … …  
    875881  !
    876882  !   --------------------------------------------------------------------
    877   IMPLICIT NONE
    878   !
    879   INCLUDE "dimensions.h"
     883  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     884IMPLICIT NONE
     885  !
     886
    880887  INCLUDE "paramet.h"
    881888  INCLUDE "comgeom.h"

  • LMDZ6/trunk/libf/dyn3d_common/advx.f90

    r5246 r5271  
    44SUBROUTINE  advx(limit,dtx,pbaru,sm,s0, &
    55        sx,sy,sz,lati,latf)
    6   IMPLICIT NONE
     6  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     7IMPLICIT NONE
    78
    89  !CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
    … …  
    2324  !  parametres principaux du modele
    2425  !
    25   include "dimensions.h"
     26
    2627  include "paramet.h"
    2728

  • LMDZ6/trunk/libf/dyn3d_common/advxp.f90

    r5246 r5271  
    44 SUBROUTINE ADVXP(LIMIT,DTX,PBARU,SM,S0,SSX,SY,SZ &
    55         ,SSXX,SSXY,SSXZ,SYY,SYZ,SZZ,ntra)
    6    IMPLICIT NONE
     6   USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     7IMPLICIT NONE
    78  !CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
    89  !                                                                 C
    … …  
    1314  !  parametres principaux du modele
    1415  !
    15   include "dimensions.h"
     16
    1617  include "paramet.h"
    1718

  • LMDZ6/trunk/libf/dyn3d_common/advy.f90

    r5246 r5271  
    33!
    44SUBROUTINE advy(limit,dty,pbarv,sm,s0,sx,sy,sz)
    5   IMPLICIT NONE
     5  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     6IMPLICIT NONE
    67
    78  !CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
    … …  
    2627  !
    2728  !
    28   include "dimensions.h"
     29
    2930  include "paramet.h"
    3031  include "comgeom2.h"

  • LMDZ6/trunk/libf/dyn3d_common/advyp.f90

    r5246 r5271  
    44SUBROUTINE ADVYP(LIMIT,DTY,PBARV,SM,S0,SSX,SY,SZ &
    55        ,SSXX,SSXY,SSXZ,SYY,SYZ,SZZ,ntra )
    6   IMPLICIT NONE
     6  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     7IMPLICIT NONE
    78  !CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
    89  !                                                                 C
    … …  
    2829  !
    2930  !
    30   include "dimensions.h"
     31
    3132  include "paramet.h"
    3233  include "comgeom.h"

  • LMDZ6/trunk/libf/dyn3d_common/advz.f90

    r5246 r5271  
    33!
    44SUBROUTINE advz(limit,dtz,w,sm,s0,sx,sy,sz)
    5   IMPLICIT NONE
     5  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     6IMPLICIT NONE
    67
    78  !CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
    … …  
    2122  !  parametres principaux du modele
    2223  !
    23   include "dimensions.h"
     24
    2425  include "paramet.h"
    2526

  • LMDZ6/trunk/libf/dyn3d_common/advzp.f90

    r5246 r5271  
    55        ,SSXX,SSXY,SSXZ,SYY,SYZ,SZZ,ntra )
    66
    7   IMPLICIT NONE
     7  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     8IMPLICIT NONE
    89
    910  !CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
    … …  
    3132  !  parametres principaux du modele
    3233  !
    33   include "dimensions.h"
     34
    3435  include "paramet.h"
    3536  include "comgeom.h"

  • LMDZ6/trunk/libf/dyn3d_common/bernoui.f90

    r5246 r5271  
    33!
    44SUBROUTINE bernoui (ngrid,nlay,pphi,pecin,pbern)
    5   IMPLICIT NONE
     5  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     6IMPLICIT NONE
    67
    78  !=======================================================================
    … …  
    2526  !   -------------
    2627  !
    27   include "dimensions.h"
     28
    2829  include "paramet.h"
    2930  !

  • LMDZ6/trunk/libf/dyn3d_common/caldyn0.f90

    r5268 r5271  
    88  USE control_mod, ONLY: resetvarc
    99  USE comvert_mod, ONLY: ap, bp
    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/dyn3d_common/comvert_mod.f90

    r5268 r5271  
    44MODULE comvert_mod
    55
    6 IMPLICIT NONE 
     6USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     7IMPLICIT NONE
    78
    89PRIVATE
    9 INCLUDE "dimensions.h"
     10
    1011
    1112PUBLIC :: ap,bp,presnivs,dpres,sig,ds,pa,preff,nivsigs,nivsig, &

  • LMDZ6/trunk/libf/dyn3d_common/convflu.f90

    r5246 r5271  
    1818  ! nbniv   est le nombre de niveaux vert. de  xflu et de yflu .
    1919  !
    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  REAL :: xflu,yflu,convfl,convpn,convps

  • LMDZ6/trunk/libf/dyn3d_common/convmas.f90

    r5268 r5271  
    55!-------------------------------------------------------------------------------
    66! Purpose: Compute mass flux convergence at p levels.
    7   IMPLICIT NONE
    8   include "dimensions.h"
     7  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     8IMPLICIT NONE
     9
    910  include "paramet.h"
    1011  include "comgeom.h"

  • LMDZ6/trunk/libf/dyn3d_common/coordij.f90

    r5246 r5271  
    1313  USE comconst_mod, ONLY: pi
    1414
    15   IMPLICIT NONE
     15  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     16IMPLICIT NONE
    1617  REAL :: lon,lat
    1718  INTEGER :: ilon,jlat
    1819  INTEGER :: i,j
    1920
    20   include "dimensions.h"
     21
    2122  include "paramet.h"
    2223  include "comgeom.h"

  • LMDZ6/trunk/libf/dyn3d_common/covcont.f90

    r5268 r5271  
    66! Purpose: Compute contravariant components from covariant components.
    77!-------------------------------------------------------------------------------
    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/dyn3d_common/diagedyn.f90

    r5246 r5271  
    5555  USE control_mod, ONLY : planet_type
    5656
    57   IMPLICIT NONE
    58   !
    59   INCLUDE "dimensions.h"
     57  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     58IMPLICIT NONE
     59  !
     60
    6061  INCLUDE "paramet.h"
    6162  INCLUDE "comgeom.h"

  • LMDZ6/trunk/libf/dyn3d_common/disvert.f90

    r5268 r5271  
    1010  USE logic_mod, ONLY: ok_strato
    1111
    12   IMPLICIT NONE
    13 
    14   include "dimensions.h"
     12  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     13IMPLICIT NONE
     14
     15
    1516  include "paramet.h"
    1617  include "iniprint.h"

  • LMDZ6/trunk/libf/dyn3d_common/disvert_noterre.f90

    r5268 r5271  
    1313  USE logic_mod, ONLY: hybrid
    1414
    15   IMPLICIT NONE
    16 
    17   include "dimensions.h"
     15  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     16IMPLICIT NONE
     17
     18
    1819  include "paramet.h"
    1920  include "iniprint.h"

  • LMDZ6/trunk/libf/dyn3d_common/diverg.f90

    r5246 r5271  
    1111  !          x et y  etant des composantes covariantes   ...
    1212  !  *********************************************************************
    13   IMPLICIT NONE
     13  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     14IMPLICIT NONE
    1415  !
    1516  !  x  et  y  sont des arguments  d'entree pour le s-prog
    … …  
    2223  !
    2324  !   ---------------------------------------------------------------------
    24   INCLUDE "dimensions.h"
     25
    2526  INCLUDE "paramet.h"
    2627  INCLUDE "comgeom.h"

  • LMDZ6/trunk/libf/dyn3d_common/diverg_gam.f90

    r5246 r5271  
    1212  !          x et y  etant des composantes covariantes   ...
    1313  !  *********************************************************************
    14   IMPLICIT NONE
     14  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     15IMPLICIT NONE
    1516  !
    1617  !  x  et  y  sont des arguments  d'entree pour le s-prog
    … …  
    2324  !
    2425  !   ---------------------------------------------------------------------
    25   INCLUDE "dimensions.h"
     26
    2627  INCLUDE "paramet.h"
    2728  INCLUDE "comgeom.h"

  • LMDZ6/trunk/libf/dyn3d_common/divergf.f90

    r5246 r5271  
    1111  !          x et y  etant des composantes covariantes   ...
    1212  !  *********************************************************************
    13   IMPLICIT NONE
     13  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     14IMPLICIT NONE
    1415  !
    1516  !  x  et  y  sont des arguments  d'entree pour le s-prog
    … …  
    2223  !
    2324  !   ---------------------------------------------------------------------
    24   INCLUDE "dimensions.h"
     25
    2526  INCLUDE "paramet.h"
    2627  INCLUDE "comgeom.h"

  • LMDZ6/trunk/libf/dyn3d_common/divergst.f90

    r5246 r5271  
    33!
    44SUBROUTINE divergst(klevel,x,y,div)
     5  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    56  IMPLICIT NONE
    67  !
    … …  
    1718  !   -------------------------------------------------------------------
    1819  !
    19   INCLUDE "dimensions.h"
    2020  INCLUDE "paramet.h"
    2121  INCLUDE "comgeom.h"

  • LMDZ6/trunk/libf/dyn3d_common/divgrad.f90

    r5246 r5271  
    33!
    44SUBROUTINE divgrad (klevel,h, lh, divgra )
    5   IMPLICIT NONE
     5  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     6IMPLICIT NONE
    67  !
    78  !=======================================================================
    … …  
    2021  !   -------------
    2122  !
    22   include "dimensions.h"
     23
    2324  include "paramet.h"
    2425  include "comgeom.h"

  • LMDZ6/trunk/libf/dyn3d_common/divgrad2.f90

    r5246 r5271  
    1313  !     divgra     est  un argument  de sortie pour le s-prg
    1414  !
    15   IMPLICIT NONE
     15  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     16IMPLICIT NONE
    1617  !
    17   INCLUDE "dimensions.h"
     18
    1819  INCLUDE "paramet.h"
    1920  INCLUDE "comgeom2.h"

  • LMDZ6/trunk/libf/dyn3d_common/ener_mod.f90

    r5268 r5271  
    44MODULE ener_mod
    55
    6 IMPLICIT NONE 
     6USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     7IMPLICIT NONE
    78
    8 include "dimensions.h"
     9
    910include "paramet.h"
    1011

  • LMDZ6/trunk/libf/dyn3d_common/enercin.f90

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

  • LMDZ6/trunk/libf/dyn3d_common/exner_hyb_m.f90

    r5268 r5271  
    3636    USE comvert_mod, ONLY: preff
    3737   
    38     IMPLICIT NONE
    39    
    40     include "dimensions.h"
     38    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     39IMPLICIT NONE
     40
     41
    4142    include "paramet.h"
    4243    include "comgeom.h"

  • LMDZ6/trunk/libf/dyn3d_common/exner_milieu_m.f90

    r5268 r5271  
    3333    USE comvert_mod, ONLY: preff
    3434   
    35     IMPLICIT NONE
    36    
    37     include "dimensions.h"
     35    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     36IMPLICIT NONE
     37
     38
    3839    include "paramet.h"
    3940    include "comgeom.h"

  • LMDZ6/trunk/libf/dyn3d_common/flumass.f90

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

  • LMDZ6/trunk/libf/dyn3d_common/fxhyp_m.f90

    r5268 r5271  
    2323    use principal_cshift_m, only: principal_cshift
    2424    use serre_mod, only: clon, grossismx, dzoomx, taux
    25 
    26     include "dimensions.h"
    27     ! for iim
     25    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    2826
    2927    REAL, intent(out):: xprimm025(:), rlonv(:), xprimv(:) ! (iim + 1)

  • LMDZ6/trunk/libf/dyn3d_common/fxy.f90

    r5246 r5271  
    99  USE serre_mod, ONLY: pxo,pyo,alphax,alphay,transx,transy
    1010
    11   IMPLICIT NONE
     11  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     12IMPLICIT NONE
    1213
    1314  ! Auteur  :  P. Le Van
    … …  
    1718  !
    1819  !
    19   include "dimensions.h"
     20
    2021  include "paramet.h"
    2122

  • LMDZ6/trunk/libf/dyn3d_common/fxysinus.f90

    r5246 r5271  
    88
    99  USE comconst_mod, ONLY: pi
    10   IMPLICIT NONE
     10  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     11IMPLICIT NONE
    1112  !
    1213  ! Calcul  des longitudes et des latitudes  pour une fonction f(x,y)
    … …  
    1617  !
    1718  !
    18   INCLUDE "dimensions.h"
     19
    1920  INCLUDE "paramet.h"
    2021

  • LMDZ6/trunk/libf/dyn3d_common/fyhyp_m.f90

    r5268 r5271  
    1919    use nrtype, only: k8
    2020    use serre_mod, only: clat, grossismy, dzoomy, tauy
    21 
    22     include "dimensions.h"
    23     ! for jjm
     21    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    2422
    2523    REAL, intent(out):: rlatu(jjm + 1), yyprimu(jjm + 1)

  • LMDZ6/trunk/libf/dyn3d_common/geopot.f90

    r5246 r5271  
    33!
    44SUBROUTINE geopot (ngrid, teta, pk, pks, phis, phi )
    5   IMPLICIT NONE
     5  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     6IMPLICIT NONE
    67
    78  !=======================================================================
    … …  
    2728  !   -------------
    2829
    29   include "dimensions.h"
     30
    3031  include "paramet.h"
    3132

  • LMDZ6/trunk/libf/dyn3d_common/gr_u_scal.f90

    r5246 r5271  
    2525  !
    2626  !=======================================================================
    27   IMPLICIT NONE
     27  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     28IMPLICIT NONE
    2829  !-----------------------------------------------------------------------
    2930  !   Declararations:
    3031  !   ---------------
    3132
    32   INCLUDE "dimensions.h"
     33
    3334  INCLUDE "paramet.h"
    3435  INCLUDE "comgeom.h"

  • LMDZ6/trunk/libf/dyn3d_common/gr_v_scal.f90

    r5246 r5271  
    2525  !
    2626  !=======================================================================
    27   IMPLICIT NONE
     27  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     28IMPLICIT NONE
    2829  !-----------------------------------------------------------------------
    2930  !   Declararations:
    3031  !   ---------------
    3132
    32   INCLUDE "dimensions.h"
     33
    3334  INCLUDE "paramet.h"
    3435  INCLUDE "comgeom.h"

  • LMDZ6/trunk/libf/dyn3d_common/grad.f90

    r5246 r5271  
    1313  !   pgx  et  pgy    sont des arguments de sortie pour le s-prog
    1414  !
    15   IMPLICIT NONE
     15  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     16IMPLICIT NONE
    1617  !
    17   INCLUDE "dimensions.h"
     18
    1819  INCLUDE "paramet.h"
    1920  INTEGER :: klevel

  • LMDZ6/trunk/libf/dyn3d_common/gradiv.f90

    r5246 r5271  
    1717  !
    1818  !
    19   IMPLICIT NONE
     19  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     20IMPLICIT NONE
    2021  !
    21   include "dimensions.h"
     22
    2223  include "paramet.h"
    2324  include "comdissipn.h"

  • LMDZ6/trunk/libf/dyn3d_common/gradiv2.f90

    r5246 r5271  
    1616  !
    1717  !
    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  INCLUDE "comgeom.h"

  • LMDZ6/trunk/libf/dyn3d_common/grilles_gcm_netcdf_sub.f90

    r5270 r5271  
    1717          nf90_put_att, nf90_enddef, nf90_create
    1818 
    19   IMPLICIT NONE
    20 
    21   INCLUDE "dimensions.h"
     19  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     20IMPLICIT NONE
     21
     22
    2223  INCLUDE "paramet.h"
    2324  INCLUDE "comgeom.h"

  • LMDZ6/trunk/libf/dyn3d_common/infotrac.f90

    r5268 r5271  
    120120   USE lmdz_reprobus_wrappers, ONLY: Init_chem_rep_trac
    121121   USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_INCA, CPPKEY_REPROBUS, CPPKEY_STRATAER
    122    IMPLICIT NONE
     122   USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     123IMPLICIT NONE
    123124!==============================================================================================================================
    124125!
    … …  
    140141!------------------------------------------------------------------------------------------------------------------------------
    141142! Declarations:
    142    INCLUDE "dimensions.h"
     143
    143144   INCLUDE "iniprint.h"
    144145

  • LMDZ6/trunk/libf/dyn3d_common/iniconst.f90

    r5268 r5271  
    1111  USE comvert_mod, ONLY: disvert_type, pressure_exner
    1212 
    13   IMPLICIT NONE
     13  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     14IMPLICIT NONE
    1415  !
    1516  !      P. Le Van
    … …  
    1819  !   -------------
    1920  !
    20   include "dimensions.h"
     21
    2122  include "paramet.h"
    2223  include "iniprint.h"

  • LMDZ6/trunk/libf/dyn3d_common/inidissip.f90

    r5268 r5271  
    1616  USE comvert_mod, ONLY: preff, presnivs
    1717
    18   IMPLICIT NONE
    19   include "dimensions.h"
     18  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     19IMPLICIT NONE
     20
    2021  include "paramet.h"
    2122  include "comdissipn.h"

  • LMDZ6/trunk/libf/dyn3d_common/inigeom.f90

    r5246 r5271  
    2222  USE serre_mod, ONLY: clon,clat,grossismx,grossismy,dzoomx,dzoomy, &
    2323        alphax,alphay,taux,tauy,transx,transy,pxo,pyo
    24   IMPLICIT NONE
    25   !
    26   include "dimensions.h"
     24  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     25IMPLICIT NONE
     26  !
     27
    2728  include "paramet.h"
    2829  include "comgeom2.h"

  • LMDZ6/trunk/libf/dyn3d_common/initdynav.f90

    r5268 r5271  
    1111  USE temps_mod, ONLY: itau_dyn
    1212 
    13   implicit none
     13  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     14implicit none
    1415
    1516
    … …  
    3435  !   L. Fairhead, LMD, 03/99
    3536
    36   include "dimensions.h"
     37
    3738  include "paramet.h"
    3839  include "comgeom.h"

  • LMDZ6/trunk/libf/dyn3d_common/initfluxsto.f90

    r5268 r5271  
    1111  USE temps_mod, ONLY: annee_ref, day_ref, itau_dyn
    1212
    13   implicit none
     13  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     14implicit none
    1415
    1516  !
    … …  
    4041  !
    4142  !   Declarations
    42   include "dimensions.h"
     43
    4344  include "paramet.h"
    4445  include "comgeom.h"

  • LMDZ6/trunk/libf/dyn3d_common/inithist.f90

    r5268 r5271  
    1212   USE temps_mod, ONLY: itau_dyn
    1313
    14   implicit none
     14  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     15implicit none
    1516
    1617  !
    … …  
    3940  !
    4041  !   Declarations
    41   include "dimensions.h"
     42
    4243  include "paramet.h"
    4344  include "comgeom.h"

  • LMDZ6/trunk/libf/dyn3d_common/inter_barxy_m.f90

    r5268 r5271  
    66  ! Authors: Robert SADOURNY, Phu LE VAN, Lionel GUEZ
    77
    8   implicit none
     8  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     9implicit none
    910
    1011  private
    … …  
    1819    use assert_m, only: assert
    1920
    20     include "dimensions.h"
     21
    2122    ! (for "iim", "jjm")
    2223

  • LMDZ6/trunk/libf/dyn3d_common/interpost.f90

    r5246 r5271  
    44  subroutine interpost(q,qppm)
    55
    6    implicit none
     6   USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     7implicit none
    78
    89
    9   include "dimensions.h"
     10
    1011  include "paramet.h"
    1112  include "comgeom2.h"
    … …  
    1819
    1920  ! RE-INVERSION DES NIVEAUX
    20   ! le programme ppm3d travaille avec une 3ème coordonnée inversée par rapport
     21  ! le programme ppm3d travaille avec une 3�me coordonn�e invers�e par rapport
    2122  ! de celle du LMDZ: z=1<=>niveau max, z=llm+1<=>surface
    22   ! On passe donc des niveaux de Lin à ceux du LMDZ
     23  ! On passe donc des niveaux de Lin � ceux du LMDZ
    2324
    2425    do l=1,llm

  • LMDZ6/trunk/libf/dyn3d_common/interpre.f90

    r5246 r5271  
    99  USE comvert_mod, ONLY: ap, bp
    1010
    11    implicit none
     11   USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     12implicit none
    1213
    13   include "dimensions.h"
     14
    1415  include "paramet.h"
    1516  include "comdissip.h"
    … …  
    4142
    4243    ! CALCUL DE LA PRESSION DE SURFACE
    43     ! Les coefficients ap et bp sont passés en common
    44     ! Calcul de la pression au sol en mb optimisée pour
     44    ! Les coefficients ap et bp sont pass�s en common
     45    ! Calcul de la pression au sol en mb optimis�e pour
    4546    ! la vectorialisation
    4647
    … …  
    6768  ! RECONSTRUCTION DES CHAMPS CONTRAVARIANTS
    6869  ! Le programme ppm3d travaille avec les composantes
    69   ! de vitesse et pas les flux, on doit donc passer de l'un à l'autre
    70   ! Dans le même temps, on fait le changement d'orientation du vent en v
     70  ! de vitesse et pas les flux, on doit donc passer de l'un � l'autre
     71  ! Dans le m�me temps, on fait le changement d'orientation du vent en v
    7172  do l=1,llm
    7273      do j=1,jjm
    … …  
    99100
    100101  ! INVERSION DES NIVEAUX
    101   ! le programme ppm3d travaille avec une 3ème coordonnée inversée par rapport
     102  ! le programme ppm3d travaille avec une 3�me coordonn�e invers�e par rapport
    102103  ! de celle du LMDZ: z=1<=>niveau max, z=llm+1<=>surface
    103   ! On passe donc des niveaux du LMDZ à ceux de Lin
     104  ! On passe donc des niveaux du LMDZ � ceux de Lin
    104105
    105106  do l=1,llm+1

  • LMDZ6/trunk/libf/dyn3d_common/invert_zoom_x_m.f90

    r5268 r5271  
    11module invert_zoom_x_m
    22
    3   implicit none
     3  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     4implicit none
    45
    56  INTEGER, PARAMETER:: nmax = 30000
    … …  
    1314    use serre_mod, only: clon
    1415
    15     include "dimensions.h"
     16
    1617    ! for iim
    1718

  • LMDZ6/trunk/libf/dyn3d_common/laplacien.f90

    r5246 r5271  
    1212  !  divgra     est  un argument  de sortie pour le s-prog
    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  INCLUDE "comgeom.h"

  • LMDZ6/trunk/libf/dyn3d_common/laplacien_gam.f90

    r5246 r5271  
    1414  !  divgra     est  un argument  de sortie pour le s-prog
    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/dyn3d_common/laplacien_rot.f90

    r5246 r5271  
    1313  !  rotout           est  un argument  de sortie pour le s-prog
    1414  !
    15   IMPLICIT NONE
     15  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     16IMPLICIT NONE
    1617  !
    17   INCLUDE "dimensions.h"
     18
    1819  INCLUDE "paramet.h"
    1920  INCLUDE "comgeom.h"

  • LMDZ6/trunk/libf/dyn3d_common/laplacien_rotgam.f90

    r5246 r5271  
    1212  !  divgra     est  un argument  de sortie pour le s-prog
    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  INCLUDE "comgeom.h"

  • LMDZ6/trunk/libf/dyn3d_common/limx.f90

    r5246 r5271  
    1313  !
    1414  !   --------------------------------------------------------------------
    15   IMPLICIT NONE
     15  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     16IMPLICIT NONE
    1617  !
    17   include "dimensions.h"
     18
    1819  include "paramet.h"
    1920  include "comgeom.h"

  • LMDZ6/trunk/libf/dyn3d_common/limy.f90

    r5246 r5271  
    1515  !   --------------------------------------------------------------------
    1616  USE comconst_mod, ONLY: pi
    17   IMPLICIT NONE
     17  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     18IMPLICIT NONE
    1819  !
    19   include "dimensions.h"
     20
    2021  include "paramet.h"
    2122  include "comgeom.h"

  • LMDZ6/trunk/libf/dyn3d_common/limz.f90

    r5246 r5271  
    1313  !
    1414  !   --------------------------------------------------------------------
    15   IMPLICIT NONE
     15  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     16IMPLICIT NONE
    1617  !
    17   include "dimensions.h"
     18
    1819  include "paramet.h"
    1920  include "comgeom.h"

  • LMDZ6/trunk/libf/dyn3d_common/massbar.f90

    r5268 r5271  
    66! Purpose: Compute air mass mean along X and Y in each cell.
    77! See iniconst for more details.
    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/dyn3d_common/massbarxy.f90

    r5268 r5271  
    66! Purpose: Compute air mass mean along X and Y in each cell.
    77! See iniconst for more details.
    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/dyn3d_common/massdair.f90

    r5246 r5271  
    1616  !  ....  p est defini aux interfaces des llm couches   .....
    1717  !
    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  include "comgeom.h"

  • LMDZ6/trunk/libf/dyn3d_common/nxgrad.f90

    r5246 r5271  
    1212  !   x  et y    sont des arguments de sortie pour le s-prog
    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  INCLUDE "comgeom.h"

  • LMDZ6/trunk/libf/dyn3d_common/nxgrad_gam.f90

    r5246 r5271  
    1212  !   x  et y    sont des arguments de sortie pour le s-prog
    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  INCLUDE "comgeom.h"

  • LMDZ6/trunk/libf/dyn3d_common/nxgradst.f90

    r5246 r5271  
    44SUBROUTINE nxgradst (klevel,rot, x, y )
    55  !
    6   IMPLICIT NONE
     6  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     7IMPLICIT NONE
    78  ! Auteur :  P. Le Van
    89  !
    … …  
    1314  !   x  et y    sont des arguments de sortie pour le s-prog
    1415  !
    15   INCLUDE "dimensions.h"
     16
    1617  INCLUDE "paramet.h"
    1718  INCLUDE "comgeom.h"

  • LMDZ6/trunk/libf/dyn3d_common/nxgraro2.f90

    r5246 r5271  
    1515  !
    1616  !
    17   IMPLICIT NONE
     17  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     18IMPLICIT NONE
    1819  !
    19   INCLUDE "dimensions.h"
     20
    2021  INCLUDE "paramet.h"
    2122  INCLUDE "comdissipn.h"

  • LMDZ6/trunk/libf/dyn3d_common/nxgrarot.f90

    r5246 r5271  
    1616  !
    1717  !
    18   IMPLICIT NONE
     18  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     19IMPLICIT NONE
    1920  !
    2021  !
    21   include "dimensions.h"
     22
    2223  include "paramet.h"
    2324  include "comdissipn.h"

  • LMDZ6/trunk/libf/dyn3d_common/pbar.f90

    r5246 r5271  
    33!
    44SUBROUTINE pbar ( pext, pbarx, pbary, pbarxy )
    5   IMPLICIT NONE
     5  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     6IMPLICIT NONE
    67
    78  !=======================================================================
    … …  
    7576
    7677
    77   INCLUDE "dimensions.h"
     78
    7879  INCLUDE "paramet.h"
    7980

  • LMDZ6/trunk/libf/dyn3d_common/pentes_ini.f90

    r5246 r5271  
    66  USE comconst_mod, ONLY: pi, dtvr
    77
    8   IMPLICIT NONE
     8  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     9IMPLICIT NONE
    910
    1011  !=======================================================================
    … …  
    2526
    2627
    27   include "dimensions.h"
     28
    2829  include "paramet.h"
    2930  include "comgeom2.h"

  • LMDZ6/trunk/libf/dyn3d_common/prather.f90

    r5246 r5271  
    66  USE comconst_mod, ONLY: pi
    77
    8   IMPLICIT NONE
     8  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     9IMPLICIT NONE
    910
    1011  !=======================================================================
    … …  
    2223
    2324
    24   include "dimensions.h"
     25
    2526  include "paramet.h"
    2627  include "comgeom2.h"

  • LMDZ6/trunk/libf/dyn3d_common/pression.f90

    r5268 r5271  
    88!          with p(ij,llm+1) = 0. and  p(ij,1) = ps(ij)  .   
    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/dyn3d_common/principal_cshift_m.f90

    r5268 r5271  
    11module principal_cshift_m
    22
    3   implicit none
     3  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     4implicit none
    45
    56contains
    … …  
    1415    use serre_mod, only: clon
    1516
    16     include "dimensions.h"
     17
    1718    ! for iim
    1819

  • LMDZ6/trunk/libf/dyn3d_common/psextbar.f90

    r5246 r5271  
    33!
    44SUBROUTINE psextbar ( ps, psexbarxy )
    5   IMPLICIT NONE
     5  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     6IMPLICIT NONE
    67
    78  !=======================================================================
    … …  
    7576
    7677
    77   INCLUDE "dimensions.h"
     78
    7879  INCLUDE "paramet.h"
    7980  INCLUDE "comgeom.h"

  • LMDZ6/trunk/libf/dyn3d_common/rotat.f90

    r5246 r5271  
    1313  !        rot          est  un argument  de sortie pour le s-prog
    1414  !
    15   IMPLICIT NONE
     15  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     16IMPLICIT NONE
    1617  !
    17   INCLUDE "dimensions.h"
     18
    1819  INCLUDE "paramet.h"
    1920  INCLUDE "comgeom.h"

  • LMDZ6/trunk/libf/dyn3d_common/rotat_nfil.f90

    r5246 r5271  
    1313  !        rot          est  un argument  de sortie pour le s-prog
    1414  !
    15   IMPLICIT NONE
     15  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     16IMPLICIT NONE
    1617  !
    17   INCLUDE "dimensions.h"
     18
    1819  INCLUDE "paramet.h"
    1920  INCLUDE "comgeom.h"

  • LMDZ6/trunk/libf/dyn3d_common/rotatf.f90

    r5246 r5271  
    1414  !        rot          est  un argument  de sortie pour le s-prog
    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/dyn3d_common/rotatst.f90

    r5246 r5271  
    1313  !    rot          est  un argument  de sortie pour le s-prog
    1414  !
    15   IMPLICIT NONE
     15  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     16IMPLICIT NONE
    1617  !
    1718  INTEGER :: klevel
    18   INCLUDE "dimensions.h"
     19
    1920  INCLUDE "paramet.h"
    2021

  • LMDZ6/trunk/libf/dyn3d_common/sortvarc.f90

    r5246 r5271  
    1212        etot0,ptot0,ztot0,stot0,ang0, &
    1313        rmsdpdt,rmsv
    14   IMPLICIT NONE
     14  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     15IMPLICIT NONE
    1516
    1617
    … …  
    3031  !   -------------
    3132
    32   INCLUDE "dimensions.h"
     33
    3334  INCLUDE "paramet.h"
    3435  INCLUDE "comgeom.h"

  • LMDZ6/trunk/libf/dyn3d_common/test_period.f90

    r5246 r5271  
    1111  USE infotrac, ONLY : nqtot
    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  !

  • LMDZ6/trunk/libf/dyn3d_common/tourpot.f90

    r5268 r5271  
    55!-------------------------------------------------------------------------------
    66! Purpose: Compute potential vorticity.
    7   IMPLICIT NONE
    8   include "dimensions.h"
     7  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     8IMPLICIT NONE
     9
    910  include "paramet.h"
    1011  include "comgeom.h"

  • LMDZ6/trunk/libf/dyn3d_common/traceurpole.f90

    r5246 r5271  
    44    subroutine traceurpole(q,masse)
    55
    6       implicit none
     6      USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     7implicit none
    78
    8   include "dimensions.h"
     9
    910  include "paramet.h"
    1011  include "comdissip.h"
    … …  
    2829
    2930
    30   ! On impose une seule valeur au pôle Sud j=jjm+1=jjp1
     31  ! On impose une seule valeur au p�le Sud j=jjm+1=jjp1
    3132  sommemasses=0
    3233  sommemqs=0
    … …  
    3940      enddo
    4041
    41   ! On impose une seule valeur du traceur au pôle Nord j=1
     42  ! On impose une seule valeur du traceur au p�le Nord j=1
    4243  sommemassen=0
    4344  sommemqn=0
    … …  
    5051     enddo
    5152
    52   ! On force le traceur à prendre cette valeur aux pôles
     53  ! On force le traceur � prendre cette valeur aux p�les
    5354    do l=1,llm
    5455        do i=1,iip1

  • LMDZ6/trunk/libf/dyn3d_common/ugeostr.f90

    r5268 r5271  
    1313  use comconst_mod, only: omeg, rad
    1414 
    15   implicit none
     15  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     16implicit none
    1617
    17   include "dimensions.h"
     18
    1819  include "paramet.h"
    1920  include "comgeom2.h"

  • LMDZ6/trunk/libf/dyn3d_common/vitvert.f90

    r5268 r5271  
    66! Purpose: Compute vertical speed at sigma levels.
    77  USE comvert_mod, ONLY: bp
    8   IMPLICIT NONE
    9   include "dimensions.h"
     8  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     9IMPLICIT NONE
     10
    1011  include "paramet.h"
    1112!===============================================================================

  • LMDZ6/trunk/libf/dyn3d_common/writedynav.f90

    r5268 r5271  
    88  USE comconst_mod, ONLY: cpp
    99  USE temps_mod, ONLY: itau_dyn
    10 
    11   implicit none
     10  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     11implicit none
    1212
    1313  !   Ecriture du fichier histoire au format IOIPSL
    … …  
    2929
    3030  !   Declarations
    31   include "dimensions.h"
     31
    3232  include "paramet.h"
    3333  include "comgeom.h"

  • LMDZ6/trunk/libf/dyn3d_common/writehist.f90

    r5268 r5271  
    33!
    44subroutine writehist(time,vcov,ucov,teta,phi,q,masse,ps,phis)
    5 
    65  USE ioipsl
    76  USE infotrac, ONLY : nqtot
    87  use com_io_dyn_mod, only : histid,histvid,histuid
    98  USE temps_mod, ONLY: itau_dyn
    10 
    11   implicit none
     9  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     10implicit none
    1211
    1312  !
    … …  
    3332  !
    3433  !   Declarations
    35   include "dimensions.h"
    3634  include "paramet.h"
    3735  include "comgeom.h"

  • 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"

  • LMDZ6/trunk/libf/dynphy_lonlat/calfis.f90

    r5268 r5271  
    3535  USE comvert_mod, ONLY: preff, presnivs
    3636  USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_PHYS
    37 
     37  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    3838  IMPLICIT NONE
    3939  !=======================================================================
    … …  
    9090  !    ------------------
    9191
    92   include "dimensions.h"
    9392  include "paramet.h"
    9493

  • LMDZ6/trunk/libf/dynphy_lonlat/calfis_loc.F90

    r5250 r5271  
    5050  USE comconst_mod, ONLY: cpp, daysec, dtphys, dtvr, kappa, pi
    5151  USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_PHYS
    52 
    53 
    5452#ifdef CPP_PARA
     53  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    5554  IMPLICIT NONE
    5655  !=======================================================================
    … …  
    107106  !    0.  Declarations :
    108107  !    ------------------
    109 
    110   include "dimensions.h"
    111108  include "paramet.h"
    112109

  • LMDZ6/trunk/libf/dynphy_lonlat/mod_interface_dyn_phys.F90

    r2429 r5271  
    1313  SUBROUTINE Init_interface_dyn_phys
    1414    USE mod_phys_lmdz_mpi_data
    15     IMPLICIT NONE
    16     include 'dimensions.h'   
     15    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     16IMPLICIT NONE
     17
    1718   
    1819    INTEGER :: i,j,k

  • LMDZ6/trunk/libf/dynphy_lonlat/phylmd/ce0l.F90

    r5267 r5271  
    4646  USE lmdz_mpi
    4747
    48   IMPLICIT NONE
     48  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     49IMPLICIT NONE
    4950
    5051!-------------------------------------------------------------------------------
    5152! Local variables:
    52   include "dimensions.h"
     53
    5354  include "paramet.h"
    5455  include "comgeom2.h"

  • LMDZ6/trunk/libf/dynphy_lonlat/phylmd/etat0dyn_netcdf.F90

    r5251 r5271  
    4141  USE strings_mod, ONLY: strLower
    4242 
    43   IMPLICIT NONE
     43  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     44IMPLICIT NONE
    4445
    4546  PRIVATE
    … …  
    4748
    4849  include "iniprint.h"
    49   include "dimensions.h"
     50
    5051  include "paramet.h"
    5152  include "comgeom2.h"

  • LMDZ6/trunk/libf/dynphy_lonlat/phylmd/etat0phys_netcdf.f90

    r5268 r5271  
    5353
    5454  USE comconst_mod, ONLY: pi, dtvr
    55 
     55  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    5656  PRIVATE
    5757  PUBLIC :: etat0phys_netcdf
    5858
    5959  include "iniprint.h"
    60   include "dimensions.h"
    6160  include "paramet.h"
    6261  include "comgeom2.h"

  • LMDZ6/trunk/libf/dynphy_lonlat/phylmd/iniphysiq_mod.F90

    r5252 r5271  
    4242  USE slab_heat_transp_mod, ONLY: ini_slab_transp_geom
    4343  USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_INCA, CPPKEY_REPROBUS
    44   IMPLICIT NONE
     44  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     45IMPLICIT NONE
    4546
    4647  ! =======================================================================
    … …  
    4950  ! =======================================================================
    5051
    51   include "dimensions.h"
     52
    5253  include "paramet.h"
    5354  include "iniprint.h"

  • LMDZ6/trunk/libf/dynphy_lonlat/phylmd/init_ssrf_m.f90

    r5268 r5271  
    1212  USE comconst_mod,       ONLY: im, pi
    1313  USE surface_data,       ONLY: landice_opt
     14  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    1415
    1516  CHARACTER(LEN=256), PARAMETER :: icefname="landiceref.nc", icevar="landice"
    … …  
    1718  PUBLIC :: start_init_subsurf
    1819  include "iniprint.h"
    19   include "dimensions.h"
    2020  include "paramet.h"
    2121  include "comgeom2.h"

  • LMDZ6/trunk/libf/dynphy_lonlat/phylmd/limit_netcdf.F90

    r5249 r5271  
    8181  USE phys_cal_mod, ONLY: calend
    8282  USE lmdz_cppkeys_wrapper, ONLY: nf90_format
    83   IMPLICIT NONE
     83  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     84IMPLICIT NONE
    8485!-------------------------------------------------------------------------------
    8586! Arguments:
    8687  include "iniprint.h"
    87   include "dimensions.h"
     88
    8889  include "paramet.h"
    8990  REAL, DIMENSION(iip1,jjp1), INTENT(INOUT) :: masque ! land mask
    … …  
    330331  USE indice_sol_mod
    331332
    332   IMPLICIT NONE
    333   include "dimensions.h"
     333  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     334IMPLICIT NONE
     335
    334336  include "paramet.h"
    335337  include "comgeom2.h"

  • LMDZ6/trunk/libf/dynphy_lonlat/phylmd/test_disvert_m.f90

    r5268 r5271  
    11module test_disvert_m
    22
    3   implicit none
     3  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     4implicit none
    45
    56contains
    … …  
    1819
    1920    ! For llm:
    20     include "dimensions.h"
     21
    2122
    2223    ! Local:

  • LMDZ6/trunk/libf/filtrez/eigen.f90

    r5246 r5271  
    33!
    44SUBROUTINE eigen( e,d)
    5   IMPLICIT NONE
    6   INCLUDE "dimensions.h"
     5  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     6IMPLICIT NONE
     7
    78  real :: e( iim,iim ), d( iim )
    89  real :: asm( iim )

  • LMDZ6/trunk/libf/filtrez/filtreg.F90

    r5246 r5271  
    77  USE filtreg_mod
    88
    9   IMPLICIT NONE
     9  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     10IMPLICIT NONE
    1011  !=======================================================================
    1112  !
    … …  
    4647  !
    4748  !
    48   INCLUDE "dimensions.h"
     49
    4950  INCLUDE "paramet.h"
    5051  INCLUDE "coefils.h"

  • LMDZ6/trunk/libf/filtrez/filtreg_mod.F90

    r4519 r5271  
    2020    !    ... H. Upadhyaya, O.Sharma   ...
    2121    !
    22     IMPLICIT NONE
     22    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     23IMPLICIT NONE
    2324    !
    2425    !     version 3 .....
    … …  
    2627    !     Correction  le 28/10/97    P. Le Van .
    2728    !  -------------------------------------------------------------------
    28     include "dimensions.h"
     29
    2930    include "paramet.h"
    3031    !  -------------------------------------------------------------------

  • LMDZ6/trunk/libf/filtrez/inifgn.F90

    r5246 r5271  
    66  !    ...  H.Upadyaya , O.Sharma  ...
    77  !
    8   IMPLICIT NONE
     8  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     9IMPLICIT NONE
    910  !
    10   include "dimensions.h"
     11
    1112  include "paramet.h"
    1213  include "comgeom.h"

  • LMDZ6/trunk/libf/filtrez/mod_fft_fftw.F90

    r1907 r5271  
    1818  SUBROUTINE Init_fft(iim,nvectmax)
    1919  IMPLICIT NONE
    20 #include <fftw3.f>
     20INCLUDE <fftw3.f>
    2121    INTEGER :: iim
    2222    INTEGER :: nvectmax
    … …  
    8686  SUBROUTINE fft_forward(vect,TF_vect,nb_vect)
    8787    IMPLICIT NONE
    88 #include <fftw3.f>
     88INCLUDE <fftw3.f>
    8989    INTEGER,INTENT(IN)     :: nb_vect
    9090    REAL,INTENT(IN)        :: vect(vsize+inc,nb_vect)
    … …  
    9999  SUBROUTINE fft_backward(TF_vect,vect,nb_vect)
    100100    IMPLICIT NONE
    101 #include <fftw3.f>
     101INCLUDE <fftw3.f>
    102102    INTEGER,INTENT(IN)     :: nb_vect
    103103    REAL,INTENT(OUT)       :: vect(vsize+inc,nb_vect)

  • LMDZ6/trunk/libf/filtrez/mod_filtre_fft.F90

    r1907 r5271  
    1414  SUBROUTINE Init_filtre_fft(coeffu,modfrstu,jfiltnu,jfiltsu,coeffv,modfrstv,jfiltnv,jfiltsv)
    1515    USE mod_fft
    16     IMPLICIT NONE
    17     include 'dimensions.h'
     16    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     17IMPLICIT NONE
     18
    1819    REAL,   INTENT(IN) :: coeffu(iim,jjm)
    1920    INTEGER,INTENT(IN) :: modfrstu(jjm)
    … …  
    120121    USE parallel_lmdz,ONLY : OMP_CHUNK
    121122#endif
    122     IMPLICIT NONE
    123     include 'dimensions.h'
     123    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     124IMPLICIT NONE
     125
    124126    INTEGER,INTENT(IN) :: nlat
    125127    INTEGER,INTENT(IN) :: jj_begin
    … …  
    181183    USE parallel_lmdz,ONLY : OMP_CHUNK
    182184#endif
    183     IMPLICIT NONE
    184     INCLUDE 'dimensions.h'
     185    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     186IMPLICIT NONE
     187
    185188    INTEGER,INTENT(IN) :: nlat
    186189    INTEGER,INTENT(IN) :: jj_begin
    … …  
    243246    USE parallel_lmdz,ONLY : OMP_CHUNK
    244247#endif
    245     IMPLICIT NONE
    246     INCLUDE 'dimensions.h'
     248    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     249IMPLICIT NONE
     250
    247251    INTEGER,INTENT(IN) :: nlat
    248252    INTEGER,INTENT(IN) :: jj_begin

  • LMDZ6/trunk/libf/filtrez/mod_filtre_fft_loc.F90

    r1907 r5271  
    1010  SUBROUTINE Init_filtre_fft(coeffu,modfrstu,jfiltnu,jfiltsu,coeffv,modfrstv,jfiltnv,jfiltsv)
    1111    USE mod_fft
    12     IMPLICIT NONE
    13     include 'dimensions.h'
     12    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     13IMPLICIT NONE
     14
    1415    REAL,   INTENT(IN) :: coeffu(iim,jjm)
    1516    INTEGER,INTENT(IN) :: modfrstu(jjm)
    … …  
    109110    USE parallel_lmdz,ONLY : OMP_CHUNK
    110111#endif
    111     IMPLICIT NONE
    112     include 'dimensions.h'
     112    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     113IMPLICIT NONE
     114
    113115    INTEGER,INTENT(IN) :: jjb
    114116    INTEGER,INTENT(IN) :: jje
    … …  
    189191    USE parallel_lmdz,ONLY : OMP_CHUNK
    190192#endif
    191     IMPLICIT NONE
    192     INCLUDE 'dimensions.h'
     193    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     194IMPLICIT NONE
     195
    193196    INTEGER,INTENT(IN) :: jjb
    194197    INTEGER,INTENT(IN) :: jje
    … …  
    252255    USE parallel_lmdz,ONLY : OMP_CHUNK
    253256#endif
    254     IMPLICIT NONE
    255     INCLUDE 'dimensions.h'
     257    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     258IMPLICIT NONE
     259
    256260    INTEGER,INTENT(IN) :: jjb
    257261    INTEGER,INTENT(IN) :: jje

  • LMDZ6/trunk/libf/grid/dimension/makdim

    r4554 r5271  
    11#!/bin/bash
    2 #set -xv
     2set -eu
    33
    44# sanity check: do we have the required argument ?
    5 if (( $# < 1 )) || (( $# > 3 ))
    6 then
     5if (( $# < 1 )) || (( $# > 3 )); then
    76    echo "Wrong number of parameters in $0 !!!"
    87    echo " Usage:"
    … …  
    1211fi
    1312
    14 if ( (( $1 % 8 != 0 )) && (( $# == 3 )) || (( $1 == 1 )) )
    15 then
     13if ( (( $1 % 8 != 0 )) && (( $# == 3 )) || (( $1 == 1 )) ); then
    1614    echo "The number of longitudes must be a multiple of 8."
    1715    echo "See the files dyn3d/groupe.F and dyn3dmem/groupe_loc.F."
    … …  
    2018
    2119# build "fichnom", the relevant 'dimensions.im.jm.lm' file name
    22 for i in $*
    23 do
    24     list=$list.$i
    25 done
     20list=""
     21for i in "$@"; do list=$list.$i; done
    2622fichdim=dimensions${list}
    2723
    28 if [ ! -f $fichdim ]
    29 then
    30 #    echo "$fichdim does not exist"
    31 
     24if [[ ! -f $fichdim ]]; then
    3225    # assign values of im, jm and lm
    33     if [ $# -ge 3 ]
    34     then
     26    if [ $# -ge 3 ]; then
    3527        im=$1
    3628        jm=$2
    3729        lm=$3
    3830        ndm=1
    39     elif [ $# -ge 2 ]
    40     then
     31    elif [ $# -ge 2 ]; then
    4132        im=1
    4233        jm=$1
    4334        lm=$2
    4435        ndm=1
    45     elif [ $# -ge 1 ]
    46     then
     36    elif [ $# -ge 1 ]; then
    4737        im=1
    4838        jm=1
    … …  
    5242
    5343# since the file doesn't exist, we create it
    54     cat << EOF > $fichdim
    55 !-----------------------------------------------------------------------
    56 !   INCLUDE 'dimensions.h'
    57 !
    58 !   dimensions.h contient les dimensions du modele
    59 !   ndm est tel que iim=2**ndm
    60 !-----------------------------------------------------------------------
     44    cat << EOF > "$fichdim"
     45! This module was automatically generated during the installation of LMDZ
     46! It contains the spatial resolution of the model
    6147
    62       INTEGER iim,jjm,llm,ndm
     48MODULE dimensions_mod
     49  IMPLICIT NONE; PRIVATE
     50  PUBLIC iim, jjm, llm, ndm
     51  ! ndm is computed such that iim=2**ndm
    6352
    64       PARAMETER (iim= $im,jjm=$jm,llm=$lm,ndm=$ndm)
    65 
    66 !-----------------------------------------------------------------------
     53  INTEGER, PARAMETER :: iim = $im, jjm = $jm, llm = $lm, ndm = $ndm
     54END MODULE dimensions_mod
    6755EOF
    68 
    6956fi
    7057
    71 # remove 'old' dimensions.h file (if any) and replace it with new one
    72 if [ -f ../dimensions.h ] ; then
    73     \rm ../dimensions.h
     58# remove 'old' dimensions_mod.f90 file (if any) and replace it with new one
     59if [[ -f ../dimensions_mod.f90 ]]; then
     60    rm ../dimensions_mod.f90
    7461fi
    75 tar cf - $fichdim | ( cd .. ; tar xf - ; mv $fichdim dimensions.h )
    76 # line above is a trick to preserve time of creation of dimensions.h files
     62tar cf - "$fichdim" | ( cd .. ; tar xf - ; mv "$fichdim" dimensions_mod.f90 )
     63# line above is a trick to preserve time of creation of dimensions_mod.f90 files

  • LMDZ6/trunk/libf/misc/lmdz_reprobus_wrappers.F90

    r5252 r5271  
    66  USE CHEM_REP, ONLY: init_chem_rep_trac, itroprep
    77#else
     8  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    89
    910  ! TODO ugly temp solution until we properly wrap the REPROBUS code
    10   INCLUDE "dimensions.h"
    1111  INTEGER :: itroprep(iim), iter, ndimozon
    1212  REAL :: rsuntime(2), pdt_rep, daynum, solaireTIME, ptrop(iim), ttrop(iim), ztrop(iim), gravit, Z1, &

  • LMDZ6/trunk/libf/phylmd/Dust/aeropt_spl.f90

    r5246 r5271  
    1010  USE dimphy
    1111  USE infotrac
    12   IMPLICIT none
     12  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     13IMPLICIT none
    1314  !
    1415  INCLUDE "chem.h"
    15   INCLUDE "dimensions.h"
     16
    1617  !INCLUDE "dimphy.h"
    1718  INCLUDE "YOMCST.h"

  • LMDZ6/trunk/libf/phylmd/Dust/bcscav_spl.f90

    r5246 r5271  
    22
    33  USE dimphy
    4   IMPLICIT NONE
     4  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     5IMPLICIT NONE
    56  !=====================================================================
    67  ! Objet : below-cloud scavenging of tracers
    … …  
    910  !=====================================================================
    1011  !
    11   INCLUDE "dimensions.h"
     12
    1213  INCLUDE "chem.h"
    1314  INCLUDE "YOMCST.h"

  • LMDZ6/trunk/libf/phylmd/Dust/bl_for_dms.f90

    r5246 r5271  
    22        ,t,q,tsol,ustar,obklen)
    33  USE dimphy
    4   IMPLICIT NONE
     4  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     5IMPLICIT NONE
    56  !
    67  !===================================================================
    … …  
    1718  !===================================================================
    1819  !
    19   INCLUDE "dimensions.h"
     20
    2021  INCLUDE "YOMCST.h"
    2122  INCLUDE "YOETHF.h"

  • LMDZ6/trunk/libf/phylmd/Dust/blcloud_scav.f90

    r5246 r5271  
    88  USE indice_sol_mod
    99  USE infotrac
    10   IMPLICIT NONE
     10  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     11IMPLICIT NONE
    1112
    12   INCLUDE "dimensions.h"
     13
    1314  INCLUDE "chem.h"
    1415  INCLUDE "YOMCST.h"

  • LMDZ6/trunk/libf/phylmd/Dust/blcloud_scav_lsc.f90

    r5246 r5271  
    88  USE indice_sol_mod
    99  USE infotrac
    10   IMPLICIT NONE
     10  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     11IMPLICIT NONE
    1112
    12   INCLUDE "dimensions.h"
     13
    1314  INCLUDE "chem.h"
    1415  INCLUDE "YOMCST.h"

  • LMDZ6/trunk/libf/phylmd/Dust/cltrac_spl.f90

    r5246 r5271  
    33
    44  USE dimphy
    5   IMPLICIT none
     5  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     6IMPLICIT none
    67  !======================================================================
    78  ! Auteur(s): O. Boucher (LOA/LMD) date: 19961127
    … …  
    2627  ! flux_tr--output-R- flux de tr
    2728  !======================================================================
    28   INCLUDE "dimensions.h"
     29
    2930  REAL :: dtime
    3031  REAL :: coef(klon,klev)

  • LMDZ6/trunk/libf/phylmd/Dust/cm3_to_kg.f90

    r5246 r5271  
    55  USE indice_sol_mod
    66
    7   IMPLICIT NONE
     7  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     8IMPLICIT NONE
    89  !
    9   INCLUDE "dimensions.h"
     10
    1011  INCLUDE "YOMCST.h"
    1112  !

  • LMDZ6/trunk/libf/phylmd/Dust/coarsemission.f90

    r5246 r5271  
    3131  USE dustemission_mod,  ONLY : dustemission
    3232   ! USE phytracr_spl_mod, ONLY : nbreg_dust, nbreg_ind, nbreg_bb
    33   IMPLICIT NONE
    34 
    35   INCLUDE "dimensions.h"
     33  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     34IMPLICIT NONE
     35
     36
    3637  INCLUDE "chem.h"
    3738  INCLUDE "chem_spla.h"

  • LMDZ6/trunk/libf/phylmd/Dust/condsurfc.f90

    r5270 r5271  
    55  USE dimphy
    66  USE netcdf, ONLY: nf90_close, nf90_noerr, nf90_inq_varid, nf90_open, nf90_nowrite, nf90_get_var
    7   IMPLICIT none
     7  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     8IMPLICIT none
    89  !
    910  ! Lire les conditions aux limites du modele pour la chimie.
    1011  ! --------------------------------------------------------
    1112  !
    12   INCLUDE "dimensions.h"
     13
    1314
    1415  REAL :: lmt_bcff(klon), lmt_bcbb(klon),lmt_bc_penner(klon)

  • LMDZ6/trunk/libf/phylmd/Dust/condsurfc_new.f90

    r5270 r5271  
    77  USE dimphy
    88  USE netcdf, ONLY: nf90_get_var, nf90_close, nf90_noerr, nf90_inq_varid, nf90_open, nf90_nowrite
    9   IMPLICIT none
     9  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     10IMPLICIT none
    1011  !
    1112  ! Lire les conditions aux limites du modele pour la chimie.
    1213  ! --------------------------------------------------------
    1314  !
    14   INCLUDE "dimensions.h"
     15
    1516
    1617  REAL :: lmt_bcff(klon), lmt_bcnff(klon), lmt_bcba(klon)

  • LMDZ6/trunk/libf/phylmd/Dust/condsurfs.f90

    r5270 r5271  
    66   USE netcdf, ONLY: nf90_close, nf90_noerr, nf90_inq_varid, nf90_open, &
    77          nf90_nowrite, nf90_get_var
    8   IMPLICIT none
     8  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     9IMPLICIT none
    910  !
    1011  ! Lire les conditions aux limites du modele pour la chimie.
    1112  ! --------------------------------------------------------
    1213  !
    13   INCLUDE "dimensions.h"
     14
    1415  !
    1516  REAL :: lmt_so2h(klon), lmt_so2b(klon), lmt_so2bb(klon)

  • LMDZ6/trunk/libf/phylmd/Dust/condsurfs_new.f90

    r5270 r5271  
    1010  USE dimphy
    1111  USE netcdf, ONLY: nf90_get_var, nf90_inq_varid, nf90_close, nf90_noerr, nf90_open, nf90_nowrite
    12   IMPLICIT none
     12  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     13IMPLICIT none
    1314  !
    1415  ! Lire les conditions aux limites du modele pour la chimie.
    1516  ! --------------------------------------------------------
    1617  !
    17   INCLUDE "dimensions.h"
     18
    1819  !
    1920  REAL :: lmt_so2b(klon), lmt_so2h(klon), lmt_so2nff(klon)

  • LMDZ6/trunk/libf/phylmd/Dust/deposition.f90

    r5246 r5271  
    1010  USE indice_sol_mod
    1111
    12   IMPLICIT NONE
     12  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     13IMPLICIT NONE
    1314
    14   INCLUDE "dimensions.h"
     15
    1516  INCLUDE "chem.h"
    1617  INCLUDE "YOMCST.h"

  • LMDZ6/trunk/libf/phylmd/Dust/finemission.f90

    r5246 r5271  
    1515  USE infotrac
    1616   ! USE phytracr_spl_mod, ONLY : nbreg_dust, nbreg_ind, nbreg_bb
    17   IMPLICIT NONE
     17  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     18IMPLICIT NONE
    1819
    19   INCLUDE "dimensions.h"
     20
    2021  INCLUDE "chem.h"
    2122  INCLUDE "YOMCST.h"

  • LMDZ6/trunk/libf/phylmd/Dust/gastoparticle.f90

    r5246 r5271  
    88   ! USE indice_sol_mod
    99
    10   IMPLICIT NONE
     10  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     11IMPLICIT NONE
    1112  !
    12   INCLUDE "dimensions.h"
     13
    1314  INCLUDE "chem.h"
    1415  INCLUDE "chem_spla.h"

  • LMDZ6/trunk/libf/phylmd/Dust/incloud_scav.f90

    r5246 r5271  
    99  USE indice_sol_mod
    1010
    11   IMPLICIT NONE
     11  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     12IMPLICIT NONE
    1213
    13   INCLUDE "dimensions.h"
     14
    1415  INCLUDE "chem.h"
    1516  INCLUDE "YOMCST.h"

  • LMDZ6/trunk/libf/phylmd/Dust/incloud_scav_lsc.f90

    r5246 r5271  
    99  USE indice_sol_mod
    1010
    11   IMPLICIT NONE
     11  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     12IMPLICIT NONE
    1213
    13   INCLUDE "dimensions.h"
     14
    1415  INCLUDE "chem.h"
    1516  INCLUDE "YOMCST.h"

  • LMDZ6/trunk/libf/phylmd/Dust/inscav_spl.f90

    r5246 r5271  
    33        his_dh)
    44  USE dimphy
    5   IMPLICIT NONE
     5  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     6IMPLICIT NONE
    67  !=====================================================================
    78  ! Objet : depot humide de traceurs
    … …  
    1011  !=====================================================================
    1112  !
    12   INCLUDE "dimensions.h"
     13
    1314  INCLUDE "chem.h"
    1415  INCLUDE "YOMCST.h"

  • LMDZ6/trunk/libf/phylmd/Dust/kg_to_cm3.f90

    r5246 r5271  
    33  USE dimphy
    44  USE infotrac
    5   IMPLICIT NONE
     5  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     6IMPLICIT NONE
    67  !
    7   INCLUDE "dimensions.h"
     8
    89  INCLUDE "YOMCST.h"
    910  !

  • LMDZ6/trunk/libf/phylmd/Dust/lsc_scav_orig.f90

    r5268 r5271  
    1313  USE iophy
    1414
    15   IMPLICIT NONE
     15  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     16IMPLICIT NONE
    1617!=====================================================================
    1718! Objet : depot humide (lessivage et evaporation) de traceurs
    … …  
    2122!=====================================================================
    2223
    23   include "dimensions.h"
     24
    2425  include "chem.h"
    2526  include "YOMCST.h"

  • LMDZ6/trunk/libf/phylmd/Dust/lsc_scav_spl.f90

    r5268 r5271  
    1414!  USE comgeomphy
    1515  USE iophy
    16   IMPLICIT NONE
     16  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     17IMPLICIT NONE
    1718!=====================================================================
    1819! Objet : depot humide (lessivage et evaporation) de traceurs
    … …  
    2324! SPLA version taken from trunk revision 2041
    2425
    25   include "dimensions.h"
     26
    2627  include "chem.h"
    2728  include "YOMCST.h"

  • LMDZ6/trunk/libf/phylmd/Dust/minmaxqfi2.f90

    r5246 r5271  
    33  USE dimphy
    44  USE infotrac
    5   INCLUDE "dimensions.h"
     5  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    66
    77   ! character*20 comment

  • LMDZ6/trunk/libf/phylmd/Dust/minmaxsource.f90

    r5246 r5271  
    33  USE dimphy
    44  USE infotrac
    5 
    6   INCLUDE "dimensions.h"
     5  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    76
    87   ! character*20 comment

  • LMDZ6/trunk/libf/phylmd/Dust/neutral.f90

    r5246 r5271  
    2828  !
    2929  USE dimphy
    30   INCLUDE "dimensions.h"
     30  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    3131  !
    3232    real :: u10_mps(klon),ustar_mps(klon),obklen_m(klon)

  • LMDZ6/trunk/libf/phylmd/Dust/nightingale.f90

    r5246 r5271  
    55  USE dimphy
    66  USE indice_sol_mod
    7   IMPLICIT NONE
     7  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     8IMPLICIT NONE
    89  !
    9   INCLUDE "dimensions.h"
     10
    1011  INCLUDE "YOMCST.h"
    1112  !

  • LMDZ6/trunk/libf/phylmd/Dust/phys_output_write_spl_mod.F90

    r5267 r5271  
    396396    USE phys_cal_mod, ONLY : mth_len
    397397
    398     IMPLICIT NONE
     398    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     399IMPLICIT NONE
    399400
    400401!   INCLUDE "temps.h"
    … …  
    403404    INCLUDE "compbl.h"
    404405    INCLUDE "YOMCST.h"
    405     INCLUDE "dimensions.h"
     406
    406407    include "iniprint.h"
    407408

  • LMDZ6/trunk/libf/phylmd/Dust/phytracr_spl_mod.F90

    r5270 r5271  
    807807      USE phys_cal_mod, only: jD_1jan,year_len, mth_len, days_elapsed, jh_1jan, year_cur, &
    808808                              mth_cur, phys_cal_update
    809 
     809      USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    810810!
    811811      IMPLICIT none
    … …  
    823823!!   et c'est encore different avec le parser de DC ?
    824824!======================================================================
    825       INCLUDE "dimensions.h"
    826825      INCLUDE "chem.h"
    827826      INCLUDE "chem_spla.h"

  • LMDZ6/trunk/libf/phylmd/Dust/precuremission.f90

    r5246 r5271  
    2020  USE infotrac
    2121   ! USE phytracr_spl_mod, ONLY : nbreg_dust, nbreg_ind, nbreg_bb
    22   IMPLICIT NONE
    23 
    24   INCLUDE "dimensions.h"
     22  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     23IMPLICIT NONE
     24
     25
    2526  INCLUDE "chem.h"
    2627  INCLUDE "chem_spla.h"

  • LMDZ6/trunk/libf/phylmd/Dust/read_dust.f90

    r5270 r5271  
    44  USE mod_phys_lmdz_para
    55  USE netcdf, ONLY: nf90_get_var, nf90_nowrite, nf90_open, nf90_inq_varid
    6   IMPLICIT NONE
     6  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     7IMPLICIT NONE
    78  !
    8   INCLUDE "dimensions.h"
     9
    910  INCLUDE "paramet.h"
    1011  !

  • LMDZ6/trunk/libf/phylmd/Dust/read_newemissions.f90

    r5246 r5271  
    2323  USE mod_phys_lmdz_para
    2424
    25   IMPLICIT NONE
    26 
    27 
    28   INCLUDE "dimensions.h"
     25  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     26IMPLICIT NONE
     27
     28
     29
    2930   ! INCLUDE 'dimphy.h'
    3031  INCLUDE 'paramet.h'

  • LMDZ6/trunk/libf/phylmd/Dust/read_surface.f90

    r5270 r5271  
    1111       USE iophy
    1212       USE netcdf, ONLY: nf90_inq_varid,nf90_noerr,nf90_get_var,nf90_nowrite,nf90_inq_varid,nf90_open
    13        IMPLICIT NONE
    14        INCLUDE "dimensions.h"
     13       USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     14IMPLICIT NONE
     15
    1516       INCLUDE "paramet.h"
    1617

  • LMDZ6/trunk/libf/phylmd/Dust/read_vent.f90

    r5270 r5271  
    55  USE netcdf, ONLY: nf90_get_var, nf90_open, nf90_inq_varid, nf90_nowrite
    66   ! USE write_field_phy
    7   IMPLICIT NONE
    8   INCLUDE "dimensions.h"
     7  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     8IMPLICIT NONE
     9
    910    ! INCLUDE "dimphy.h"
    1011  INCLUDE "paramet.h"

  • LMDZ6/trunk/libf/phylmd/Dust/seasalt.f90

    r5246 r5271  
    55
    66  USE dimphy
    7   IMPLICIT NONE
     7  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     8IMPLICIT NONE
    89  !
    9   INCLUDE "dimensions.h"
     10
    1011  INCLUDE "chem.h"
    1112  INCLUDE "chem_spla.h"

  • LMDZ6/trunk/libf/phylmd/Dust/sediment_mod.f90

    r5246 r5271  
    1010   USE dimphy
    1111   USE infotrac
    12   IMPLICIT NONE
    13   !
    14   INCLUDE "dimensions.h"
     12  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     13IMPLICIT NONE
     14  !
     15
    1516  INCLUDE "chem.h"
    1617    ! INCLUDE "dimphy.h"

  • LMDZ6/trunk/libf/phylmd/Dust/tiedqneg.f90

    r5246 r5271  
    22  !
    33  USE dimphy
    4   IMPLICIT none
     4  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     5IMPLICIT none
    56  !======================================================================
    67  ! Auteur(s): CG (LGGE/CNRS) date: 19950201
    … …  
    1516  !======================================================================
    1617  !
    17   INCLUDE "dimensions.h"
     18
    1819    ! INCLUDE "dimphy.h"
    1920  REAL :: pres_h(klon,klev+1)

  • LMDZ6/trunk/libf/phylmd/Dust/trconvect.f90

    r5246 r5271  
    88  USE indice_sol_mod
    99
    10   IMPLICIT NONE
     10  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     11IMPLICIT NONE
    1112
    12   INCLUDE "dimensions.h"
     13
    1314  INCLUDE "chem.h"
    1415  INCLUDE "YOMCST.h"

  • LMDZ6/trunk/libf/phylmd/StratAer/calcaerosolstrato_rrtm.f90

    r5268 r5271  
    1111  USE yomcst_mod_h
    1212
    13   IMPLICIT NONE
     13  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     14IMPLICIT NONE
    1415
    15   INCLUDE "dimensions.h"
     16
    1617  INCLUDE "clesphys.h"
    1718  INCLUDE "paramet.h"

  • LMDZ6/trunk/libf/phylmd/StratAer/interp_sulf_input.f90

    r5268 r5271  
    2121  USE strataer_local_var_mod, ONLY : flag_newclim_file,flag_verbose_strataer
    2222
    23   IMPLICIT NONE
    24 
    25   include "dimensions.h"
     23  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     24IMPLICIT NONE
     25
     26
    2627
    2728! Variable input

  • LMDZ6/trunk/libf/phylmd/StratAer/stratH2O_methox.f90

    r5268 r5271  
    2222  USE strataer_local_var_mod, ONLY : flag_newclim_file
    2323 
    24   IMPLICIT NONE
    25  
    26   include "dimensions.h"
     24  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     25IMPLICIT NONE
     26
     27
    2728 
    2829! Input variables

  • LMDZ6/trunk/libf/phylmd/acama_gwd_rando_m.f90

    r5268 r5271  
    2929    include "clesphys.h"
    3030!  OFFLINE:
    31 !   include "dimensions.h"
     31!   include "dimensions_mod.f90"
    3232!   include "dimphy.h"
    3333!END DIFFERENCE

  • LMDZ6/trunk/libf/phylmd/carbon_cycle_mod.f90

    r5268 r5271  
    225225    USE print_control_mod, ONLY: lunout
    226226
    227     IMPLICIT NONE
     227    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     228IMPLICIT NONE
    228229    INCLUDE "clesphys.h"
    229  
     230
    230231! Local variables
    231232    INTEGER               :: ierr
    … …  
    286287!=======================================================================
    287288!
    288 !   Authors: Patricia Cadule and Laurent Fairhead 
     289!   Authors: Patricia Cadule and Laurent Fairhead
    289290!   -------
    290291!
    … …  
    313314! field name         coupling          model 1         model 2         long_name
    314315!                    direction
    315 !   10char  -3spaces-  3char  -3spaces- 4char -3spaces- 4char -3spaces-  30char 
     316!   10char  -3spaces-  3char  -3spaces- 4char -3spaces- 4char -3spaces-  30char
    316317!
    317318! n
    … …  
    321322! FIELD(j+1) OUT LMDZ ORC
    322323! ...
    323 ! FIELDn OUT LMDZ ORC   
    324 ! 
     324! FIELDn OUT LMDZ ORC
     325!
    325326!=======================================================================
    326327!   ... 22/12/2017 ....
    … …  
    329330
    330331  INCLUDE "clesphys.h"
    331   INCLUDE "dimensions.h"
     332
    332333  INCLUDE "iniprint.h"
    333334

  • LMDZ6/trunk/libf/phylmd/cosp/mod_cosp.F90

    r4619 r5271  
    2323! OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
    2424
    25 #include "cosp_defs.h"
     25INCLUDE "cosp_defs.h"
    2626MODULE MOD_COSP
    2727  USE MOD_COSP_TYPES

  • LMDZ6/trunk/libf/phylmd/cosp/mod_cosp_constants.F90

    r4785 r5271  
    3333!
    3434
    35 !!#INCLUDE "cosp_defs.h"
     35!!INCLUDE "cosp_defs.h"
    3636#define MMF_V3_SINGLE_MOMENT mmf_v3_single_momen
    3737MODULE MOD_COSP_CONSTANTS

  • LMDZ6/trunk/libf/phylmd/cosp/mod_cosp_simulator.F90

    r4619 r5271  
    3131!
    3232
    33 #include "cosp_defs.h"
     33INCLUDE "cosp_defs.h"
    3434MODULE MOD_COSP_SIMULATOR
    3535  USE MOD_COSP_CONSTANTS, ONLY: I_RADAR, I_LIDAR, I_ISCCP, I_MISR, I_MODIS, &

  • LMDZ6/trunk/libf/phylmd/cosp/mod_cosp_stats.F90

    r4619 r5271  
    3636!
    3737!
    38 #include "cosp_defs.h"
     38INCLUDE "cosp_defs.h"
    3939MODULE MOD_COSP_STATS
    4040  USE MOD_COSP_CONSTANTS

  • LMDZ6/trunk/libf/phylmd/cosp/phys_cosp.F90

    r4619 r5271  
    7373
    7474!! AI rajouter
    75 #include "cosp_defs.h"
     75INCLUDE "cosp_defs.h"
    7676  USE MOD_COSP_CONSTANTS
    7777  USE MOD_COSP_TYPES

  • LMDZ6/trunk/libf/phylmd/dyn1d/1DUTILS.h

    r5270 r5271  
    1 #include "conf_gcm.f90"
     1INCLUDE "conf_gcm.f90"
    22
    33!
    … …  
    1818!   --------------
    1919
    20 #include "compar1d.h"
    21 #include "flux_arp.h"
    22 #include "tsoilnudge.h"
    23 #include "fcg_gcssold.h"
    24 #include "fcg_racmo.h"
     20INCLUDE "compar1d.h"
     21INCLUDE "flux_arp.h"
     22INCLUDE "tsoilnudge.h"
     23INCLUDE "fcg_gcssold.h"
     24INCLUDE "fcg_racmo.h"
    2525!
    2626!
    … …  
    670670      USE temps_mod, ONLY: annee_ref, day_ini, day_ref, itau_dyn
    671671
    672       IMPLICIT NONE
     672      USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     673IMPLICIT NONE
    673674!=======================================================
    674675! Ecriture du fichier de redemarrage sous format NetCDF
    … …  
    676677!   Declarations:
    677678!   -------------
    678       include "dimensions.h"
    679 !!#include "control.h"
     679
     680!!INCLUDE "control.h"
    680681
    681682!   Arguments:
    … …  
    816817      USE temps_mod, ONLY: annee_ref,day_end,day_ref,itau_dyn,itaufin
    817818
    818       IMPLICIT NONE
     819      USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     820IMPLICIT NONE
    819821!=======================================================
    820822! Ecriture du fichier de redemarrage sous format NetCDF
    … …  
    822824!   Declarations:
    823825!   -------------
    824       include "dimensions.h"
    825 !!#include "control.h"
     826
     827!!INCLUDE "control.h"
    826828
    827829!   Arguments:
    … …  
    11281130!    Auteur :  P. Le Van .
    11291131!
    1130       IMPLICIT NONE
    1131  
    1132       include "dimensions.h"
     1132      USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     1133IMPLICIT NONE
     1134
     1135
    11331136      include "paramet.h"
    11341137!
    … …  
    13481351!---------------------------------------------------------------------- 
    13491352        implicit none
    1350 #include "YOMCST.h"
     1353INCLUDE "YOMCST.h"
    13511354!        argument
    13521355        integer llm
    … …  
    14221425!---------------------------------------------------------------------- 
    14231426        implicit none
    1424 #include "YOMCST.h"
     1427INCLUDE "YOMCST.h"
    14251428!        argument
    14261429        integer llm,nqtot
    … …  
    17411744     &         ,dth_mod_cas,hth_mod_cas,vth_mod_cas,mxcalc)
    17421745 
    1743        implicit none
    1744  
    1745 #include "YOMCST.h"
    1746 #include "dimensions.h"
     1746       USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     1747implicit none
     1748
     1749INCLUDE "YOMCST.h"
     1750
    17471751
    17481752!-------------------------------------------------------------------------

  • LMDZ6/trunk/libf/phylmd/dyn1d/1Dconv.h

    r4593 r5271  
    459459     &                     ,d_t_adv,d_q_adv)
    460460      use dimphy
    461       implicit none
    462 
    463       INCLUDE "dimensions.h"
     461      USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     462implicit none
     463
     464
    464465!cccc      INCLUDE "dimphy.h"
    465466

  • LMDZ6/trunk/libf/phylmd/dyn1d/lmdz1d.F90

    r4603 r5271  
    33!
    44!#ifdef CPP_1D
    5 !#include "../dyn3d/mod_const_mpi.F90"
    6 !#include "../dyn3d_common/control_mod.F90"
    7 !#include "../dyn3d_common/infotrac.F90"
    8 !#include "../dyn3d_common/disvert.F90"
     5!INCLUDE "../dyn3d/mod_const_mpi.F90"
     6!INCLUDE "../dyn3d_common/control_mod.F90"
     7!INCLUDE "../dyn3d_common/infotrac.F90"
     8!INCLUDE "../dyn3d_common/disvert.F90"
    99
    1010
    … …  
    2626
    2727
    28 #include "1DUTILS.h"
    29 #include "1Dconv.h"
     28INCLUDE "1DUTILS.h"
     29INCLUDE "1Dconv.h"
    3030
    3131!#endif

  • LMDZ6/trunk/libf/phylmd/dyn1d/mod_1D_cases_read_std.f90

    r5270 r5271  
    931931       ,dth_mod_cas,hth_mod_cas,vth_mod_cas,mxcalc)
    932932
    933     implicit none
     933    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     934implicit none
    934935
    935936    INCLUDE "YOMCST.h"
    936     INCLUDE "dimensions.h"
     937
    937938
    938939    !-------------------------------------------------------------------------

  • LMDZ6/trunk/libf/phylmd/dyn1d/old_1DUTILS_read_interp.h

    r5270 r5271  
    542542     &         ,omega_mod,o3mmr_mod,mxcalc)
    543543
    544        implicit none
    545 
    546       INCLUDE "dimensions.h"
     544       USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     545implicit none
     546
     547
    547548
    548549!-------------------------------------------------------------------------
    … …  
    656657     &         ,tke_mod,o3mmr_mod,mxcalc)
    657658
    658        implicit none
    659 
    660       INCLUDE "dimensions.h"
     659       USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     660implicit none
     661
     662
    661663
    662664!-------------------------------------------------------------------------
    … …  
    775777     &             ,ts_rico,t_rico,q_rico,u_rico,v_rico,w_rico             &
    776778     &             ,dth_dyn,dqh_dyn)
    777       implicit none
     779      USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     780implicit none
    778781
    779782!-------------------------------------------------------------------------
    780 ! Read RICO forcing data 
     783! Read RICO forcing data
    781784!-------------------------------------------------------------------------
    782       INCLUDE "dimensions.h"
     785
    783786
    784787
    … …  
    10541057     &         ,ht_mod,vt_mod,hq_mod,vq_mod,mxcalc)
    10551058 
    1056        implicit none
    1057  
    1058       INCLUDE "dimensions.h"
     1059       USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     1060implicit none
     1061
     1062
    10591063
    10601064!-------------------------------------------------------------------------
    … …  
    11761180     &         ,dt_mod_cas,ht_mod_cas,vt_mod_cas,dtrad_mod_cas,dq_mod_cas,hq_mod_cas,vq_mod_cas,mxcalc)
    11771181 
    1178        implicit none
    1179  
    1180        INCLUDE "dimensions.h"
     1182       USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     1183implicit none
     1184
     1185
    11811186
    11821187!-------------------------------------------------------------------------
    … …  
    13351340     &         ,ht_mod,hq_mod,hu_mod,hv_mod,w_mod,omega_mod,mxcalc)
    13361341 
    1337        implicit none
    1338  
    1339        INCLUDE "dimensions.h"
     1342       USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     1343implicit none
     1344
     1345
    13401346
    13411347!-------------------------------------------------------------------------

  • LMDZ6/trunk/libf/phylmd/dyn1d/old_lmdz1d.f90

    r5268 r5271  
    4848   USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_OUTPUTPHYSSCM
    4949
    50       implicit none
    51       INCLUDE "dimensions.h"
     50      USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     51implicit none
     52
    5253      INCLUDE "YOMCST.h"
    5354!!      INCLUDE "control.h"

  • LMDZ6/trunk/libf/phylmd/dyn1d/replay1d.f90

    r5268 r5271  
    1010
    1111
    12       implicit none
    13       INCLUDE "dimensions.h"
     12      USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     13implicit none
     14
    1415
    1516real :: airefi

  • LMDZ6/trunk/libf/phylmd/dyn1d/scm.f90

    r5268 r5271  
    4444   USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_OUTPUTPHYSSCM
    4545
    46       implicit none
    47       INCLUDE "dimensions.h"
     46      USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     47implicit none
     48
    4849      INCLUDE "YOMCST.h"
    4950!!      INCLUDE "control.h"

  • LMDZ6/trunk/libf/phylmd/flott_gwd_rando_m.f90

    r5268 r5271  
    2929      include "clesphys.h"
    3030    ! OFFLINE:
    31     ! include "dimensions.h"
     31    ! include "dimensions_mod.f90"
    3232    ! include "dimphy.h"
    3333    ! END OF DIFFERENCE ONLINE-OFFLINE

  • LMDZ6/trunk/libf/phylmd/infotrac_phy.F90

    r5252 r5271  
    133133   USE lmdz_reprobus_wrappers, ONLY: Init_chem_rep_trac
    134134   USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_INCA, CPPKEY_REPROBUS, CPPKEY_STRATAER
    135    IMPLICIT NONE
     135   USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     136IMPLICIT NONE
    136137!==============================================================================================================================
    137138!
    … …  
    153154!------------------------------------------------------------------------------------------------------------------------------
    154155! Declarations:
    155    INCLUDE "dimensions.h"
     156
    156157   INCLUDE "iniprint.h"
    157158

  • LMDZ6/trunk/libf/phylmdiso/cv30_routines.F90

    r4491 r5271  
    63606360        ! Toutes les autres variables fn de ep sont calculees plus bas.
    63616361
    6362 #include "cvthermo.h"
    6363 #include "cv30param.h"
    6364 #include "conema3.h"
     6362INCLUDE "cvthermo.h"
     6363INCLUDE "cv30param.h"
     6364INCLUDE "conema3.h"
    63656365
    63666366! inputs:

  • LMDZ6/trunk/libf/phylmdiso/isotopes_routines_mod.F90

    r5270 r5271  
    2828implicit none
    2929
    30 #include "YOMCST.h"       
     30INCLUDE "YOMCST.h"
    3131
    3232! inputs
    … …  
    1296912969    USE isotrac_mod, ONLY: izone_cont,index_zone,index_iso
    1297012970#endif
    12971         implicit none
     12971        USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     12972implicit none
    1297212973
    1297312974        ! gestion de la neige: on precipte dessus, sublime, effondre,
    … …  
    1297512976        ! commun aux dfférentes sous-surfaces.
    1297612977
    12977 #include "YOETHF.h"
    12978 #include "FCTTRE.h"   
    12979 #include "YOMCST.h"
    12980 !#include "dimensions.h"
    12981 !#include "paramet.h"
     12978INCLUDE "YOETHF.h"
     12979INCLUDE "FCTTRE.h"
     12980INCLUDE "YOMCST.h"
     12981!
     12982!INCLUDE "paramet.h"
    1298212983
    1298312984         ! inputs
    … …  
    1354313544        implicit none
    1354413545
    13545 #include "YOETHF.h"         
    13546 #include "FCTTRE.h"   
    13547 #include "YOMCST.h"
     13546INCLUDE "YOETHF.h"
     13547INCLUDE "FCTTRE.h"
     13548INCLUDE "YOMCST.h"
    1354813549       
    1354913550        ! inputs
    … …  
    1445614457#endif
    1445714458
    14458         implicit none
    14459 
    14460 #include "YOETHF.h"
    14461 #include "FCTTRE.h"   
    14462 #include "YOMCST.h"
    14463 !#include "dimensions.h"
    14464 !#include "paramet.h"
     14459        USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     14460implicit none
     14461
     14462INCLUDE "YOETHF.h"
     14463INCLUDE "FCTTRE.h"
     14464INCLUDE "YOMCST.h"
     14465!
     14466!INCLUDE "paramet.h"
    1446514467       
    1446614468        ! inputs
    … …  
    1587515877      ! equivalent de phyetat0 pour les isotopes 
    1587615878
    15877 #include "dimsoil.h"
    15878 #include "clesphys.h"
    15879 #include "compbl.h"     
     15879INCLUDE "dimsoil.h"
     15880INCLUDE "clesphys.h"
     15881INCLUDE "compbl.h"
    1588015882
    1588115883!#ifdef ISOVERIF
    … …  
    1605016052        implicit none
    1605116053
    16052 #include "dimsoil.h"
    16053 #include "clesphys.h"
    16054 !  #include "thermcell.h"
    16055 #include "compbl.h"
     16054INCLUDE "dimsoil.h"
     16055INCLUDE "clesphys.h"
     16056!  INCLUDE "thermcell.h"
     16057INCLUDE "compbl.h"
    1605616058
    1605716059        ! arguments 
    … …  
    1642716429   IMPLICIT NONE
    1642816430
    16429 #include "dimsoil.h"
    16430 #include "clesphys.h"
    16431 #include "compbl.h"   
     16431INCLUDE "dimsoil.h"
     16432INCLUDE "clesphys.h"
     16433INCLUDE "compbl.h"
    1643216434
    1643316435   REAL, INTENT(IN) ::             snow     (klon,nbsrf)
    … …  
    1663816640      implicit none
    1663916641
    16640 #include "YOMCST.h"
     16642INCLUDE "YOMCST.h"
    1664116643
    1664216644! input
    … …  
    1823418236        USE isotopes_verif_mod
    1823518237#endif
    18236       implicit none
    18237 
    18238 #include "YOMCST.h"
    18239 #include "dimensions.h"
     18238      USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     18239implicit none
     18240
     18241INCLUDE "YOMCST.h"
     18242
    1824018243! pour avoir iim et jjm
    1824118244
    … …  
    1837918382      implicit none
    1838018383
    18381 #include "YOMCST.h"
     18384INCLUDE "YOMCST.h"
    1838218385
    1838318386!     Arguments
    … …  
    1854318546        ! normallement, niso en dimension suffirait, mais serait pas
    1854418547        ! cohérent avec les dimensions dans condiso_liq_ice
    18545 !#include "iso_verif.h"
     18548!INCLUDE "iso_verif.h"
    1854618549
    1854718550        ! verif que qt n'est pas nul

  • LMDZ6/trunk/libf/phylmdiso/phyredem.F90

    r5204 r5271  
    519519        ! equivalent isotopique de phyredem
    520520
    521 #include "dimsoil.h"
    522 #include "clesphys.h"
    523 #include "alpale.h"
    524 #include "compbl.h"     
     521INCLUDE "dimsoil.h"
     522INCLUDE "clesphys.h"
     523INCLUDE "alpale.h"
     524INCLUDE "compbl.h"
    525525      ! inputs
    526526      !REAL xtsol(niso,klon)

  • LMDZ6/trunk/makegcm

    r3901 r5271  
    392392             et couches verticales.
    393393             L'effet des options -d est d'ecraser le fichier
    394              $LMDGCM/libf/grid/dimensions.h
     394             $LMDGCM/libf/grid/dimensions_mod.f90
    395395             qui contient sous forme de 3 PARAMETER FORTRAN les 3 dimensions
    396396             de la grille horizontale im, jm et verticale lm, par un nouveu fichier
    … …  
    739739
    740740cd $libf/grid
    741 if ( -f dimensions.h ) then
     741if ( -f dimensions_mod.f90 ) then
    742742echo 'ATTENTION: vous etes sans doute en train de compiler le modele par ailleurs'
    743743echo "Attendez que la premiere compilation soit terminee pour relancer la suivante."
    … …  
    746746echo "Voulez-vous vraiment continuer?"
    747747if ( $< == "oui" ) then
    748 \rm -f $libf/grid/dimensions.h
     748\rm -f $libf/grid/dimensions_mod.f90
    749749else
    750750exit
    … …  
    754754cd dimension
    755755./makdim $dim
    756 cat $libf/grid/dimensions.h
     756cat $libf/grid/dimensions_mod.f90
    757757
    758758cd $LMDGCM
    … …  
    824824########################################################################
    825825##########################################
    826 # On adapte d'abord certains include à F90
     826# On adapte d'abord certains include � F90
    827827##########################################
    828828##########################################
    … …  
    11691169PROG=$code
    11701170
    1171 \rm -f $libf/grid/dimensions.h
     1171\rm -f $libf/grid/dimensions_mod.f90

  • LMDZ6/trunk/makelmdz

    r5269 r5271  
    587587
    588588cd $LIBFGCM/grid
    589 if [[ -f dimensions.h ]]
     589if [[ -f dimensions_mod.f90 ]]
    590590then
    591591    if [[ $force_compile == true ]]
    592592    then
    593         \rm -f $LIBFGCM/grid/dimensions.h
     593        \rm -f $LIBFGCM/grid/dimensions_mod.f90
    594594    else
    595595        echo "WARNING: you are probably already compiling the model somewhere else."
    … …  
    597597        echo "If you are sure that you are not compiling elsewhere, "
    598598        echo "If you are sure that you are not compiling elsewhere, then"
    599         echo rm -f $LIBFGCM/grid/dimensions.h
     599        echo rm -f $LIBFGCM/grid/dimensions_mod.f90
    600600        echo "before reruning the compilation"
    601601        echo "or run makelmdz with option -force_compile"
    … …  
    607607cd $LIBFGCM/grid/dimension
    608608./makdim $dim
    609 cat $LIBFGCM/grid/dimensions.h
     609cat $LIBFGCM/grid/dimensions_mod.f90
    610610cd $LMDGCM
    611611
    … …  
    842842set +v
    843843
    844 if [[ -r $LIBFGCM/grid/dimensions.h ]]
     844if [[ -r $LIBFGCM/grid/dimensions_mod.f90 ]]
    845845then
    846846  # Cleanup: remove dimension.h file
    847   \rm -f $LIBFGCM/grid/dimensions.h
    848 fi
     847  \rm -f $LIBFGCM/grid/dimensions_mod.f90
     848fi

  • LMDZ6/trunk/makelmdz_fcm

    r5259 r5271  
    569569
    570570cd $LIBFGCM/grid
    571 if [[ -f dimensions.h ]]
     571if [[ -f dimensions_mod.f90 ]]
    572572then
    573573    if [[ $force_compile == true ]]
    574574    then
    575         \rm -f $LIBFGCM/grid/dimensions.h
     575        \rm -f $LIBFGCM/grid/dimensions_mod.f90
    576576    else
    577577        echo "WARNING: you are probably already compiling the model somewhere else."
    … …  
    579579        echo "If you are sure that you are not compiling elsewhere, "
    580580        echo "If you are sure that you are not compiling elsewhere, then"
    581         echo rm -f $LIBFGCM/grid/dimensions.h
     581        echo rm -f $LIBFGCM/grid/dimensions_mod.f90
    582582        echo "before reruning the compilation"
    583583        echo "or run makelmdz_fcm with option -force_compile"
    … …  
    590590cd $LIBFGCM/grid/dimension
    591591./makdim $dim
    592 cat $LIBFGCM/grid/dimensions.h
     592cat $LIBFGCM/grid/dimensions_mod.f90
    593593cd $LMDGCM
    594594
    … …  
    803803ln -s $LIBOGCM/${arch}${SUFF_NAME}/.config/ppsrc tmp_src
    804804
    805 if [[ -r $LIBFGCM/grid/dimensions.h ]]
     805if [[ -r $LIBFGCM/grid/dimensions_mod.f90 ]]
    806806then
    807807  # Cleanup: remove dimension.h file
    808   \rm -f $LIBFGCM/grid/dimensions.h
     808  \rm -f $LIBFGCM/grid/dimensions_mod.f90
    809809fi
    810810
Note: See TracChangeset for help on using the changeset viewer.