Changeset 5272 for LMDZ6/trunk


Ignore:
Timestamp:
Oct 24, 2024, 5:53:15 PM (2 months ago)
Author:
abarral
Message:

Turn paramet.h into a module

Location:
LMDZ6/trunk/libf
Files:
233 edited
3 moved

Legend:

Unmodified
Added
Removed

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

    r5271 r5272  
    99  USE control_mod, ONLY : planet_type
    1010  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     11  USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     12          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1113  IMPLICIT NONE
    1214  !
    … …  
    4749  !    ------------------
    4850  !
    49   include "paramet.h"
    5051  include "comgeom.h"
    5152  !

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

    r5271 r5272  
    77  USE ener_mod, ONLY: gtot
    88  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     9  USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     10          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    911  IMPLICIT NONE
    1012  !=======================================================================
    … …  
    2628  !   Declarations:
    2729  !   -------------
    28 
    29   include "paramet.h"
    3030  include "comgeom.h"
    3131

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

    r5271 r5272  
    1515   USE strings_mod, ONLY: int2str
    1616   USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     17USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     18          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1719IMPLICIT NONE
    1820   !
    1921
    20    include "paramet.h"
     22
    2123   include "comdissip.h"
    2224   include "comgeom2.h"

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

    r5271 r5272  
    1616
    1717  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     18USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     19          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1820IMPLICIT NONE
    1921
    2022
    21   include "paramet.h"
     23
    2224  include "comgeom2.h"
    2325  include "iniprint.h"

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

    r5271 r5272  
    1313
    1414  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     15USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     16          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1517IMPLICIT NONE
    1618  !
    … …  
    2628
    2729
    28   include "paramet.h"
     30
    2931
    3032  !   Arguments:

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

    r5271 r5272  
    1010
    1111  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     12USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     13          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1214IMPLICIT NONE
    1315
    … …  
    2931
    3032
    31   include "paramet.h"
     33
    3234  include "comgeom.h"
    3335

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

    r5271 r5272  
    1919
    2020  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     21USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     22          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    2123IMPLICIT NONE
    2224  !-----------------------------------------------------------------------
    … …  
    3537  !   --------------
    3638
    37   include "paramet.h"
     39
    3840  include "comdissnew.h"
    3941  include "iniprint.h"

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

    r5271 r5272  
    44SUBROUTINE covnat (klevel,ucov, vcov, unat, vnat )
    55  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     6  USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     7          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    68  IMPLICIT NONE
    79
    … …  
    1921  !
    2022  !=======================================================================
    21 
    22 INCLUDE "paramet.h"
    23 INCLUDE "comgeom.h"
     23  INCLUDE "comgeom.h"
    2424
    2525  INTEGER :: klevel

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

    r5271 r5272  
    77
    88  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     9USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     10          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    911IMPLICIT NONE
    1012
    … …  
    2931
    3032
    31   include "paramet.h"
     33
    3234  include "comgeom.h"
    3335  include "comdissnew.h"

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

    r5271 r5272  
    44SUBROUTINE dteta1 ( teta, pbaru, pbarv, dteta)
    55  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     6  USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     7          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    68  IMPLICIT NONE
    79
    … …  
    2022  !
    2123  !=======================================================================
    22 
    23   include "paramet.h"
    2424
    2525  REAL :: teta( ip1jmp1,llm ),pbaru( ip1jmp1,llm ),pbarv( ip1jm,llm)

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

    r5271 r5272  
    44SUBROUTINE dudv1 ( vorpot, pbaru, pbarv, du, dv )
    55  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     6USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     7          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    68IMPLICIT NONE
    79  !
    … …  
    2123
    2224
    23 INCLUDE "paramet.h"
     25
    2426
    2527  REAL :: vorpot( ip1jm,llm ) ,pbaru( ip1jmp1,llm ) , &

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

    r5271 r5272  
    44SUBROUTINE dudv2 ( teta, pkf, bern, du, dv  )
    55  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     6  USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     7          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    68  IMPLICIT NONE
    79  !
    … …  
    2527  !
    2628  !=======================================================================
    27   include "paramet.h"
    28 
    2929  REAL :: teta( ip1jmp1,llm ),pkf( ip1jmp1,llm ) ,bern( ip1jmp1,llm ), &
    3030        du( ip1jmp1,llm ),  dv( ip1jm,llm )

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

    r5271 r5272  
    2525
    2626  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     27USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     28          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    2729IMPLICIT NONE
    2830
    29   include "paramet.h"
     31
    3032  include "comgeom2.h"
    3133  include "description.h"

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

    r5271 r5272  
    2020 
    2121  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     22USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     23          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    2224IMPLICIT NONE
    2325
    24   include "paramet.h"
     26
    2527  include "comgeom2.h"
    2628  include "description.h"
    … …  
    169171 
    170172  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     173USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     174          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    171175IMPLICIT NONE
    172176
    173   include "paramet.h"
     177
    174178  include "description.h"
    175179  include "comgeom.h"

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

    r5271 r5272  
    22  USE netcdf
    33  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     4  USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     5          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    46  PRIVATE
    57  PUBLIC :: dynredem_write_u, dynredem_write_v, dynredem_read_u, err
    68  PUBLIC :: cre_var, put_var1, put_var2, fil, modname, msg
    7   include "paramet.h"
    89  CHARACTER(LEN=256), SAVE :: fil, modname
    910  INTEGER,            SAVE :: nvarid

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

    r5271 r5272  
    1414  !
    1515  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     16USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     17          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1618IMPLICIT NONE
    1719  !
    1820
    19   include "paramet.h"
     21
    2022  include "comgeom.h"
    2123  include "tracstoke.h"

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

    r5271 r5272  
    88  USE comconst_mod, ONLY: pi
    99  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    10   IMPLICIT NONE
     10  USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     11          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     12IMPLICIT NONE
    1113
    1214  !=======================================================================
    … …  
    2224  !=======================================================================
    2325
    24   include "paramet.h"
     26
    2527  include "comgeom2.h"
    2628  include "iniprint.h"

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

    r5271 r5272  
    2323!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
    2424  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     25  USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     26          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    2527  IMPLICIT NONE
    2628
    … …  
    5456  !   Declarations:
    5557  !   -------------
    56 
    57   include "paramet.h"
    5858  include "comdissnew.h"
    5959  include "comgeom.h"

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

    r5271 r5272  
    77
    88  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     9USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     10          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    911implicit none
    1012
    … …  
    2123
    2224
    23   include "paramet.h"
     25
    2426  include "comgeom2.h"
    2527

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

    r5271 r5272  
    77
    88  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     9USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     10          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    911IMPLICIT NONE
    1012
    1113
    12   include "paramet.h"
     14
    1315  include "comgeom2.h"
    1416
    … …  
    142144
    143145  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     146USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     147          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    144148IMPLICIT NONE
    145149
    146150
    147   include "paramet.h"
     151
    148152  include "comgeom2.h"
    149153

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

    r5271 r5272  
    2020          nf90_64bit_offset, nf90_inq_dimid, nf90_inquire_dimension, nf90_put_var
    2121
    22   IMPLICIT NONE
     22  USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     23          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     24IMPLICIT NONE
    2325
    2426! ---------------------------------------------
    25 ! Declarations des cles logiques et parametres 
     27! Declarations des cles logiques et parametres
    2628! ---------------------------------------------
    2729  INTEGER, PRIVATE, SAVE  :: iguide_read,iguide_int,iguide_sav
    2830  INTEGER, PRIVATE, SAVE  :: nlevnc, guide_plevs
    2931  LOGICAL, PRIVATE, SAVE  :: guide_u,guide_v,guide_T,guide_Q,guide_P
    30   LOGICAL, PRIVATE, SAVE  :: guide_hr,guide_teta 
    31   LOGICAL, PRIVATE, SAVE  :: guide_BL,guide_reg,guide_add,gamma4,guide_zon 
     32  LOGICAL, PRIVATE, SAVE  :: guide_hr,guide_teta
     33  LOGICAL, PRIVATE, SAVE  :: guide_BL,guide_reg,guide_add,gamma4,guide_zon
    3234  LOGICAL, PRIVATE, SAVE  :: invert_p,invert_y,ini_anal
    3335  LOGICAL, PRIVATE, SAVE  :: guide_2D,guide_sav,guide_modele
    3436!FC
    3537  LOGICAL, PRIVATE, SAVE  :: convert_Pa
    36  
     38
    3739  REAL, PRIVATE, SAVE     :: tau_min_u,tau_max_u
    3840  REAL, PRIVATE, SAVE     :: tau_min_v,tau_max_v
    … …  
    4749  REAL, PRIVATE, SAVE     :: plim_guide_BL
    4850
    49   REAL, ALLOCATABLE, DIMENSION(:), PRIVATE, SAVE     :: alpha_u,alpha_v 
    50   REAL, ALLOCATABLE, DIMENSION(:, :), PRIVATE, SAVE     :: alpha_T,alpha_Q 
     51  REAL, ALLOCATABLE, DIMENSION(:), PRIVATE, SAVE     :: alpha_u,alpha_v
     52  REAL, ALLOCATABLE, DIMENSION(:, :), PRIVATE, SAVE     :: alpha_T,alpha_Q
    5153  REAL, ALLOCATABLE, DIMENSION(:), PRIVATE, SAVE     :: alpha_P,alpha_pcor
    52  
     54
    5355! ---------------------------------------------
    5456! Variables de guidage
    … …  
    8284
    8385
    84     INCLUDE "paramet.h"
     86
    8587
    8688    INTEGER                :: error,ncidpl,rid,rcod
    … …  
    361363 
    362364    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     365USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     366          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    363367IMPLICIT NONE
    364368
    365369
    366     INCLUDE "paramet.h"
     370
    367371    INCLUDE "iniprint.h"
    368372
    … …  
    613617   
    614618    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     619USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     620          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    615621IMPLICIT NONE
    616622
    617623
    618     INCLUDE "paramet.h"
     624
    619625    INCLUDE "comgeom.h"
    620626   
    … …  
    680686  use comvert_mod, only: preff, pressure_exner, bp, ap
    681687  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     688USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     689          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    682690IMPLICIT NONE
    683691
    684692
    685   include "paramet.h"
     693
    686694  include "comgeom2.h"
    687695
    … …  
    931939   
    932940    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     941USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     942          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    933943implicit none
    934944
    935945
    936     include "paramet.h"
     946
    937947    include "comgeom2.h"
    938948
    … …  
    11021112
    11031113    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     1114USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     1115          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    11041116IMPLICIT NONE
    11051117
    11061118
    1107     include "paramet.h"
     1119
    11081120
    11091121    INTEGER, INTENT(IN)   :: timestep
    … …  
    14031415
    14041416    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     1417USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     1418          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    14051419IMPLICIT NONE
    14061420
    14071421
    1408     include "paramet.h"
     1422
    14091423
    14101424    INTEGER, INTENT(IN)   :: timestep
    … …  
    16681682   
    16691683    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     1684USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     1685          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    16701686IMPLICIT NONE
    16711687
    16721688
    1673     INCLUDE "paramet.h"
     1689
    16741690    INCLUDE "comgeom2.h"
    16751691   

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

    r5271 r5272  
    2727
    2828  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     29USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     30          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    2931IMPLICIT NONE
    3032
    … …  
    3335
    3436
    35   include "paramet.h"
     37
    3638  include "comgeom.h"
    3739  include "academic.h"

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

    r5271 r5272  
    1414
    1515  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     16USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     17          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1618IMPLICIT NONE
    1719
    … …  
    3335
    3436
    35   include "paramet.h"
     37
    3638  include "comgeom.h"
    3739  include "iniprint.h"

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

    r5271 r5272  
    2525  USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_PHYS
    2626  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     27  USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     28          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    2729  IMPLICIT NONE
    2830
    … …  
    5759  !   Declarations:
    5860  !   -------------
    59   include "paramet.h"
    6061  include "comdissnew.h"
    6162  include "comgeom.h"

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

    r5271 r5272  
    1 !
    2 ! $Header$
    3 !
    4 !
    5 !  ATTENTION!!!!: ce fichier include est compatible format fixe/format libre
    6 !                 veillez  n'utiliser que des ! pour les commentaires
    7 !                 et  bien positionner les & des lignes de continuation
    8 !                 (les placer en colonne 6 et en colonne 73)
    9 !
    10 !
    11 !-----------------------------------------------------------------------
    12 !   INCLUDE 'paramet.h'
     1MODULE paramet_mod_h
     2  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    133
    14       INTEGER  iip1,iip2,iip3,jjp1,llmp1,llmp2,llmm1
    15       INTEGER  kftd,ip1jm,ip1jmp1,ip1jmi1,ijp1llm
    16       INTEGER  ijmllm,mvar
    17       INTEGER jcfil,jcfllm
     4  IMPLICIT NONE; PRIVATE
     5  PUBLIC iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     6          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    187
    19       PARAMETER( iip1= iim+1,iip2=iim+2,iip3=iim+3                       &
    20      &    ,jjp1=jjm+1-1/jjm)
    21       PARAMETER( llmp1 = llm+1,  llmp2 = llm+2, llmm1 = llm-1 )
    22       PARAMETER( kftd  = iim/2 -ndm )
    23       PARAMETER( ip1jm  = iip1*jjm,  ip1jmp1= iip1*jjp1 )
    24       PARAMETER( ip1jmi1= ip1jm - iip1 )
    25       PARAMETER( ijp1llm= ip1jmp1 * llm, ijmllm= ip1jm * llm )
    26       PARAMETER( mvar= ip1jmp1*( 2*llm+1) + ijmllm )
    27       PARAMETER( jcfil=jjm/2+5, jcfllm=jcfil*llm )
     8  INTEGER  iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1
     9  INTEGER  kftd, ip1jm, ip1jmp1, ip1jmi1, ijp1llm
     10  INTEGER  ijmllm, mvar
     11  INTEGER jcfil, jcfllm
    2812
    29 !-----------------------------------------------------------------------
     13  PARAMETER(iip1 = iim + 1, iip2 = iim + 2, iip3 = iim + 3, jjp1 = jjm + 1 - 1 / jjm)
     14  PARAMETER(llmp1 = llm + 1, llmp2 = llm + 2, llmm1 = llm - 1)
     15  PARAMETER(kftd = iim / 2 - ndm)
     16  PARAMETER(ip1jm = iip1 * jjm, ip1jmp1 = iip1 * jjp1)
     17  PARAMETER(ip1jmi1 = ip1jm - iip1)
     18  PARAMETER(ijp1llm = ip1jmp1 * llm, ijmllm = ip1jm * llm)
     19  PARAMETER(mvar = ip1jmp1 * (2 * llm + 1) + ijmllm)
     20  PARAMETER(jcfil = jjm / 2 + 5, jcfllm = jcfil * llm)
     21END MODULE paramet_mod_h

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

    r5271 r5272  
    77  USE strings_mod, ONLY: strIdx
    88  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     9USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     10          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    911IMPLICIT none
    1012  !
    … …  
    1315  !
    1416
    15   include "paramet.h"
     17
    1618  !
    1719  INTEGER :: nqtot

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

    r5271 r5272  
    2323!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
    2424  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    25 
     25  USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     26          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    2627  IMPLICIT NONE
    2728
    … …  
    5556  !   Declarations:
    5657  !   -------------
    57   include "paramet.h"
    5858  include "comdissnew.h"
    5959  include "comgeom2.h"

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

    r5271 r5272  
    3030
    3131  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     32USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     33          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    3234IMPLICIT NONE
    3335  !-----------------------------------------------------------------------
    … …  
    3638
    3739
    38   include "paramet.h"
     40
    3941  include "comgeom.h"
    4042  include "iniprint.h"

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

    r5271 r5272  
    88   ! USE dimphy
    99  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     10USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     11          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1012IMPLICIT none
    1113
    … …  
    4648  ! REAL ptop, pbot, aist(klon), aisb(klon)
    4749  !
    48 INCLUDE "paramet.h"
     50
    4951  !
    5052  INTEGER :: lt(ip1jm), lb(ip1jm)

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

    r5271 r5272  
    88   ! USE dimphy
    99  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     10USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     11          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1012IMPLICIT none
    1113
    … …  
    4648  ! REAL ptop, pbot, aist(klon), aisb(klon)
    4749  !
    48 INCLUDE "paramet.h"
     50
    4951  !
    5052  INTEGER :: lt(ip1jmp1), lb(ip1jmp1)

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

    r5271 r5272  
    99
    1010  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     11USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     12          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1113IMPLICIT NONE
    1214  !
    1315
    14   include "paramet.h"
     16
    1517  include "comgeom2.h"
    1618

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

    r5271 r5272  
    2020  !   --------------------------------------------------------------------
    2121  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     22USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     23          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    2224IMPLICIT NONE
    2325  !
    2426
    25   include "paramet.h"
     27
    2628
    2729  !
    … …  
    138140  !   --------------------------------------------------------------------
    139141  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     142USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     143          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    140144IMPLICIT NONE
    141145  !
    142146
    143   include "paramet.h"
     147
    144148  include "iniprint.h"
    145149  !
    … …  
    498502  USE comconst_mod, ONLY: pi
    499503  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     504USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     505          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    500506IMPLICIT NONE
    501507  !
    502508
    503   include "paramet.h"
     509
    504510  include "comgeom.h"
    505511  !
    … …  
    861867  !   --------------------------------------------------------------------
    862868  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     869USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     870          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    863871IMPLICIT NONE
    864872  !
    865873
    866   include "paramet.h"
     874
    867875  !
    868876  !
    … …  
    10481056subroutine minmaxq(zq,qmin,qmax,comment)
    10491057  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    1050   INCLUDE "paramet.h"
     1058  USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     1059          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    10511060
    10521061  character(len=20) :: comment

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

    r5271 r5272  
    2727  USE logic_mod, ONLY: adv_qsat_liq
    2828  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     29USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     30          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    2931IMPLICIT NONE
    3032  !
    3133
    32   include "paramet.h"
     34
    3335
    3436  !
    … …  
    192194  !   --------------------------------------------------------------------
    193195  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     196USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     197          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    194198IMPLICIT NONE
    195199  !
    196200
    197   include "paramet.h"
     201
    198202  !
    199203  !
    … …  
    557561
    558562  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     563USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     564          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    559565IMPLICIT NONE
    560566  !
    561567
    562   include "paramet.h"
     568
    563569  include "comgeom.h"
    564570  !

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

    r5271 r5272  
    77  USE comconst_mod, ONLY: dtvr
    88  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     9USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     10          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    911IMPLICIT NONE
    1012
    1113
    12   include "paramet.h"
     14
    1315  include "comdissip.h"
    1416  include "comgeom2.h"

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

    r5271 r5272  
    1616  !   --------------------------------------------------------------------
    1717  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     18USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     19          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1820IMPLICIT NONE
    1921  !
    2022
    21   include "paramet.h"
     23
    2224  include "comgeom.h"
    2325  include "iniprint.h"
    … …  
    146148  !   --------------------------------------------------------------------
    147149  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     150USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     151          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    148152IMPLICIT NONE
    149153  !
    150154
    151   INCLUDE "paramet.h"
     155
    152156  INCLUDE "iniprint.h"
    153157  !
    … …  
    264268  !   --------------------------------------------------------------------
    265269  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     270USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     271          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    266272IMPLICIT NONE
    267273  !
    268274
    269   INCLUDE "paramet.h"
     275
    270276  INCLUDE "iniprint.h"
    271277  !
    … …  
    361367  !   --------------------------------------------------------------------
    362368  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     369USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     370          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    363371IMPLICIT NONE
    364372  !
    365373
    366   INCLUDE "paramet.h"
     374
    367375  INCLUDE "iniprint.h"
    368376  !
    … …  
    484492  !   --------------------------------------------------------------------
    485493  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     494USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     495          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    486496IMPLICIT NONE
    487497  !
    488498
    489   include "paramet.h"
     499
    490500  include "iniprint.h"
    491501  !
    … …  
    750760  !   --------------------------------------------------------------------
    751761  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     762USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     763          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    752764IMPLICIT NONE
    753765  !
    754766
    755   INCLUDE "paramet.h"
     767
    756768  INCLUDE "comgeom.h"
    757769  INCLUDE "iniprint.h"
    … …  
    882894  !   --------------------------------------------------------------------
    883895  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     896USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     897          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    884898IMPLICIT NONE
    885899  !
    886900
    887   INCLUDE "paramet.h"
     901
    888902  INCLUDE "comgeom.h"
    889903  INCLUDE "iniprint.h"

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

    r5271 r5272  
    55        sx,sy,sz,lati,latf)
    66  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     7USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     8          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    79IMPLICIT NONE
    810
    … …  
    2527  !
    2628
    27   include "paramet.h"
     29
    2830
    2931  !  Arguments :

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

    r5271 r5272  
    55         ,SSXX,SSXY,SSXZ,SYY,SYZ,SZZ,ntra)
    66   USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     7USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     8          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    79IMPLICIT NONE
    810  !CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
    … …  
    1517  !
    1618
    17   include "paramet.h"
     19
    1820
    1921   INTEGER :: ntra

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

    r5271 r5272  
    44SUBROUTINE advy(limit,dty,pbarv,sm,s0,sx,sy,sz)
    55  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     6USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     7          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    68IMPLICIT NONE
    79
    … …  
    2830  !
    2931
    30   include "paramet.h"
     32
    3133  include "comgeom2.h"
    3234

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

    r5271 r5272  
    55        ,SSXX,SSXY,SSXZ,SYY,SYZ,SZZ,ntra )
    66  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     7USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     8          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    79IMPLICIT NONE
    810  !CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
    … …  
    3032  !
    3133
    32   include "paramet.h"
     34
    3335  include "comgeom.h"
    3436

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

    r5271 r5272  
    44SUBROUTINE advz(limit,dtz,w,sm,s0,sx,sy,sz)
    55  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     6USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     7          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    68IMPLICIT NONE
    79
    … …  
    2325  !
    2426
    25   include "paramet.h"
     27
    2628
    2729  ! INCLUDE "traceur.h"

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

    r5271 r5272  
    66
    77  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     8USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     9          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    810IMPLICIT NONE
    911
    … …  
    3335  !
    3436
    35   include "paramet.h"
     37
    3638  include "comgeom.h"
    3739  !

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

    r5271 r5272  
    44SUBROUTINE bernoui (ngrid,nlay,pphi,pecin,pbern)
    55  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     6USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     7          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    68IMPLICIT NONE
    79
    … …  
    2729  !
    2830
    29   include "paramet.h"
     31
    3032  !
    3133  !   Arguments:

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

    r5271 r5272  
    99  USE comvert_mod, ONLY: ap, bp
    1010  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     11USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     12          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1113IMPLICIT NONE
    1214
    13   include "paramet.h"
     15
    1416  include "comgeom.h"
    1517!===============================================================================

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

    r5271 r5272  
    1919  !
    2020  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     21USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     22          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    2123IMPLICIT NONE
    2224  !
    2325
    24   INCLUDE "paramet.h"
     26
    2527  REAL :: xflu,yflu,convfl,convpn,convps
    2628  INTEGER :: l,ij,nbniv

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

    r5271 r5272  
    66! Purpose: Compute mass flux convergence at p levels.
    77  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     8USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     9          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    810IMPLICIT NONE
    911
    10   include "paramet.h"
     12
    1113  include "comgeom.h"
    1214!===============================================================================

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

    r5271 r5272  
    1414
    1515  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     16USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     17          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1618IMPLICIT NONE
    1719  REAL :: lon,lat
    … …  
    2022
    2123
    22   include "paramet.h"
     24
    2325  include "comgeom.h"
    2426

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

    r5271 r5272  
    77!-------------------------------------------------------------------------------
    88  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     9USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     10          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    911IMPLICIT NONE
    1012
    11   include "paramet.h"
     13
    1214  include "comgeom.h"
    1315!===============================================================================

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

    r5271 r5272  
    5656
    5757  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     58USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     59          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    5860IMPLICIT NONE
    5961  !
    6062
    61   INCLUDE "paramet.h"
     63
    6264  INCLUDE "comgeom.h"
    6365  INCLUDE "iniprint.h"

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

    r5271 r5272  
    1111
    1212  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     13USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     14          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1315IMPLICIT NONE
    1416
    1517
    16   include "paramet.h"
     18
    1719  include "iniprint.h"
    1820

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

    r5271 r5272  
    1414
    1515  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     16USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     17          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1618IMPLICIT NONE
    1719
    1820
    19   include "paramet.h"
     21
    2022  include "iniprint.h"
    2123  !

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

    r5271 r5272  
    1212  !  *********************************************************************
    1313  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     14USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     15          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1416IMPLICIT NONE
    1517  !
    … …  
    2426  !   ---------------------------------------------------------------------
    2527
    26   INCLUDE "paramet.h"
     28
    2729  INCLUDE "comgeom.h"
    2830  !

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

    r5271 r5272  
    1313  !  *********************************************************************
    1414  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     15USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     16          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1517IMPLICIT NONE
    1618  !
    … …  
    2527  !   ---------------------------------------------------------------------
    2628
    27   INCLUDE "paramet.h"
     29
    2830  INCLUDE "comgeom.h"
    2931  !

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

    r5271 r5272  
    1212  !  *********************************************************************
    1313  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     14USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     15          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1416IMPLICIT NONE
    1517  !
    … …  
    2426  !   ---------------------------------------------------------------------
    2527
    26   INCLUDE "paramet.h"
     28
    2729  INCLUDE "comgeom.h"
    2830  !

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

    r5271 r5272  
    44SUBROUTINE divergst(klevel,x,y,div)
    55  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     6  USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     7          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     8
    69  IMPLICIT NONE
    710  !
    … …  
    1821  !   -------------------------------------------------------------------
    1922  !
    20   INCLUDE "paramet.h"
    2123  INCLUDE "comgeom.h"
    2224

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

    r5271 r5272  
    44SUBROUTINE divgrad (klevel,h, lh, divgra )
    55  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     6USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     7          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    68IMPLICIT NONE
    79  !
    … …  
    2224  !
    2325
    24   include "paramet.h"
     26
    2527  include "comgeom.h"
    2628  include "comdissipn.h"

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

    r5271 r5272  
    1414  !
    1515  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     16USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     17          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1618IMPLICIT NONE
    1719  !
    1820
    19   INCLUDE "paramet.h"
     21
    2022  INCLUDE "comgeom2.h"
    2123  INCLUDE "comdissipn.h"

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

    r5271 r5272  
    55
    66USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     7USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     8          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    79IMPLICIT NONE
    810
    911
    10 include "paramet.h"
     12
    1113
    1214      REAL ang0,etot0,ptot0,ztot0,stot0,                        &

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

    r5271 r5272  
    66! Purpose: Compute kinetic energy at sigma levels.
    77  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     8USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     9          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    810IMPLICIT NONE
    911
    10   include "paramet.h"
     12
    1113  include "comgeom.h"
    1214!===============================================================================

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

    r5271 r5272  
    3737   
    3838    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     39USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     40          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    3941IMPLICIT NONE
    4042
    4143
    42     include "paramet.h"
     44
    4345    include "comgeom.h"
    4446

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

    r5271 r5272  
    3434   
    3535    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     36USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     37          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    3638IMPLICIT NONE
    3739
    3840
    39     include "paramet.h"
     41
    4042    include "comgeom.h"
    4143

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

    r5271 r5272  
    66! Purpose: Compute mass flux at s levels.
    77  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     8USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     9          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    810IMPLICIT NONE
    911
    10   include "paramet.h"
     12
    1113  include "comgeom.h"
    1214!===============================================================================

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

    r5271 r5272  
    1010
    1111  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     12USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     13          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1214IMPLICIT NONE
    1315
    … …  
    1921  !
    2022
    21   include "paramet.h"
     23
    2224
    2325   INTEGER :: i,j

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

    r5271 r5272  
    99  USE comconst_mod, ONLY: pi
    1010  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     11USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     12          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1113IMPLICIT NONE
    1214  !
    … …  
    1820  !
    1921
    20   INCLUDE "paramet.h"
     22
    2123
    2224   INTEGER :: i,j

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

    r5271 r5272  
    44SUBROUTINE geopot (ngrid, teta, pk, pks, phis, phi )
    55  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     6  USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     7          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     8
    69IMPLICIT NONE
    710
    … …  
    2730  !   Declarations:
    2831  !   -------------
    29 
    30 
    31   include "paramet.h"
    3232
    3333  !   Arguments:

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

    r5271 r5272  
    2626  !=======================================================================
    2727  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     28USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     29          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    2830IMPLICIT NONE
    2931  !-----------------------------------------------------------------------
    … …  
    3234
    3335
    34   INCLUDE "paramet.h"
     36
    3537  INCLUDE "comgeom.h"
    3638

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

    r5271 r5272  
    2626  !=======================================================================
    2727  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     28USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     29          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    2830IMPLICIT NONE
    2931  !-----------------------------------------------------------------------
    … …  
    3234
    3335
    34   INCLUDE "paramet.h"
     36
    3537  INCLUDE "comgeom.h"
    3638

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

    r5271 r5272  
    1414  !
    1515  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     16USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     17          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1618IMPLICIT NONE
    1719  !
    1820
    19   INCLUDE "paramet.h"
     21
    2022  INTEGER :: klevel
    2123  REAL :: pg( ip1jmp1,klevel )

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

    r5271 r5272  
    1818  !
    1919  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     20USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     21          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    2022IMPLICIT NONE
    2123  !
    2224
    23   include "paramet.h"
     25
    2426  include "comdissipn.h"
    2527

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

    r5271 r5272  
    1717  !
    1818  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     19USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     20          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1921IMPLICIT NONE
    2022  !
    2123
    22   INCLUDE "paramet.h"
     24
    2325  INCLUDE "comgeom.h"
    2426  INCLUDE "comdissipn.h"

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

    r5271 r5272  
    1818 
    1919  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     20USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     21          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    2022IMPLICIT NONE
    2123
    2224
    23   INCLUDE "paramet.h"
     25
    2426  INCLUDE "comgeom.h"
    2527

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

    r5271 r5272  
    1212 
    1313  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     14USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     15          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1416IMPLICIT NONE
    1517  !
    … …  
    2022  !
    2123
    22   include "paramet.h"
     24
    2325  include "iniprint.h"
    2426

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

    r5271 r5272  
    1717
    1818  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     19USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     20          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1921IMPLICIT NONE
    2022
    21   include "paramet.h"
     23
    2224  include "comdissipn.h"
    2325  include "iniprint.h"

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

    r5271 r5272  
    2323        alphax,alphay,taux,tauy,transx,transy,pxo,pyo
    2424  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     25USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     26          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    2527IMPLICIT NONE
    2628  !
    2729
    28   include "paramet.h"
     30
    2931  include "comgeom2.h"
    3032  include "comdissnew.h"

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

    r5271 r5272  
    1212 
    1313  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     14USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     15          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1416implicit none
    1517
    … …  
    3638
    3739
    38   include "paramet.h"
     40
    3941  include "comgeom.h"
    4042  include "description.h"

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

    r5271 r5272  
    1212
    1313  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     14USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     15          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1416implicit none
    1517
    … …  
    4244  !   Declarations
    4345
    44   include "paramet.h"
     46
    4547  include "comgeom.h"
    4648  include "description.h"

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

    r5271 r5272  
    1313
    1414  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     15USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     16          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1517implicit none
    1618
    … …  
    4143  !   Declarations
    4244
    43   include "paramet.h"
     45
    4446  include "comgeom.h"
    4547  include "description.h"

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

    r5271 r5272  
    77
    88  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     9USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     10          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    911implicit none
    1012
    … …  
    2224    ! (for "iim", "jjm")
    2325
    24     include "paramet.h"
     26
    2527    ! (for other included files)
    2628

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

    r5271 r5272  
    55
    66   USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     7USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     8          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    79implicit none
    810
    911
    1012
    11   include "paramet.h"
     13
    1214  include "comgeom2.h"
    1315

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

    r5271 r5272  
    1010
    1111   USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     12USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     13          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1214implicit none
    1315
    1416
    15   include "paramet.h"
     17
    1618  include "comdissip.h"
    1719  include "comgeom2.h"

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

    r5271 r5272  
    1313  !
    1414  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     15USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     16          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1517IMPLICIT NONE
    1618  !
    1719
    18   INCLUDE "paramet.h"
     20
    1921  INCLUDE "comgeom.h"
    2022

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

    r5271 r5272  
    1515  !
    1616  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     17USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     18          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1719IMPLICIT NONE
    1820  !
    1921
    20   INCLUDE "paramet.h"
     22
    2123  INCLUDE "comgeom.h"
    2224

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

    r5271 r5272  
    1414  !
    1515  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     16USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     17          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1618IMPLICIT NONE
    1719  !
    1820
    19   INCLUDE "paramet.h"
     21
    2022  INCLUDE "comgeom.h"
    2123

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

    r5271 r5272  
    1313  !
    1414  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     15USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     16          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1517IMPLICIT NONE
    1618  !
    1719
    18   INCLUDE "paramet.h"
     20
    1921  INCLUDE "comgeom.h"
    2022

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

    r5271 r5272  
    1414  !   --------------------------------------------------------------------
    1515  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     16USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     17          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1618IMPLICIT NONE
    1719  !
    1820
    19   include "paramet.h"
     21
    2022  include "comgeom.h"
    2123  !

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

    r5271 r5272  
    1616  USE comconst_mod, ONLY: pi
    1717  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     18USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     19          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1820IMPLICIT NONE
    1921  !
    2022
    21   include "paramet.h"
     23
    2224  include "comgeom.h"
    2325  !

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

    r5271 r5272  
    1414  !   --------------------------------------------------------------------
    1515  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     16USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     17          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1618IMPLICIT NONE
    1719  !
    1820
    19   include "paramet.h"
     21
    2022  include "comgeom.h"
    2123  !

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

    r5271 r5272  
    77! See iniconst for more details.
    88  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     9USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     10          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    911IMPLICIT NONE
    1012
    11   include "paramet.h"
     13
    1214  include "comgeom.h"
    1315!===============================================================================

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

    r5271 r5272  
    77! See iniconst for more details.
    88  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     9USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     10          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    911IMPLICIT NONE
    1012
    11   include "paramet.h"
     13
    1214  include "comgeom.h"
    1315!===============================================================================

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

    r5271 r5272  
    1717  !
    1818  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     19USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     20          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1921IMPLICIT NONE
    2022  !
    2123
    22   include "paramet.h"
     24
    2325  include "comgeom.h"
    2426  !

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

    r5271 r5272  
    1313  !
    1414  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     15USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     16          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1517IMPLICIT NONE
    1618  !
    1719
    18   INCLUDE "paramet.h"
     20
    1921  INCLUDE "comgeom.h"
    2022  INTEGER :: klevel

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

    r5271 r5272  
    1313  !
    1414  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     15USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     16          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1517IMPLICIT NONE
    1618  !
    1719
    18   INCLUDE "paramet.h"
     20
    1921  INCLUDE "comgeom.h"
    2022  INTEGER :: klevel

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

    r5271 r5272  
    33!
    44SUBROUTINE nxgradst (klevel,rot, x, y )
    5   !
    65  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     6  USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     7          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    78IMPLICIT NONE
    89  ! Auteur :  P. Le Van
    … …  
    1516  !
    1617
    17   INCLUDE "paramet.h"
    1818  INCLUDE "comgeom.h"
    1919

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

    r5271 r5272  
    1616  !
    1717  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     18USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     19          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1820IMPLICIT NONE
    1921  !
    2022
    21   INCLUDE "paramet.h"
     23
    2224  INCLUDE "comdissipn.h"
    2325  !

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

    r5271 r5272  
    1717  !
    1818  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     19USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     20          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1921IMPLICIT NONE
    2022  !
    2123  !
    2224
    23   include "paramet.h"
     25
    2426  include "comdissipn.h"
    2527  !

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

    r5271 r5272  
    44SUBROUTINE pbar ( pext, pbarx, pbary, pbarxy )
    55  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     6  USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     7          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    68IMPLICIT NONE
    79
    … …  
    7577  !=======================================================================
    7678
    77 
    78 
    79   INCLUDE "paramet.h"
    80 
    8179  INCLUDE "comgeom.h"
    8280

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

    r5271 r5272  
    33!
    44SUBROUTINE pentes_ini (q,w,masse,pbaru,pbarv,mode)
    5 
    65  USE comconst_mod, ONLY: pi, dtvr
    7 
    86  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     7  USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     8          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    99IMPLICIT NONE
    1010
    … …  
    2424  !
    2525  !=======================================================================
    26 
    27 
    28 
    29   include "paramet.h"
    3026  include "comgeom2.h"
    3127

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

    r5271 r5272  
    33!
    44SUBROUTINE prather (q,w,masse,pbaru,pbarv,nt,dt)
    5 
    65  USE comconst_mod, ONLY: pi
    7 
    86  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     7  USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     8          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    99IMPLICIT NONE
    1010
    … …  
    2121  !
    2222  !=======================================================================
    23 
    24 
    25 
    26   include "paramet.h"
    2723  include "comgeom2.h"
    2824

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

    r5271 r5272  
    99!-------------------------------------------------------------------------------
    1010  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     11USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     12          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1113IMPLICIT NONE
    1214
    13   include "paramet.h"
     15
    1416!===============================================================================
    1517! Arguments:

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

    r5271 r5272  
    44SUBROUTINE psextbar ( ps, psexbarxy )
    55  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     6  USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     7          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    68IMPLICIT NONE
    79
    … …  
    7476  !
    7577  !=======================================================================
    76 
    77 
    78 
    79   INCLUDE "paramet.h"
    8078  INCLUDE "comgeom.h"
    8179

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

    r5271 r5272  
    1414  !
    1515  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     16USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     17          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1618IMPLICIT NONE
    1719  !
    1820
    19   INCLUDE "paramet.h"
     21
    2022  INCLUDE "comgeom.h"
    2123  !

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

    r5271 r5272  
    1414  !
    1515  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     16USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     17          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1618IMPLICIT NONE
    1719  !
    1820
    19   INCLUDE "paramet.h"
     21
    2022  INCLUDE "comgeom.h"
    2123  !

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

    r5271 r5272  
    1515  !
    1616  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     17USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     18          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1719IMPLICIT NONE
    1820  !
    1921
    20   INCLUDE "paramet.h"
     22
    2123  INCLUDE "comgeom.h"
    2224  !

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

    r5271 r5272  
    1414  !
    1515  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     16USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     17          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1618IMPLICIT NONE
    1719  !
    1820  INTEGER :: klevel
    1921
    20   INCLUDE "paramet.h"
     22
    2123
    2224  REAL :: rot( ip1jm,klevel )

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

    r5271 r5272  
    1313        rmsdpdt,rmsv
    1414  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     15USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     16          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1517IMPLICIT NONE
    1618
    … …  
    3234
    3335
    34   INCLUDE "paramet.h"
     36
    3537  INCLUDE "comgeom.h"
    3638  INCLUDE "iniprint.h"

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

    r5271 r5272  
    1010  !
    1111  USE infotrac, ONLY : nqtot
    12   !
    13   ! USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     12  USE dimensions_mod, ONLY: iim, llm
     13  USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     14          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1415IMPLICIT NONE
    15   !
    16 
    17   INCLUDE "paramet.h"
    1816  !
    1917  !    ......  Arguments   ......

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

    r5271 r5272  
    66! Purpose: Compute potential vorticity.
    77  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     8USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     9          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    810IMPLICIT NONE
    911
    10   include "paramet.h"
     12
    1113  include "comgeom.h"
    1214!===============================================================================

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

    r5271 r5272  
    55
    66      USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     7USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     8          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    79implicit none
    810
    911
    10   include "paramet.h"
     12
    1113  include "comdissip.h"
    1214  include "comgeom2.h"

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

    r5271 r5272  
    1414 
    1515  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     16USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     17          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1618implicit none
    1719
    1820
    19   include "paramet.h"
     21
    2022  include "comgeom2.h"
    2123

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

    r5271 r5272  
    77  USE comvert_mod, ONLY: bp
    88  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     9USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     10          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    911IMPLICIT NONE
    1012
    11   include "paramet.h"
     13
    1214!===============================================================================
    1315! Arguments:

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

    r5271 r5272  
    99  USE temps_mod, ONLY: itau_dyn
    1010  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     11USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     12          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1113implicit none
    1214
    … …  
    3032  !   Declarations
    3133
    32   include "paramet.h"
     34
    3335  include "comgeom.h"
    3436  include "description.h"

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

    r5271 r5272  
    88  USE temps_mod, ONLY: itau_dyn
    99  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     10USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     11          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1012implicit none
    1113
    … …  
    3234  !
    3335  !   Declarations
    34   include "paramet.h"
     36
    3537  include "comgeom.h"
    3638  include "description.h"

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

    r5271 r5272  
    99  USE control_mod, ONLY : planet_type
    1010  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     11  USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     12          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1113  IMPLICIT NONE
    1214  !
    … …  
    4648  !    0.  Declarations :
    4749  !    ------------------
    48   !
    49   include "paramet.h"
    5050  include "comgeom.h"
    5151  !

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

    r5271 r5272  
    1111  USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_DEBUGIO
    1212  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     13  USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     14          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1315IMPLICIT NONE
    1416  !=======================================================================
    … …  
    3032  !   Declarations:
    3133  !   -------------
    32 
    33 
    34   include "paramet.h"
    3534  include "comgeom.h"
    3635

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

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

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

    r5271 r5272  
    2222   USE strings_mod, ONLY: int2str
    2323   USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     24USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     25          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    2426IMPLICIT NONE
    2527   !
    2628
    27    include "paramet.h"
     29
    2830   include "comdissip.h"
    2931   include "comgeom2.h"

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

    r5271 r5272  
    1111  USE vlspltgen_mod
    1212  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     13USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     14          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1315IMPLICIT NONE
    1416
    15   INCLUDE "paramet.h"
     17
    1618  TYPE(distrib),POINTER :: d
    1719   

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

    r5271 r5272  
    11MODULE allocate_field_mod
     2  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     3  USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     4          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     5
     6  IMPLICIT NONE; PRIVATE
     7  PUBLIC allocate_u, switch_u, switch_v, allocate_v, allocate2d_u, allocate2d_v, &
     8          switch2d_u, switch2d_v, init_nan
    29
    310  INTERFACE allocate_u
    … …  
    158165  SUBROUTINE allocate1d_u2d(field,d)
    159166  USE parallel_lmdz
    160   USE dimensions_mod, ONLY: iim, jjm, llm, ndm  IMPLICIT NONE
     167  IMPLICIT NONE
    161168  REAL,POINTER :: field(:,:)
    162169  TYPE(distrib),INTENT(IN) :: d
    … …  
    174181  SUBROUTINE allocate2d_u2d(field,dim1,d)
    175182  USE parallel_lmdz
    176   USE dimensions_mod, ONLY: iim, jjm, llm, ndm  IMPLICIT NONE
     183
     184  IMPLICIT NONE
    177185  REAL,POINTER :: field(:,:,:)
    178186  INTEGER      :: dim1
    … …  
    190198  SUBROUTINE allocate3d_u2d(field,dim1,dim2,d)
    191199  USE parallel_lmdz
    192   USE dimensions_mod, ONLY: iim, jjm, llm, ndm  IMPLICIT NONE
     200
     201  IMPLICIT NONE
    193202  REAL,POINTER :: field(:,:,:,:)
    194203  INTEGER      :: dim1,dim2
    … …  
    208217  SUBROUTINE allocate1d_v2d(field,d)
    209218  USE parallel_lmdz
    210   USE dimensions_mod, ONLY: iim, jjm, llm, ndm  IMPLICIT NONE
     219
     220  IMPLICIT NONE
    211221  REAL,POINTER :: field(:,:)
    212222  TYPE(distrib),INTENT(IN) :: d
    … …  
    224234  SUBROUTINE allocate2d_v2d(field,dim1,d)
    225235  USE parallel_lmdz
    226   USE dimensions_mod, ONLY: iim, jjm, llm, ndm  IMPLICIT NONE
     236
     237  IMPLICIT NONE
    227238  REAL,POINTER :: field(:,:,:)
    228239  INTEGER      :: dim1
    … …  
    240251  SUBROUTINE allocate3d_v2d(field,dim1,dim2,d)
    241252  USE parallel_lmdz
    242   USE dimensions_mod, ONLY: iim, jjm, llm, ndm  IMPLICIT NONE
     253
     254  IMPLICIT NONE
    243255  REAL,POINTER :: field(:,:,:,:)
    244256  INTEGER      :: dim1,dim2
    … …  
    505517  USE parallel_lmdz
    506518  USE mod_hallo
    507   USE dimensions_mod, ONLY: iim, jjm, llm, ndm  IMPLICIT NONE
     519
     520  IMPLICIT NONE
    508521  REAL,POINTER :: field(:,:)
    509522  TYPE(distrib),INTENT(IN) :: old_dist
    … …  
    541554  USE parallel_lmdz
    542555  USE mod_hallo
    543   USE dimensions_mod, ONLY: iim, jjm, llm, ndm  IMPLICIT NONE
     556
     557  IMPLICIT NONE
    544558  REAL,POINTER :: field(:,:,:)
    545559  TYPE(distrib),INTENT(IN) :: old_dist
    … …  
    577591  USE parallel_lmdz
    578592  USE mod_hallo
    579   USE dimensions_mod, ONLY: iim, jjm, llm, ndm  IMPLICIT NONE
     593
     594  IMPLICIT NONE
    580595  REAL,POINTER :: field(:,:,:,:)
    581596  TYPE(distrib),INTENT(IN) :: old_dist
    … …  
    616631  USE parallel_lmdz
    617632  USE mod_hallo
    618   USE dimensions_mod, ONLY: iim, jjm, llm, ndm  IMPLICIT NONE
     633
     634  IMPLICIT NONE
    619635  REAL,POINTER :: field(:,:)
    620636  TYPE(distrib),INTENT(IN) :: old_dist
    … …  
    652668  USE parallel_lmdz
    653669  USE mod_hallo
    654   USE dimensions_mod, ONLY: iim, jjm, llm, ndm  IMPLICIT NONE
     670
     671  IMPLICIT NONE
    655672  REAL,POINTER :: field(:,:,:)
    656673  TYPE(distrib),INTENT(IN) :: old_dist
    … …  
    688705  USE parallel_lmdz
    689706  USE mod_hallo
    690   USE dimensions_mod, ONLY: iim, jjm, llm, ndm  IMPLICIT NONE
     707
     708  IMPLICIT NONE
    691709  REAL,POINTER :: field(:,:,:,:)
    692710  TYPE(distrib),INTENT(IN) :: old_dist

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

    r5271 r5272  
    33  USE mod_filtreg_p
    44  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     5USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     6          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    57IMPLICIT NONE
    68
    … …  
    2628  !
    2729
    28   include "paramet.h"
     30
    2931  !
    3032  !   Arguments:

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

    r5271 r5272  
    2020
    2121  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     22USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     23          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    2224IMPLICIT NONE
    2325
    2426
    25   include "paramet.h"
     27
    2628  include "comgeom2.h"
    2729  include "iniprint.h"

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

    r5271 r5272  
    1818  USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_DEBUGIO
    1919  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     20USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     21          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    2022IMPLICIT NONE
    2123  !
    … …  
    3133
    3234
    33   include "paramet.h"
     35
    3436
    3537  !   Arguments:

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

    r5271 r5272  
    3535  USE groupe_mod
    3636  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     37USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     38          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    3739IMPLICIT NONE
    3840
    39   INCLUDE "paramet.h"
     41
    4042  TYPE(distrib),POINTER :: d
    4143

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

    r5271 r5272  
    99  USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_DEBUGIO
    1010  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     11USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     12          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1113IMPLICIT NONE
    1214
    … …  
    2830
    2931
    30   include "paramet.h"
     32
    3133  include "comgeom.h"
    3234

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

    r5271 r5272  
    1515
    1616
    17  
     17
    1818CONTAINS
    1919
    … …  
    2222  USE allocate_field_mod
    2323  USE parallel_lmdz
    24   USE dimensions_mod, ONLY: iim, jjm, llm, ndm  USE advect_new_mod,ONLY : advect_new_allocate
     24  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     25  USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     26          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     27  USE advect_new_mod, ONLY : advect_new_allocate
    2528  IMPLICIT NONE
    2629  TYPE(distrib),POINTER :: d
    … …  
    4043    CALL allocate_v(massebxy,llm,d)
    4144    CALL allocate_u(convm,llm,d)
    42    
     45
    4346    CALL advect_new_allocate
    44    
     47
    4548  END SUBROUTINE caldyn_allocate
    46  
     49
    4750  SUBROUTINE caldyn_switch_caldyn(dist)
    4851  USE allocate_field_mod
    … …  
    6568    CALL switch_v(massebxy,distrib_caldyn,dist)
    6669    CALL switch_u(convm,distrib_caldyn,dist)
    67    
     70
    6871    CALL advect_new_switch_caldyn(dist)
    69    
     72
    7073  END SUBROUTINE caldyn_switch_caldyn
    71  
    7274
    73  
    74 END MODULE caldyn_mod 
     75
     76
     77END MODULE caldyn_mod

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

    r5271 r5272  
    3636  USE allocate_field_mod
    3737  USE parallel_lmdz
    38   USE dimensions_mod, ONLY: iim, jjm, llm, ndm  USE infotrac, ONLY: nqtot
     38  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     39  USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     40          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     41  USE infotrac, ONLY: nqtot
    3942  IMPLICIT NONE
    4043    TYPE(distrib),POINTER :: d
    … …  
    7174  SUBROUTINE call_calfis(itau,lafin,ucov_dyn,vcov_dyn,teta_dyn,masse_dyn,ps_dyn, &
    7275                         phis_dyn,q_dyn,flxw_dyn)
    73   USE dimensions_mod, ONLY: iim, jjm, llm, ndm  use exner_hyb_loc_m, only: exner_hyb_loc
     76  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     77  USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     78          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     79  USE exner_hyb_loc_m, only: exner_hyb_loc
    7480  use exner_milieu_loc_m, only: exner_milieu_loc
    7581  USE parallel_lmdz

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

    r5271 r5272  
    2424  USE allocate_field_mod
    2525  USE parallel_lmdz
    26   USE dimensions_mod, ONLY: iim, jjm, llm, ndm  USE dissip_mod, ONLY : dissip_allocate
     26  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     27  USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     28          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     29  USE dissip_mod, ONLY : dissip_allocate
    2730  IMPLICIT NONE
    2831    TYPE(distrib),POINTER :: d
    … …  
    7982 
    8083  SUBROUTINE call_dissip(ucov_dyn,vcov_dyn,teta_dyn,p_dyn,pk_dyn,ps_dyn)
    81   USE dimensions_mod, ONLY: iim, jjm, llm, ndm  USE parallel_lmdz
     84  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     85  USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     86          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     87  USE parallel_lmdz
    8288  USE times
    8389  USE mod_hallo

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

    r5271 r5272  
    2424
    2525  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     26USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     27          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    2628IMPLICIT NONE
    2729  !-----------------------------------------------------------------------
    … …  
    4042  !   --------------
    4143
    42   include "paramet.h"
     44
    4345  include "comdissnew.h"
    4446  include "iniprint.h"

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

    r5271 r5272  
    1717  USE parallel_lmdz
    1818  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     19USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     20          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1921IMPLICIT NONE
    2022  !
    2123
    22   INCLUDE "paramet.h"
     24
    2325  REAL :: xflu,yflu,convfl,convpn,convps
    2426  INTEGER :: l,ij,nbniv

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

    r5271 r5272  
    99  USE mod_filtreg_p
    1010  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     11USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     12          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1113IMPLICIT NONE
    1214
    13   include "paramet.h"
     15
    1416  include "comgeom.h"
    1517!===============================================================================

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

    r5271 r5272  
    88  USE parallel_lmdz
    99  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     10USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     11          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1012IMPLICIT NONE
    1113
    12   include "paramet.h"
     14
    1315  include "comgeom.h"
    1416!===============================================================================

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

    r5271 r5272  
    88  USE mod_filtreg_p
    99  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     10USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     11          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1012IMPLICIT NONE
    1113
    12   include "paramet.h"
     14
    1315  include "comgeom.h"
    1416!===============================================================================

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

    r5271 r5272  
    22  USE parallel_lmdz
    33  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     4  USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     5          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    46IMPLICIT NONE
    57
    … …  
    1719  !
    1820  !=======================================================================
    19 
    20 
    21   INCLUDE "paramet.h"
    2221  INCLUDE "comgeom.h"
    2322

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

    r5271 r5272  
    55  USE parallel_lmdz
    66  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     7  USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     8          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    79IMPLICIT NONE
    810
    … …  
    2022  !
    2123  !=======================================================================
    22 
    23 
    24   INCLUDE "paramet.h"
    2524  INCLUDE "comgeom.h"
    2625

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

    r5271 r5272  
    1010  USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_DEBUGIO
    1111  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     12USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     13          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1214IMPLICIT NONE
    1315
    … …  
    3234
    3335
    34   include "paramet.h"
     36
    3537  include "comgeom.h"
    3638  include "comdissnew.h"

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

    r5271 r5272  
    99  USE allocate_field_mod
    1010  USE parallel_lmdz
    11   USE dimensions_mod, ONLY: iim, jjm, llm, ndm  USE gradiv2_mod, ONLY : gradiv2_allocate
     11  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     12  USE gradiv2_mod, ONLY : gradiv2_allocate
    1213  USE nxgraro2_mod, ONLY : nxgraro2_allocate
    1314  USE divgrad2_mod, ONLY : divgrad2_allocate

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

    r5271 r5272  
    1111  USE parallel_lmdz
    1212  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     13USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     14          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1315IMPLICIT NONE
    1416  !
    … …  
    2325  !   ---------------------------------------------------------------------
    2426
    25   INCLUDE "paramet.h"
     27
    2628  INCLUDE "comgeom.h"
    2729  !

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

    r5271 r5272  
    1010  USE parallel_lmdz
    1111  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     12USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     13          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1214IMPLICIT NONE
    1315  !
    … …  
    2224  !   ---------------------------------------------------------------------
    2325
    24   INCLUDE "paramet.h"
     26
    2527  INCLUDE "comgeom.h"
    2628  !

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

    r5271 r5272  
    1111  USE mod_filtreg_p
    1212  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     13USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     14          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1315IMPLICIT NONE
    1416  !
    … …  
    2325  !   ---------------------------------------------------------------------
    2426
    25   INCLUDE "paramet.h"
     27
    2628  INCLUDE "comgeom.h"
    2729  !

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

    r5271 r5272  
    1515  USE divgrad2_mod
    1616  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     17USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     18          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1719IMPLICIT NONE
    1820  !
    1921
    20   INCLUDE "paramet.h"
     22
    2123  INCLUDE "comgeom2.h"
    2224  INCLUDE "comdissipn.h"

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

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

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

    r5271 r5272  
    44  USE mod_filtreg_p
    55  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     6  USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     7          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    68IMPLICIT NONE
    79
    … …  
    2022  !
    2123  !=======================================================================
    22 
    23 
    24 
    25   include "paramet.h"
    26 
    2724  REAL :: teta( ijb_u:ije_u,llm )
    2825  REAL :: pbaru( ijb_u:ije_u,llm ),pbarv( ijb_v:ije_v,llm)

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

    r5271 r5272  
    22  USE parallel_lmdz
    33  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     4USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     5          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    46IMPLICIT NONE
    57  !
    … …  
    1921
    2022
    21   INCLUDE "paramet.h"
     23
    2224
    2325  REAL :: vorpot( ijb_v:ije_v,llm ) ,pbaru( ijb_u:ije_u,llm ) , &

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

    r5271 r5272  
    22  USE parallel_lmdz
    33  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     4  USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     5          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    46IMPLICIT NONE
    57  !
    … …  
    2426  !=======================================================================
    2527  !
    26 
    27   include "paramet.h"
    28 
    2928  REAL :: teta( ijb_u:ije_u,llm ),pkf( ijb_u:ije_u,llm )
    3029  REAL :: bern( ijb_u:ije_u,llm )

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

    r5271 r5272  
    2525
    2626  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     27USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     28          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    2729IMPLICIT NONE
    2830
    29   include "paramet.h"
     31
    3032  include "comgeom.h"
    3133  include "description.h"

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

    r5271 r5272  
    2323
    2424  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     25USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     26          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    2527IMPLICIT NONE
    2628
    27   include "paramet.h"
     29
    2830  include "comgeom.h"
    2931  include "description.h"
    … …  
    178180 
    179181  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     182USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     183          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    180184IMPLICIT NONE
    181185
    182   include "paramet.h"
     186
    183187  include "description.h"
    184188  include "comgeom.h"

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

    r5271 r5272  
    11MODULE dynredem_mod
    2 
    3   USE dimensions_mod, ONLY: iim, jjm, llm, ndm  USE parallel_lmdz
     2  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     3  USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     4          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     5  USE parallel_lmdz
    46  USE mod_hallo
    57  USE netcdf
    … …  
    911  CHARACTER(LEN=256), SAVE :: fil, modname
    1012  INTEGER,            SAVE :: nvarid
    11 
    1213
    1314CONTAINS
    … …  
    5859!$OMP END MASTER
    5960!$OMP BARRIER
    60  
     61
    6162END SUBROUTINE dynredem_write_u
    6263!
    … …  
    108109!$OMP END MASTER
    109110!$OMP BARRIER
    110  
     111
    111112END SUBROUTINE dynredem_write_v
    112113!
    … …  
    154155!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
    155156  DO l=1,ll; var(:,l)=var_tmp(:,l); END DO
    156    
     157
    157158!$OMP BARRIER
    158159!$OMP MASTER
    … …  
    160161!$OMP END MASTER
    161162!$OMP BARRIER
    162  
    163 END SUBROUTINE dynredem_read_u   
     163
     164END SUBROUTINE dynredem_read_u
    164165!
    165166!===============================================================================
    … …  
    265266!===============================================================================
    266267
    267 END MODULE dynredem_mod   
    268 
    269    
    270    
     268END MODULE dynredem_mod
     269
     270
     271

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

    r5271 r5272  
    77  USE parallel_lmdz
    88  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     9USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     10          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    911IMPLICIT NONE
    1012
    11   include "paramet.h"
     13
    1214  include "comgeom.h"
    1315!===============================================================================

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

    r5271 r5272  
    3939    USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_DEBUGIO
    4040    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     41USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     42          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    4143IMPLICIT NONE
    4244    !
    4345
    44     include "paramet.h"
     46
    4547    include "comgeom.h"
    4648

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

    r5271 r5272  
    3535   
    3636    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     37USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     38          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    3739IMPLICIT NONE
    3840    !
    3941
    40     include "paramet.h"
     42
    4143    include "comgeom.h"
    4244

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

    r5271 r5272  
    77  USE parallel_lmdz
    88  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     9USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     10          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    911IMPLICIT NONE
    1012
    11   include "paramet.h"
     13
    1214  include "comgeom.h"
    1315!===============================================================================

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

    r5271 r5272  
    1717  !
    1818  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     19USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     20          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1921IMPLICIT NONE
    2022  !
    … …  
    2931
    3032
    31   include "paramet.h"
     33
    3234  include "tracstoke.h"
    3335

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

    r5271 r5272  
    99  USE comconst_mod, ONLY: pi
    1010  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    11   IMPLICIT NONE
     11  USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     12          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     13IMPLICIT NONE
    1214
    1315  !=======================================================================
    … …  
    2325  !=======================================================================
    2426
    25   include "paramet.h"
     27
    2628  include "comgeom2.h"
    2729  include "iniprint.h"

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

    r5271 r5272  
    2626  USE mod_xios_dyn3dmem, ONLY: xios_dyn3dmem_init
    2727  USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_PHYS
    28 
    29 
    3028  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     29  USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     30          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    3131IMPLICIT NONE
    3232
    … …  
    6060  !   Declarations:
    6161  !   -------------
    62 
    63   include "paramet.h"
    6462  include "comdissnew.h"
    6563  include "comgeom.h"

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

    r5271 r5272  
    22  USE parallel_lmdz
    33  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     4  USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     5          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    46IMPLICIT NONE
    5 
    6 
    77  !=======================================================================
    88  !
    … …  
    2424  !=======================================================================
    2525  !-----------------------------------------------------------------------
    26   !   Declarations:
    27   !   -------------
    28 
    29 
    30   include "paramet.h"
    3126
    3227  !   Arguments:

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

    r5271 r5272  
    2727  USE parallel_lmdz
    2828  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     29USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     30          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    2931IMPLICIT NONE
    3032  !-----------------------------------------------------------------------
    … …  
    3335
    3436
    35   INCLUDE "paramet.h"
     37
    3638  INCLUDE "comgeom.h"
    3739

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

    r5271 r5272  
    2727  USE parallel_lmdz
    2828  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     29USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     30          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    2931IMPLICIT NONE
    3032  !-----------------------------------------------------------------------
    … …  
    3335
    3436
    35   INCLUDE "paramet.h"
     37
    3638  INCLUDE "comgeom.h"
    3739

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

    r5271 r5272  
    1212  USE parallel_lmdz
    1313  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     14USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     15          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1416IMPLICIT NONE
    1517  !
    1618
    17   INCLUDE "paramet.h"
     19
    1820  INTEGER :: klevel
    1921  REAL :: pg( ijb_u:ije_u,klevel )

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

    r5271 r5272  
    1212  USE parallel_lmdz
    1313  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     14USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     15          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1416IMPLICIT NONE
    1517  !
    1618
    17   INCLUDE "paramet.h"
     19
    1820  INTEGER :: klevel
    1921  REAL :: pg( ip1jmp1,klevel )

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

    r5271 r5272  
    2020  USE gradiv2_mod
    2121  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     22USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     23          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    2224IMPLICIT NONE
    2325  !
    2426
    25   INCLUDE "paramet.h"
     27
    2628  INCLUDE "comgeom.h"
    2729  INCLUDE "comdissipn.h"

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

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

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

    r5271 r5272  
    66  USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_DEBUGIO
    77  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     8USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     9          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    810implicit none
    911
    … …  
    2022
    2123
    22   include "paramet.h"
     24
    2325  include "comgeom2.h"
    2426

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

    r5271 r5272  
    1313  USE advtrac_mod, ONLY : advtrac_allocate
    1414  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     15USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     16          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1517IMPLICIT NONE
    1618
    17   INCLUDE "paramet.h"
     19
    1820  TYPE(distrib),POINTER :: d
    1921

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

    r5271 r5272  
    44  USE comconst_mod, ONLY: ngroup
    55  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     6USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     7          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    68IMPLICIT NONE
    79
    810
    9   include "paramet.h"
     11
    1012  include "comgeom2.h"
    1113
    … …  
    139141  USE comconst_mod, ONLY: ngroup
    140142  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     143USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     144          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    141145IMPLICIT NONE
    142146
    143147
    144   include "paramet.h"
     148
    145149  include "comgeom2.h"
    146150

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

    r5271 r5272  
    1919  USE pres2lev_mod, only: pres2lev
    2020
    21   IMPLICIT NONE
     21  USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     22          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     23IMPLICIT NONE
    2224
    2325! ---------------------------------------------
    … …  
    8486
    8587
    86     INCLUDE "paramet.h"
     88
    8789
    8890    INTEGER                :: error,ncidpl,rid,rcod
    … …  
    371373
    372374    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     375USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     376          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    373377IMPLICIT NONE
    374378
    375379
    376     INCLUDE "paramet.h"
     380
    377381
    378382    ! Variables entree
    … …  
    732736
    733737    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     738USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     739          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    734740IMPLICIT NONE
    735741
    736     INCLUDE "paramet.h"
     742
    737743
    738744    ! input variables
    … …  
    756762
    757763    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     764USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     765          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    758766IMPLICIT NONE
    759767
    760     INCLUDE "paramet.h"
     768
    761769
    762770    ! input variables
    … …  
    782790
    783791    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     792USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     793          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    784794IMPLICIT NONE
    785795
    786796
    787     INCLUDE "paramet.h"
     797
    788798    INCLUDE "comgeom.h"
    789799
    … …  
    855865
    856866    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     867USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     868          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    857869IMPLICIT NONE
    858870
    859871
    860     INCLUDE "paramet.h"
     872
    861873    INCLUDE "comgeom.h"
    862874
    … …  
    928940  USE comvert_mod, ONLY: preff, pressure_exner, bp, ap, disvert_type
    929941  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     942USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     943          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    930944IMPLICIT NONE
    931945
    932946
    933   include "paramet.h"
     947
    934948  include "comgeom2.h"
    935949
    … …  
    14171431
    14181432    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     1433USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     1434          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    14191435implicit none
    14201436
    14211437
    1422     include "paramet.h"
     1438
    14231439    include "comgeom2.h"
    14241440
    … …  
    15851601    USE netcdf, ONLY: nf90_put_var
    15861602    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     1603USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     1604          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    15871605IMPLICIT NONE
    15881606
    1589     include "paramet.h"
     1607
    15901608
    15911609    INTEGER, INTENT(IN)   :: timestep
    … …  
    19031921    USE netcdf, ONLY: nf90_put_var
    19041922    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     1923USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     1924          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    19051925IMPLICIT NONE
    19061926
    1907     include "paramet.h"
     1927
    19081928
    19091929    INTEGER, INTENT(IN)   :: timestep
    … …  
    21822202
    21832203    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     2204USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     2205          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    21842206IMPLICIT NONE
    21852207
    21862208
    2187     INCLUDE "paramet.h"
     2209
    21882210    INCLUDE "comgeom2.h"
    21892211
    … …  
    24052427use mod_hallo
    24062428USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     2429USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     2430          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    24072431implicit none
    24082432
    2409 include 'paramet.h'
     2433
    24102434
    24112435      CHARACTER (len=*) :: varname
    … …  
    24362460subroutine dumpall
    24372461     USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     2462USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     2463          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    24382464implicit none
    24392465
    2440      include "paramet.h"
     2466
    24412467     include "comgeom.h"
    24422468     call barrier

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

    r5271 r5272  
    2828
    2929  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     30USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     31          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    3032IMPLICIT NONE
    3133
    … …  
    3436
    3537
    36   include "paramet.h"
     38
    3739  include "comgeom.h"
    3840  include "academic.h"

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

    r5271 r5272  
    1818
    1919   USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     20USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     21          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    2022implicit none
    2123
    … …  
    4648  !   Declarations
    4749
    48   include "paramet.h"
     50
    4951  include "comgeom.h"
    5052  include "description.h"

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

    r5271 r5272  
    1717
    1818  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     19USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     20          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1921implicit none
    2022
    … …  
    4749  !   Declarations
    4850
    49   include "paramet.h"
     51
    5052  include "comgeom.h"
    5153  include "description.h"

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

    r5271 r5272  
    1717
    1818   USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     19USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     20          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1921implicit none
    2022
    … …  
    4446  !   Declarations
    4547
    46   include "paramet.h"
     48
    4749  include "comgeom.h"
    4850  include "description.h"

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

    r5271 r5272  
    1717  USE strings_mod, ONLY: int2str
    1818  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     19USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     20          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1921IMPLICIT NONE
    2022
    … …  
    3638
    3739
    38   include "paramet.h"
     40
    3941  include "comgeom.h"
    4042  include "iniprint.h"

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

    r5271 r5272  
    1313  USE allocate_field_mod
    1414  USE parallel_lmdz
    15   USE dimensions_mod, ONLY: iim, jjm, llm, ndm  USE advect_new_mod,ONLY : advect_new_allocate
     15  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     16  USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     17          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     18  USE advect_new_mod,ONLY : advect_new_allocate
    1619  IMPLICIT NONE
    1720  TYPE(distrib),POINTER :: d

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

    r5271 r5272  
    1313  USE parallel_lmdz
    1414  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     15USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     16          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1517IMPLICIT NONE
    1618  !
    1719
    18   INCLUDE "paramet.h"
     20
    1921  INCLUDE "comgeom.h"
    2022

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

    r5271 r5272  
    1212  USE mod_filtreg_p
    1313  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     14USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     15          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1416IMPLICIT NONE
    1517  !
    1618
    17   INCLUDE "paramet.h"
     19
    1820  INCLUDE "comgeom.h"
    1921

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

    r5271 r5272  
    1313  USE mod_filtreg_p
    1414  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     15USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     16          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1517IMPLICIT NONE
    1618  !
    1719
    18   INCLUDE "paramet.h"
     20
    1921  INCLUDE "comgeom.h"
    2022

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

    r5271 r5272  
    1111  USE parallel_lmdz
    1212  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     13USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     14          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1315IMPLICIT NONE
    1416  !
    1517
    16   INCLUDE "paramet.h"
     18
    1719  INCLUDE "comgeom.h"
    1820

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

    r5271 r5272  
    4040   USE strings_mod, ONLY: int2str
    4141
    42   USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     42   USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     43   USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     44          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    4345IMPLICIT NONE
    4446
    … …  
    7375  !   Declarations:
    7476  !   -------------
    75 
    76 
    77   include "paramet.h"
    78   include "comdissnew.h"
     77   include "comdissnew.h"
    7978  include "comgeom.h"
    8079  include "description.h"

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

    r5271 r5272  
    3939  USE allocate_field_mod
    4040  USE parallel_lmdz
    41   USE dimensions_mod, ONLY: iim, jjm, llm, ndm  USE infotrac
     41  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     42  USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     43          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     44  USE infotrac
    4245  USE caldyn_mod,ONLY : caldyn_allocate
    4346  USE integrd_mod,ONLY : integrd_allocate

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

    r5271 r5272  
    88  USE parallel_lmdz
    99  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     10USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     11          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1012IMPLICIT NONE
    1113
    12   include "paramet.h"
     14
    1315  include "comgeom.h"
    1416!===============================================================================

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

    r5271 r5272  
    88  USE parallel_lmdz
    99  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     10USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     11          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1012IMPLICIT NONE
    1113
    12   include "paramet.h"
     14
    1315  include "comgeom.h"
    1416!===============================================================================

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

    r5271 r5272  
    1515  !
    1616  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     17USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     18          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1719IMPLICIT NONE
    1820  !
    1921
    20   include "paramet.h"
     22
    2123  include "comgeom.h"
    2224  !

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

    r5271 r5272  
    1414
    1515    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     16USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     17          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1618IMPLICIT NONE
    1719
    … …  
    5759    !
    5860
    59     INCLUDE "paramet.h"
     61
    6062    INCLUDE "coefils.h"
    6163    !

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

    r5271 r5272  
    6868
    6969  subroutine Init_mod_hallo
    70   USE dimensions_mod, ONLY: iim, jjm, llm, ndm  USE IOIPSL
     70    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     71    USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     72          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     73    USE IOIPSL
    7174    implicit none
    7275    integer :: jj_nb_gather(0:mpi_size-1)
    … …  
    214217 
    215218  subroutine Register_SendField(Field,ij,ll,offset,size,target,a_request)
    216   USE dimensions_mod, ONLY: iim, jjm, llm, ndm  implicit none
     219  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     220  implicit none
    217221
    218222   
    … …  
    229233     
    230234  subroutine Register_RecvField(Field,ij,ll,offset,size,target,a_request)
    231   USE dimensions_mod, ONLY: iim, jjm, llm, ndm  implicit none
     235  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     236  implicit none
    232237
    233238   
    … …  
    245250 
    246251  subroutine Register_SwapField(FieldS,FieldR,ij,ll,jj_Nb_New,a_request)
    247   USE dimensions_mod, ONLY: iim, jjm, llm, ndm      implicit none
     252    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     253    USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     254            ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     255      implicit none
    248256
    249257   
    … …  
    292300 
    293301  subroutine Register_SwapFieldHallo(FieldS,FieldR,ij,ll,jj_Nb_New,Up,Down,a_request)
    294   USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     302    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     303    USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     304            ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    295305      implicit none
    296306   
    … …  
    345355  SUBROUTINE Register_SwapField1d_u(FieldS,FieldR,new_dist,a_request,up,down)
    346356  USE parallel_lmdz
    347   USE dimensions_mod, ONLY: iim, jjm, llm, ndm      IMPLICIT NONE
     357  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     358      IMPLICIT NONE
    348359   
    349360    TYPE(distrib),INTENT(IN)          :: new_dist
    … …  
    369380  SUBROUTINE Register_SwapField1d_u_bis(FieldS,FieldR,new_dist,a_request,old_dist,up,down)
    370381  USE parallel_lmdz
    371   USE dimensions_mod, ONLY: iim, jjm, llm, ndm      IMPLICIT NONE
     382  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     383      IMPLICIT NONE
    372384   
    373385    TYPE(distrib),INTENT(IN)          :: new_dist
    … …  
    395407  SUBROUTINE Register_SwapField2d_u1d(FieldS,FieldR,new_dist,a_request,up,down)
    396408  USE parallel_lmdz
    397   USE dimensions_mod, ONLY: iim, jjm, llm, ndm    IMPLICIT NONE
     409  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     410    IMPLICIT NONE
    398411   
    399412    TYPE(distrib),INTENT(IN)          :: new_dist
    … …  
    422435  SUBROUTINE Register_SwapField2d_u1d_bis(FieldS,FieldR,new_dist,a_request,old_dist,up,down)
    423436  USE parallel_lmdz
    424   USE dimensions_mod, ONLY: iim, jjm, llm, ndm    IMPLICIT NONE
     437  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     438    IMPLICIT NONE
    425439   
    426440    TYPE(distrib),INTENT(IN)          :: new_dist
    … …  
    451465  SUBROUTINE Register_SwapField3d_u(FieldS,FieldR,new_dist,a_request,up,down)
    452466  USE parallel_lmdz
    453   USE dimensions_mod, ONLY: iim, jjm, llm, ndm      IMPLICIT NONE
     467  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     468      IMPLICIT NONE
    454469   
    455470    TYPE(distrib),INTENT(IN)          :: new_dist
    … …  
    478493  SUBROUTINE Register_SwapField3d_u_bis(FieldS,FieldR,new_dist,a_request,old_dist,up,down)
    479494  USE parallel_lmdz
    480   USE dimensions_mod, ONLY: iim, jjm, llm, ndm      IMPLICIT NONE
     495  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     496      IMPLICIT NONE
    481497   
    482498    TYPE(distrib),INTENT(IN)          :: new_dist
    … …  
    618634  SUBROUTINE Register_SwapField3d_u2d(FieldS,FieldR,new_dist,a_request,up,down)
    619635  USE parallel_lmdz
    620   USE dimensions_mod, ONLY: iim, jjm, llm, ndm      IMPLICIT NONE
     636  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     637      IMPLICIT NONE
    621638   
    622639    TYPE(distrib),INTENT(IN)          :: new_dist
    … …  
    645662  SUBROUTINE Register_SwapField3d_u2d_bis(FieldS,FieldR,new_dist,a_request,old_dist,up,down)
    646663  USE parallel_lmdz
    647   USE dimensions_mod, ONLY: iim, jjm, llm, ndm      IMPLICIT NONE
     664  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     665      IMPLICIT NONE
    648666   
    649667    TYPE(distrib),INTENT(IN)          :: new_dist
    … …  
    679697  SUBROUTINE Register_SwapField1d_v(FieldS,FieldR,new_dist,a_request,up,down)
    680698  USE parallel_lmdz
    681   USE dimensions_mod, ONLY: iim, jjm, llm, ndm      IMPLICIT NONE
     699  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     700      IMPLICIT NONE
    682701   
    683702    TYPE(distrib),INTENT(IN)          :: new_dist
    … …  
    703722  SUBROUTINE Register_SwapField1d_v_bis(FieldS,FieldR,new_dist,a_request,old_dist,up,down)
    704723  USE parallel_lmdz
    705   USE dimensions_mod, ONLY: iim, jjm, llm, ndm      IMPLICIT NONE
     724  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     725      IMPLICIT NONE
    706726   
    707727    TYPE(distrib),INTENT(IN)          :: new_dist
    … …  
    729749  SUBROUTINE Register_SwapField2d_v1d(FieldS,FieldR,new_dist,a_request,up,down)
    730750  USE parallel_lmdz
    731   USE dimensions_mod, ONLY: iim, jjm, llm, ndm      IMPLICIT NONE
     751  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     752      IMPLICIT NONE
    732753   
    733754    TYPE(distrib),INTENT(IN)          :: new_dist
    … …  
    756777  SUBROUTINE Register_SwapField2d_v1d_bis(FieldS,FieldR,new_dist,a_request,old_dist,up,down)
    757778  USE parallel_lmdz
    758   USE dimensions_mod, ONLY: iim, jjm, llm, ndm      IMPLICIT NONE
     779  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     780      IMPLICIT NONE
    759781   
    760782    TYPE(distrib),INTENT(IN)          :: new_dist
    … …  
    786808  SUBROUTINE Register_SwapField3d_v(FieldS,FieldR,new_dist,a_request,up,down)
    787809  USE parallel_lmdz
    788   USE dimensions_mod, ONLY: iim, jjm, llm, ndm      IMPLICIT NONE
     810  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     811      IMPLICIT NONE
    789812   
    790813    TYPE(distrib),INTENT(IN)          :: new_dist
    … …  
    813836  SUBROUTINE Register_SwapField3d_v_bis(FieldS,FieldR,new_dist,a_request,old_dist,up,down)
    814837  USE parallel_lmdz
    815   USE dimensions_mod, ONLY: iim, jjm, llm, ndm      IMPLICIT NONE
     838  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     839      IMPLICIT NONE
    816840   
    817841    TYPE(distrib),INTENT(IN)          :: new_dist
    … …  
    844868  SUBROUTINE Register_SwapField1d_v2d(FieldS,FieldR,new_dist,a_request,up,down)
    845869  USE parallel_lmdz
    846   USE dimensions_mod, ONLY: iim, jjm, llm, ndm      IMPLICIT NONE
     870  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     871      IMPLICIT NONE
    847872   
    848873    TYPE(distrib),INTENT(IN)          :: new_dist !LF
    … …  
    868893  SUBROUTINE Register_SwapField1d_v2d_bis(FieldS,FieldR,new_dist,a_request,old_dist,up,down)
    869894  USE parallel_lmdz
    870   USE dimensions_mod, ONLY: iim, jjm, llm, ndm      IMPLICIT NONE
     895  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     896      IMPLICIT NONE
    871897   
    872898    TYPE(distrib),INTENT(IN)          :: new_dist !LF
    … …  
    894920  SUBROUTINE Register_SwapField2d_v2d(FieldS,FieldR,new_dist,a_request,up,down)
    895921  USE parallel_lmdz
    896   USE dimensions_mod, ONLY: iim, jjm, llm, ndm      IMPLICIT NONE
     922  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     923      IMPLICIT NONE
    897924   
    898925    TYPE(distrib),INTENT(IN)          :: new_dist
    … …  
    921948  SUBROUTINE Register_SwapField2d_v2d_bis(FieldS,FieldR,new_dist,a_request,old_dist,up,down)
    922949  USE parallel_lmdz
    923   USE dimensions_mod, ONLY: iim, jjm, llm, ndm      IMPLICIT NONE
     950  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     951      IMPLICIT NONE
    924952   
    925953    TYPE(distrib),INTENT(IN)          :: new_dist
    … …  
    950978  SUBROUTINE Register_SwapField3d_v2d(FieldS,FieldR,new_dist,a_request,up,down)
    951979  USE parallel_lmdz
    952   USE dimensions_mod, ONLY: iim, jjm, llm, ndm      IMPLICIT NONE
     980  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     981      IMPLICIT NONE
    953982   
    954983    TYPE(distrib),INTENT(IN)          :: new_dist
    … …  
    9771006  SUBROUTINE Register_SwapField3d_v2d_bis(FieldS,FieldR,new_dist,a_request,old_dist,up,down)
    9781007  USE parallel_lmdz
    979   USE dimensions_mod, ONLY: iim, jjm, llm, ndm      IMPLICIT NONE
     1008  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     1009      IMPLICIT NONE
    9801010   
    9811011    TYPE(distrib),INTENT(IN)          :: new_dist
    … …  
    10061036
    10071037  SUBROUTINE Register_SwapField_gen_u(FieldS,FieldR,ll,old_dist,new_dist,Up,Down,a_request)
    1008   USE parallel_lmdz
    1009   USE dimensions_mod, ONLY: iim, jjm, llm, ndm      IMPLICIT NONE
     1038    USE parallel_lmdz
     1039    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     1040    USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     1041            ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     1042      IMPLICIT NONE
    10101043   
    10111044    INTEGER :: ll,Up,Down
    … …  
    10591092  SUBROUTINE Register_SwapField_gen_v(FieldS,FieldR,ll,old_dist,new_dist,Up,Down,a_request)
    10601093  USE parallel_lmdz
    1061   USE dimensions_mod, ONLY: iim, jjm, llm, ndm    IMPLICIT NONE
     1094  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     1095  USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     1096          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     1097    IMPLICIT NONE
    10621098   
    10631099    INTEGER :: ll,Up,Down
    … …  
    11171153 
    11181154  subroutine Register_Hallo(Field,ij,ll,RUp,Rdown,SUp,SDown,a_request)
    1119   USE dimensions_mod, ONLY: iim, jjm, llm, ndm  USE lmdz_mpi
     1155  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     1156  USE lmdz_mpi
    11201157      implicit none
    11211158
    … …  
    11811218
    11821219  subroutine Register_Hallo_u(Field,ll,RUp,Rdown,SUp,SDown,a_request)
    1183   USE dimensions_mod, ONLY: iim, jjm, llm, ndm  USE lmdz_mpi
     1220  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     1221  USE lmdz_mpi
    11841222      implicit none
    11851223      INTEGER :: ll
    … …  
    12431281
    12441282  subroutine Register_Hallo_v(Field,ll,RUp,Rdown,SUp,SDown,a_request)
    1245   USE dimensions_mod, ONLY: iim, jjm, llm, ndm  USE lmdz_mpi
     1283  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     1284  USE lmdz_mpi
    12461285      implicit none
    12471286      INTEGER :: ll
    … …  
    13051344   
    13061345    subroutine SendRequest(a_Request)
    1307     USE dimensions_mod, ONLY: iim, jjm, llm, ndm    USE lmdz_mpi
     1346    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     1347    USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     1348          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     1349    USE lmdz_mpi
    13081350      implicit none
    13091351
    … …  
    14221464   
    14231465   subroutine WaitRequest(a_Request)
    1424    USE dimensions_mod, ONLY: iim, jjm, llm, ndm   USE lmdz_mpi
     1466   USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     1467   USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     1468          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     1469   USE lmdz_mpi
    14251470   implicit none
    14261471     
    … …  
    15071552   subroutine WaitSendRequest(a_Request)
    15081553   USE lmdz_mpi
    1509    USE dimensions_mod, ONLY: iim, jjm, llm, ndm   implicit none
     1554   USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     1555   implicit none
    15101556   
    15111557      type(request),target :: a_request
    … …  
    15531599   
    15541600   subroutine WaitRecvRequest(a_Request)
    1555    USE dimensions_mod, ONLY: iim, jjm, llm, ndm   USE lmdz_mpi
     1601   USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     1602   USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     1603          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     1604   USE lmdz_mpi
    15561605   implicit none
    15571606      type(request),target :: a_request
    … …  
    16241673    subroutine CopyField(FieldS,FieldR,ij,ll,jj_Nb_New)
    16251674    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     1675    USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     1676          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    16261677      implicit none
    16271678   
    … …  
    16601711
    16611712  subroutine CopyFieldHallo(FieldS,FieldR,ij,ll,jj_Nb_New,Up,Down)
    1662   USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     1713    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     1714    USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     1715          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    16631716      implicit none
    16641717   
    … …  
    16991752
    17001753   subroutine Gather_field_u(field_loc,field_glo,ll)
    1701    USE dimensions_mod, ONLY: iim, jjm, llm, ndm   implicit none
     1754   USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     1755   USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     1756          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     1757   implicit none
    17021758     integer :: ll
    17031759     real :: field_loc(ijb_u:ije_u,ll)
    … …  
    17211777       
    17221778   subroutine Gather_field_v(field_loc,field_glo,ll)
    1723    USE dimensions_mod, ONLY: iim, jjm, llm, ndm   implicit none
     1779   USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     1780   USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     1781          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     1782   implicit none
    17241783     integer :: ll
    17251784     real :: field_loc(ijb_v:ije_v,ll)
    … …  
    17481807     
    17491808   subroutine Scatter_field_u(field_glo,field_loc,ll)
    1750    USE dimensions_mod, ONLY: iim, jjm, llm, ndm   implicit none
     1809   USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     1810   USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     1811          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     1812   implicit none
    17511813     integer :: ll
    17521814     real :: field_glo(ip1jmp1,ll)
    … …  
    17811843
    17821844   subroutine Scatter_field_v(field_glo,field_loc,ll)
    1783    USE dimensions_mod, ONLY: iim, jjm, llm, ndm   implicit none
     1845   USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     1846   USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     1847          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     1848   implicit none
    17841849     integer :: ll
    17851850     real :: field_glo(ip1jmp1,ll)

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

    r5271 r5272  
    4141
    4242     USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    43 IMPLICIT NONE
    44 
    45 
    46      INCLUDE "paramet.h"
     43USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     44          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     45IMPLICIT NONE
     46
     47
     48
    4749     INCLUDE 'comgeom.h'
    4850
    … …  
    135137     USE parallel_lmdz
    136138     USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    137 IMPLICIT NONE
    138 
    139      include 'paramet.h'
     139USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     140          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     141IMPLICIT NONE
     142
     143
    140144     CHARACTER(LEN=*)   :: name
    141145     REAL, DIMENSION(ij_begin:ij_end) :: Field
    … …  
    157161     USE parallel_lmdz
    158162     USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    159 IMPLICIT NONE
    160 
    161      include 'paramet.h'
     163USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     164          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     165IMPLICIT NONE
     166
     167
    162168     CHARACTER(LEN=*)   :: name
    163169     REAL, DIMENSION(ij_begin:ij_end,llm) :: Field
    … …  
    191197     USE parallel_lmdz
    192198     USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    193 IMPLICIT NONE
    194 
    195      include 'paramet.h'
     199USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     200          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     201IMPLICIT NONE
     202
     203
    196204     CHARACTER(LEN=*)   :: name
    197205     REAL, DIMENSION(ij_begin:ij_end) :: Field
    … …  
    222230     USE parallel_lmdz
    223231     USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    224 IMPLICIT NONE
    225 
    226      include 'paramet.h'
     232USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     233          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     234IMPLICIT NONE
     235
     236
    227237     CHARACTER(LEN=*)   :: name
    228238     REAL, DIMENSION(ij_begin:ij_end,llm) :: Field

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

    r5271 r5272  
    1212
    1313  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     14USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     15          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1416IMPLICIT NONE
    1517  !
    1618
    17   INCLUDE "paramet.h"
     19
    1820  INCLUDE "comgeom.h"
    1921  INTEGER :: klevel

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

    r5271 r5272  
    1111  USE parallel_lmdz
    1212  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     13USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     14          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1315IMPLICIT NONE
    1416  !
    1517
    16   INCLUDE "paramet.h"
     18
    1719  INCLUDE "comgeom.h"
    1820  INTEGER :: klevel

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

    r5271 r5272  
    1919  USE nxgraro2_mod
    2020  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     21USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     22          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    2123IMPLICIT NONE
    2224  !
    2325
    24   INCLUDE "paramet.h"
     26
    2527  INCLUDE "comdissipn.h"
    2628  !

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

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

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

    r5271 r5272  
    8686    USE lmdz_mpi
    8787    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     88USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     89          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    8890implicit none
    8991
    90       INCLUDE "paramet.h"
     92
    9193      INCLUDE "iniprint.h"
    9294
    … …  
    246248    SUBROUTINE create_distrib(jj_nb_new,d)
    247249    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     250USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     251          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    248252IMPLICIT NONE
    249253
    250       INCLUDE "paramet.h"
     254
    251255     
    252256      INTEGER,INTENT(IN) :: jj_Nb_New(0:MPI_Size-1)
    … …  
    298302    SUBROUTINE Set_Distrib(d)
    299303    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     304USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     305          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    300306IMPLICIT NONE
    301307
    302308
    303     INCLUDE "paramet.h"
     309
    304310    TYPE(distrib),INTENT(IN) :: d
    305311
    … …  
    335341    SUBROUTINE copy_distrib(dist,new_dist)
    336342    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     343USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     344          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    337345IMPLICIT NONE
    338346
    339347
    340     INCLUDE "paramet.h"
     348
    341349    TYPE(distrib),INTENT(INOUT) :: dist
    342350    TYPE(distrib),INTENT(IN) :: new_dist
    … …  
    373381    SUBROUTINE get_current_distrib(d)
    374382    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     383USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     384          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    375385IMPLICIT NONE
    376386
    377387
    378     INCLUDE "paramet.h"
     388
    379389    TYPE(distrib),INTENT(OUT) :: d
    380390
    … …  
    389399    USE control_mod, only : ok_dyn_xios
    390400    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     401    USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     402          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    391403
    392404#ifdef CPP_COUPLE
    … …  
    406418#endif
    407419! #endif of #ifdef CPP_EARTH
    408 
    409       include "paramet.h"
    410 
    411420      integer :: ierr
    412421      integer :: i
    … …  
    453462    subroutine Pack_Data(Field,ij,ll,row,Buffer)
    454463    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     464    USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     465          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    455466implicit none
    456467
    457468
    458       INCLUDE "paramet.h"
     469
    459470
    460471      integer, intent(in) :: ij,ll,row
    … …  
    477488    subroutine Unpack_Data(Field,ij,ll,row,Buffer)
    478489    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     490    USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     491          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    479492implicit none
    480493
    481494
    482       INCLUDE "paramet.h"
     495
    483496
    484497      integer, intent(in) :: ij,ll,row
    … …  
    517530    USE Vampir
    518531    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     532    USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     533          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    519534implicit none
    520535
    521       INCLUDE "paramet.h"   
     536
    522537      INTEGER :: ij,ll
    523538      REAL, dimension(ij,ll) :: Field
    … …  
    635650    USE lmdz_mpi
    636651    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     652    USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     653          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    637654implicit none
    638655
    639     INCLUDE "paramet.h"
     656
    640657    INCLUDE "iniprint.h"
    641658      INTEGER :: ij,ll,rank
    … …  
    716733    USE lmdz_mpi
    717734    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     735    USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     736          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    718737implicit none
    719738
    720     INCLUDE "paramet.h"   
     739
    721740      INTEGER :: ij,ll
    722741      REAL, dimension(ij,ll) :: Field
    … …  
    735754    USE lmdz_mpi
    736755    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     756    USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     757          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    737758implicit none
    738759
    739     INCLUDE "paramet.h"   
     760
    740761      INTEGER :: ij,ll
    741762      REAL, dimension(ij,ll) :: Field
    … …  
    756777!    USE lmdz_mpi
    757778!    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    758 implicit none
     779!    USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     780!          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     781!implicit none
    759782!
    760 !      INCLUDE "paramet.h"   
     783!
    761784!   
    762785!      INTEGER :: ij,ll

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

    r5271 r5272  
    1 !
    2 ! $Id$
    3 !
    4 !
    5 !  ATTENTION!!!!: ce fichier include est compatible format fixe/format libre
    6 !                 veillez  n'utiliser que des ! pour les commentaires
    7 !                 et  bien positionner les & des lignes de continuation
    8 !                 (les placer en colonne 6 et en colonne 73)
    9 !
    10 !
    11 !-----------------------------------------------------------------------
    12 !   INCLUDE 'paramet.h'
     1MODULE paramet_mod_h
     2  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    133
    14       INTEGER  iip1,iip2,iip3,jjp1,llmp1,llmp2,llmm1
    15       INTEGER  kftd,ip1jm,ip1jmp1,ip1jmi1,ijp1llm
    16       INTEGER  ijmllm,mvar
    17       INTEGER jcfil,jcfllm
     4  IMPLICIT NONE; PRIVATE
     5  PUBLIC iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     6          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    187
    19       PARAMETER( iip1= iim+1-1/iim,iip2=iim+2,iip3=iim+3                &
    20      &    ,jjp1=jjm+1-1/jjm)
    21       PARAMETER( llmp1 = llm+1,  llmp2 = llm+2, llmm1 = llm-1 )
    22       PARAMETER( kftd  = iim/2 -ndm )
    23       PARAMETER( ip1jm  = iip1*jjm,  ip1jmp1= iip1*jjp1 )
    24       PARAMETER( ip1jmi1= ip1jm - iip1 )
    25       PARAMETER( ijp1llm= ip1jmp1 * llm, ijmllm= ip1jm * llm )
    26       PARAMETER( mvar= ip1jmp1*( 2*llm+1) + ijmllm )
    27       PARAMETER( jcfil=jjm/2+5, jcfllm=jcfil*llm )
     8  INTEGER  iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1
     9  INTEGER  kftd, ip1jm, ip1jmp1, ip1jmi1, ijp1llm
     10  INTEGER  ijmllm, mvar
     11  INTEGER jcfil, jcfllm
    2812
    29 !-----------------------------------------------------------------------
     13  PARAMETER(iip1 = iim + 1 - 1 / iim, iip2 = iim + 2, iip3 = iim + 3, jjp1 = jjm + 1 - 1 / jjm)
     14  PARAMETER(llmp1 = llm + 1, llmp2 = llm + 2, llmm1 = llm - 1)
     15  PARAMETER(kftd = iim / 2 - ndm)
     16  PARAMETER(ip1jm = iip1 * jjm, ip1jmp1 = iip1 * jjp1)
     17  PARAMETER(ip1jmi1 = ip1jm - iip1)
     18  PARAMETER(ijp1llm = ip1jmp1 * llm, ijmllm = ip1jm * llm)
     19  PARAMETER(mvar = ip1jmp1 * (2 * llm + 1) + ijmllm)
     20  PARAMETER(jcfil = jjm / 2 + 5, jcfllm = jcfil * llm)
     21END MODULE paramet_mod_h

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

    r5271 r5272  
    1313  !
    1414  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     15USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     16          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1517IMPLICIT NONE
    1618  !
    1719
    18   INCLUDE "paramet.h"
     20
    1921  !
    2022  INTEGER,INTENT(IN) :: ngrid ! not used

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

    r5271 r5272  
    88  USE strings_mod, ONLY: strIdx
    99  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     10USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     11          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1012IMPLICIT none
    1113  !
    … …  
    1416  !
    1517
    16   include "paramet.h"
     18
    1719  include "iniprint.h"
    1820  !

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

    r5271 r5272  
    1212  USE parallel_lmdz
    1313  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     14USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     15          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1416IMPLICIT NONE
    1517  !
    1618
    17   INCLUDE "paramet.h"
     19
    1820  INCLUDE "comgeom.h"
    1921  !

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

    r5271 r5272  
    1212  USE parallel_lmdz
    1313  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     14USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     15          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1416IMPLICIT NONE
    1517  !
    1618
    17   INCLUDE "paramet.h"
     19
    1820  INCLUDE "comgeom.h"
    1921  !

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

    r5271 r5272  
    1313  USE mod_filtreg_p
    1414  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     15USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     16          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1517IMPLICIT NONE
    1618  !
    1719
    18   INCLUDE "paramet.h"
     20
    1921  INCLUDE "comgeom.h"
    2022  !

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

    r5271 r5272  
    3131
    3232  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     33USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     34          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    3335IMPLICIT NONE
    3436  !-----------------------------------------------------------------------
    … …  
    3739
    3840
    39   include "paramet.h"
     41
    4042  include "comgeom.h"
    4143  include "iniprint.h"

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

    r5271 r5272  
    2727    USE parallel_lmdz
    2828    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     29USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     30          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    2931implicit none
    3032
    31     INCLUDE "paramet.h"
     33
    3234   
    3335    max_size=jjm+1

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

    r5271 r5272  
    99
    1010  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     11USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     12          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1113IMPLICIT NONE
    1214  !
    1315
    14   include "paramet.h"
     16
    1517  include "comgeom2.h"
    1618

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

    r5271 r5272  
    88  USE mod_filtreg_p
    99  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     10USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     11          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1012IMPLICIT NONE
    1113
    12   include "paramet.h"
     14
    1315  include "comgeom.h"
    1416!===============================================================================

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

    r5271 r5272  
    99 
    1010  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     11USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     12          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1113IMPLICIT NONE
    1214
    13   include "paramet.h"
     15
    1416!===============================================================================
    1517! Arguments:

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

    r5271 r5272  
    1717        min_qParent,min_qMass,min_ratio ! MVals et CRisi
    1818  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     19USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     20          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1921IMPLICIT NONE
    2022  !
    2123
    22   include "paramet.h"
     24
    2325  include "iniprint.h"
    2426  !
    … …  
    420422  USE comconst_mod, ONLY: pi
    421423  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     424USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     425          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    422426IMPLICIT NONE
    423427  !
    424428
    425   include "paramet.h"
     429
    426430  include "comgeom.h"
    427431  !
    … …  
    889893
    890894  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     895USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     896          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    891897IMPLICIT NONE
    892898  !
    893899
    894   include "paramet.h"
     900
    895901  include "iniprint.h"
    896902  !

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

    r5271 r5272  
    3535  USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_DEBUGIO
    3636  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     37USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     38          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    3739IMPLICIT NONE
    3840
    3941  !
    4042
    41   include "paramet.h"
     43
    4244
    4345  !

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

    r5271 r5272  
    1717  USE vlz_mod,ONLY : vlz_allocate
    1818  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     19USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     20          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1921IMPLICIT NONE
    2022
    21   INCLUDE "paramet.h"
     23
    2224  TYPE(distrib),POINTER :: d
    2325   

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

    r5271 r5272  
    1515        min_qParent,min_qMass,min_ratio ! MVals et CRisi
    1616  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     17USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     18          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1719IMPLICIT NONE
    1820  !
    1921
    20   include "paramet.h"
     22
    2123  !
    2224  !
    … …  
    425427  USE comconst_mod, ONLY: pi
    426428  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     429USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     430          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    427431IMPLICIT NONE
    428432  !
    429433
    430   include "paramet.h"
     434
    431435  include "comgeom.h"
    432436  include "iniprint.h"

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

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

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

    r5271 r5272  
    3838    USE mod_hallo
    3939    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     40USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     41          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    4042implicit none
    4143
    42     include 'paramet.h'
     44
    4345     
    4446    character(len=*)   :: name
    … …  
    104106    USE mod_hallo
    105107    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     108USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     109          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    106110implicit none
    107111
    108     include 'paramet.h'
     112
    109113     
    110114    character(len=*)   :: name

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

    r5271 r5272  
    1515     
    1616      USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     17USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     18          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1719implicit none
    1820!
    … …  
    3638!   Declarations
    3739
    38       include "paramet.h"
     40
    3941      include "comgeom.h"
    4042      include "description.h"

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

    r5271 r5272  
    1616
    1717  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     18USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     19          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1820implicit none
    1921
    … …  
    4547  !   Declarations
    4648
    47   include "paramet.h"
     49
    4850  include "comgeom.h"
    4951  include "description.h"

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

    r5271 r5272  
    1616
    1717  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     18USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     19          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1820implicit none
    1921
    … …  
    4547  !   Declarations
    4648
    47   include "paramet.h"
     49
    4850  include "comgeom.h"
    4951  include "description.h"

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

    r5271 r5272  
    3636  USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_PHYS
    3737  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     38  USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     39          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    3840  IMPLICIT NONE
    3941  !=======================================================================
    … …  
    8991  !    0.  Declarations :
    9092  !    ------------------
    91 
    92   include "paramet.h"
    93 
    9493  INTEGER :: ngridmx
    9594  PARAMETER( ngridmx = 2+(jjm-1)*iim - 1/jjm   )

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

    r5271 r5272  
    5252#ifdef CPP_PARA
    5353  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     54  USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     55          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    5456  IMPLICIT NONE
    5557  !=======================================================================
    … …  
    106108  !    0.  Declarations :
    107109  !    ------------------
    108   include "paramet.h"
    109 
    110110  INTEGER :: ngridmx
    111111  PARAMETER( ngridmx = 2+(jjm-1)*iim - 1/jjm   )

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

    r5271 r5272  
    4747
    4848  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     49USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     50          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    4951IMPLICIT NONE
    5052
    … …  
    5254! Local variables:
    5355
    54   include "paramet.h"
     56
    5557  include "comgeom2.h"
    5658  include "iniprint.h"

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

    r5271 r5272  
    4242 
    4343  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     44USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     45          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    4446IMPLICIT NONE
    4547
    … …  
    4951  include "iniprint.h"
    5052
    51   include "paramet.h"
     53
    5254  include "comgeom2.h"
    5355  include "comdissnew.h"

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

    r5271 r5272  
    5454  USE comconst_mod, ONLY: pi, dtvr
    5555  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     56  USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     57          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    5658  PRIVATE
    5759  PUBLIC :: etat0phys_netcdf
    5860
    5961  include "iniprint.h"
    60   include "paramet.h"
    6162  include "comgeom2.h"
    6263  include "dimsoil.h"

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

    r5271 r5272  
    4343  USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_INCA, CPPKEY_REPROBUS
    4444  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     45USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     46          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    4547IMPLICIT NONE
    4648
    … …  
    5153
    5254
    53   include "paramet.h"
     55
    5456  include "iniprint.h"
    5557  include "tracstoke.h"

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

    r5271 r5272  
    1313  USE surface_data,       ONLY: landice_opt
    1414  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     15  USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     16          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1517
    1618  CHARACTER(LEN=256), PARAMETER :: icefname="landiceref.nc", icevar="landice"
    … …  
    1820  PUBLIC :: start_init_subsurf
    1921  include "iniprint.h"
    20   include "paramet.h"
    2122  include "comgeom2.h"
    2223

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

    r5271 r5272  
    8282  USE lmdz_cppkeys_wrapper, ONLY: nf90_format
    8383  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     84USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     85          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    8486IMPLICIT NONE
    8587!-------------------------------------------------------------------------------
    … …  
    8789  include "iniprint.h"
    8890
    89   include "paramet.h"
     91
    9092  REAL, DIMENSION(iip1,jjp1), INTENT(INOUT) :: masque ! land mask
    9193  REAL, DIMENSION(iip1,jjp1), INTENT(INOUT) :: phis   ! ground geopotential
    … …  
    332334
    333335  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     336USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     337          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    334338IMPLICIT NONE
    335339
    336   include "paramet.h"
     340
    337341  include "comgeom2.h"
    338342!-----------------------------------------------------------------------------

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

    r5271 r5272  
    88
    99  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     10USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     11          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1012IMPLICIT NONE
    1113  !=======================================================================
    … …  
    4850  !
    4951
    50   INCLUDE "paramet.h"
     52
    5153  INCLUDE "coefils.h"
    5254

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

    r5271 r5272  
    2121    !
    2222    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     23USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     24          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    2325IMPLICIT NONE
    2426    !
    … …  
    2830    !  -------------------------------------------------------------------
    2931
    30     include "paramet.h"
     32
    3133    !  -------------------------------------------------------------------
    3234    include "comgeom.h"

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

    r5271 r5272  
    77  !
    88  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     9USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     10          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    911IMPLICIT NONE
    1012  !
    1113
    12   include "paramet.h"
     14
    1315  include "comgeom.h"
    1416

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

    r5271 r5272  
    99  USE infotrac
    1010  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     11USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     12          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1113IMPLICIT NONE
    1214
    … …  
    1416  INCLUDE "chem.h"
    1517  INCLUDE "YOMCST.h"
    16   INCLUDE "paramet.h"
     18
    1719
    1820  !============================= INPUT ===================================

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

    r5271 r5272  
    99  USE infotrac
    1010  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     11USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     12          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1113IMPLICIT NONE
    1214
    … …  
    1416  INCLUDE "chem.h"
    1517  INCLUDE "YOMCST.h"
    16   INCLUDE "paramet.h"
     18
    1719
    1820  !============================= INPUT ===================================

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

    r5271 r5272  
    3232   ! USE phytracr_spl_mod, ONLY : nbreg_dust, nbreg_ind, nbreg_bb
    3333  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     34USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     35          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    3436IMPLICIT NONE
    3537
    … …  
    3840  INCLUDE "chem_spla.h"
    3941  INCLUDE "YOMCST.h"
    40   INCLUDE "paramet.h"
     42
    4143
    4244  !============================== INPUT ==================================

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

    r5271 r5272  
    1111
    1212  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     13USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     14          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1315IMPLICIT NONE
    1416
    … …  
    1618  INCLUDE "chem.h"
    1719  INCLUDE "YOMCST.h"
    18   INCLUDE "paramet.h"
     20
    1921
    2022  !----------------------------- INPUT -----------------------------------

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

    r5271 r5272  
    1616   ! USE phytracr_spl_mod, ONLY : nbreg_dust, nbreg_ind, nbreg_bb
    1717  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     18USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     19          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1820IMPLICIT NONE
    1921
    … …  
    2123  INCLUDE "chem.h"
    2224  INCLUDE "YOMCST.h"
    23   INCLUDE "paramet.h"
     25
    2426
    2527  INTEGER :: i, k, kminbc, kmaxbc

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

    r5271 r5272  
    1010
    1111  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     12USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     13          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1214IMPLICIT NONE
    1315
    … …  
    1517  INCLUDE "chem.h"
    1618  INCLUDE "YOMCST.h"
    17   INCLUDE "paramet.h"
     19
    1820
    1921  !============================= INPUT ===================================

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

    r5271 r5272  
    1010
    1111  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     12USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     13          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1214IMPLICIT NONE
    1315
    … …  
    1517  INCLUDE "chem.h"
    1618  INCLUDE "YOMCST.h"
    17   INCLUDE "paramet.h"
     19
    1820
    1921  !============================= INPUT ===================================

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

    r5271 r5272  
    808808                              mth_cur, phys_cal_update
    809809      USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    810 !
     810      USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     811          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    811812      IMPLICIT none
    812813!
    … …  
    827828      INCLUDE "YOMCST.h"
    828829      INCLUDE "YOETHF.h"
    829       INCLUDE "paramet.h"
    830830      INCLUDE "alpale.h"
    831831

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

    r5271 r5272  
    2121   ! USE phytracr_spl_mod, ONLY : nbreg_dust, nbreg_ind, nbreg_bb
    2222  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     23USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     24          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    2325IMPLICIT NONE
    2426
    … …  
    2729  INCLUDE "chem_spla.h"
    2830  INCLUDE "YOMCST.h"
    29   INCLUDE "paramet.h"
     31
    3032
    3133  !============================= INPUT ===================================

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

    r5271 r5272  
    55  USE netcdf, ONLY: nf90_get_var, nf90_nowrite, nf90_open, nf90_inq_varid
    66  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     7USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     8          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    79IMPLICIT NONE
    810  !
    911
    10   INCLUDE "paramet.h"
     12
    1113  !
    1214  INTEGER :: step, nbjour

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

    r5271 r5272  
    2424
    2525  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     26USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     27          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    2628IMPLICIT NONE
    2729
    … …  
    2931
    3032   ! INCLUDE 'dimphy.h'
    31   INCLUDE 'paramet.h'
     33
    3234  INCLUDE 'chem.h'
    3335  INCLUDE 'chem_spla.h'

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

    r5271 r5272  
    1212       USE netcdf, ONLY: nf90_inq_varid,nf90_noerr,nf90_get_var,nf90_nowrite,nf90_inq_varid,nf90_open
    1313       USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     14USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     15          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1416IMPLICIT NONE
    1517
    16        INCLUDE "paramet.h"
     18
    1719
    1820       character*10 name

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

    r5271 r5272  
    66   ! USE write_field_phy
    77  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     8USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     9          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    810IMPLICIT NONE
    911
    1012    ! INCLUDE "dimphy.h"
    11   INCLUDE "paramet.h"
     13
    1214  !
    1315  INTEGER :: step, nbjour

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

    r5271 r5272  
    99
    1010  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     11USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     12          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1113IMPLICIT NONE
    1214
    … …  
    1416  INCLUDE "chem.h"
    1517  INCLUDE "YOMCST.h"
    16   INCLUDE "paramet.h"
     18
    1719
    1820  !============================= INPUT ===================================

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

    r5271 r5272  
    1212
    1313  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     14USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     15          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1416IMPLICIT NONE
    1517
    1618
    1719  INCLUDE "clesphys.h"
    18   INCLUDE "paramet.h"
     20
    1921  INCLUDE "iniprint.h"
    2022

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

    r5271 r5272  
    1 INCLUDE "conf_gcm.f90"
     1#include "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"
     20#include "compar1d.h"
     21#include "flux_arp.h"
     22#include "tsoilnudge.h"
     23#include "fcg_gcssold.h"
     24#include "fcg_racmo.h"
    2525!
    2626!
    … …  
    2929
    3030!      CHARACTER ch1*72,ch2*72,ch3*72,ch4*12
    31      
     31
    3232!
    3333!  -------------------------------------------------------------------
    … …  
    4242!Config  Desc = unite de fichier pour les impressions
    4343!Config  Def  = 6
    44 !Config  Help = unite de fichier pour les impressions 
     44!Config  Help = unite de fichier pour les impressions
    4545!Config         (defaut sortie standard = 6)
    4646      lunout=6
    … …  
    7474!!Config  Help = 0 ==> forcing_les = .true.
    7575!             initial profiles from file prof.inp.001
    76 !             no forcing by LS convergence ; 
     76!             no forcing by LS convergence ;
    7777!             surface temperature imposed ;
    7878!             radiative cooling may be imposed (iflag_radia=0 in physiq.def)
    7979!         = 1 ==> forcing_radconv = .true.
    80 !             idem forcing_type = 0, but the imposed radiative cooling 
    81 !             is set to 0 (hence, if iflag_radia=0 in physiq.def, 
     80!             idem forcing_type = 0, but the imposed radiative cooling
     81!             is set to 0 (hence, if iflag_radia=0 in physiq.def,
    8282!             then there is no radiative cooling at all)
    8383!         = 2 ==> forcing_toga = .true.
    84 !             initial profiles from TOGA-COARE IFA files 
    85 !             LS convergence and SST imposed from TOGA-COARE IFA files 
     84!             initial profiles from TOGA-COARE IFA files
     85!             LS convergence and SST imposed from TOGA-COARE IFA files
    8686!         = 3 ==> forcing_GCM2SCM = .true.
    8787!             initial profiles from the GCM output
    8888!             LS convergence imposed from the GCM output
    8989!         = 4 ==> forcing_twpi = .true.
    90 !             initial profiles from TWPICE nc files 
    91 !             LS convergence and SST imposed from TWPICE nc files 
     90!             initial profiles from TWPICE nc files
     91!             LS convergence and SST imposed from TWPICE nc files
    9292!         = 5 ==> forcing_rico = .true.
    9393!             initial profiles from RICO idealized
    94 !             LS convergence imposed from  RICO (cst) 
     94!             LS convergence imposed from  RICO (cst)
    9595!         = 6 ==> forcing_amma = .true.
    9696!         = 10 ==> forcing_case = .true.
    97 !             initial profiles from case.nc file 
     97!             initial profiles from case.nc file
    9898!         = 40 ==> forcing_GCSSold = .true.
    9999!             initial profile from GCSS file
    … …  
    105105!             Radiation has to be computed interactively
    106106!         = 60 ==> forcing_astex = .true.
    107 !             initial profiles from file: see prof.inp.001 
     107!             initial profiles from file: see prof.inp.001
    108108!             SST,divergence,ug,vg,ufa,vfa varying with time : see ifa_astex.txt file
    109109!             Radiation has to be computed interactively
    110110!         = 61 ==> forcing_armcu = .true.
    111 !             initial profiles from file: see prof.inp.001 
     111!             initial profiles from file: see prof.inp.001
    112112!             sensible and latent heat flux imposed: see ifa_arm_cu_1.txt
    113113!             large scale advective forcing & radiative tendencies applied below 1000m: see ifa_arm_cu_2.txt
    114 !             use geostrophic wind ug=10m/s vg=0m/s. Duration of the case 53100s 
     114!             use geostrophic wind ug=10m/s vg=0m/s. Duration of the case 53100s
    115115!             Radiation to be switched off
    116116!         > 100 ==> forcing_case = .true. or forcing_case2 = .true.
    117 !             initial profiles from case.nc file 
     117!             initial profiles from case.nc file
    118118!
    119119       forcing_type = 0
    120120       CALL getin('forcing_type',forcing_type)
    121121         imp_fcg_gcssold   = .false.
    122          ts_fcg_gcssold    = .false. 
    123          Tp_fcg_gcssold    = .false. 
    124          Tp_ini_gcssold    = .false. 
    125          xTurb_fcg_gcssold = .false. 
     122         ts_fcg_gcssold    = .false.
     123         Tp_fcg_gcssold    = .false.
     124         Tp_ini_gcssold    = .false.
     125         xTurb_fcg_gcssold = .false.
    126126        IF (forcing_type .eq.40) THEN
    127127          CALL getin('imp_fcg',imp_fcg_gcssold)
    … …  
    261261!Config  Desc = meaningless in this  case
    262262!Config  Def  = 0.
    263 !Config  Help = 
     263!Config  Help =
    264264       time_ini = 0.
    265265       CALL getin('time_ini',time_ini)
    … …  
    277277!Config  Desc = Grid cell area
    278278!Config  Def  = 1.e11
    279 !Config  Help = 
     279!Config  Help =
    280280       airefi = 1.e11
    281281       CALL getin('airephy',airefi)
    … …  
    298298!Config  Desc = surface pressure
    299299!Config  Def  = 102400.
    300 !Config  Help = 
     300!Config  Help =
    301301       psurf = 102400.
    302302       CALL getin('psurf',psurf)
    … …  
    305305!Config  Desc = surface altitude
    306306!Config  Def  = 0.
    307 !Config  Help = 
     307!Config  Help =
    308308       zsurf = 0.
    309309       CALL getin('zsurf',zsurf)
    310 ! EV pour accord avec format standard       
     310! EV pour accord avec format standard
    311311       CALL getin('zorog',zsurf)
    312312
    … …  
    340340!Config  Desc = ???
    341341!Config  Def  = 0.0 0.0
    342 !Config  Help = 
     342!Config  Help =
    343343       wtsurf = 0.0
    344344       wqsurf = 0.0
    … …  
    349349!Config  Desc = albedo
    350350!Config  Def  = 0.09
    351 !Config  Help = 
     351!Config  Help =
    352352       albedo = 0.09
    353353       CALL getin('albedo',albedo)
    … …  
    356356!Config  Desc = age de la neige
    357357!Config  Def  = 30.0
    358 !Config  Help = 
     358!Config  Help =
    359359       xagesno = 30.0
    360360       CALL getin('agesno',xagesno)
    … …  
    363363!Config  Desc = age de la neige
    364364!Config  Def  = 30.0
    365 !Config  Help = 
     365!Config  Help =
    366366       restart_runoff = 0.0
    367367       CALL getin('restart_runoff',restart_runoff)
    … …  
    370370!Config  Desc = initial bucket water content (kg/m2) when land (5std)
    371371!Config  Def  = 30.0
    372 !Config  Help = 
     372!Config  Help =
    373373       qsolinp = 1.
    374374       CALL getin('qsolinp',qsolinp)
    … …  
    379379!Config  Desc = beta for actual evaporation when prescribed
    380380!Config  Def  = 1.0
    381 !Config  Help = 
     381!Config  Help =
    382382       betaevap = 1.
    383        CALL getin('betaevap',betaevap)     
     383       CALL getin('betaevap',betaevap)
    384384
    385385!Config  Key  = zpicinp
    … …  
    689689      real :: q(klon,klev,nqtot),omega2(klon,klev)
    690690!      real :: ug(klev),vg(klev),fcoriolis
    691       real :: phis(klon) 
     691      real :: phis(klon)
    692692
    693693!   Variables locales pour NetCDF:
    … …  
    719719!
    720720      CALL get_var("controle",tab_cntrl)
    721        
     721
    722722
    723723      im         = tab_cntrl(1)
    … …  
    755755        fxyhypb = .false.
    756756        ysinus  = .false.
    757         IF( tab_cntrl(27).EQ.1. ) ysinus =.true. 
     757        IF( tab_cntrl(27).EQ.1. ) ysinus =.true.
    758758      ENDIF
    759759
    … …  
    837837      real :: omega2(klon,klev),rho(klon,klev+1)
    838838!      real :: ug(klev),vg(klev),fcoriolis
    839       real :: phis(klon) 
     839      real :: phis(klon)
    840840
    841841!   Variables locales pour NetCDF:
    … …  
    893893!       tab_cntrl(19) = preff
    894894!
    895 !    .....    parametres  pour le zoom      ......   
     895!    .....    parametres  pour le zoom      ......
    896896
    897897!       tab_cntrl(20)  = clon
    … …  
    957957!   passage d'un champ de la grille scalaire a la grille physique
    958958!=======================================================================
    959  
     959
    960960!-----------------------------------------------------------------------
    961961!   declarations:
    962962!   -------------
    963  
     963
    964964      INTEGER im,jm,ngrid,nfield
    965965      REAL pdyn(im,jm,nfield)
    966966      REAL pfi(ngrid,nfield)
    967  
     967
    968968      INTEGER i,j,ifield,ig
    969  
     969
    970970!-----------------------------------------------------------------------
    971971!   calcul:
    972972!   -------
    973  
     973
    974974      DO ifield=1,nfield
    975975!   traitement des poles
    … …  
    978978            pdyn(i,jm,ifield)=pfi(ngrid,ifield)
    979979         ENDDO
    980  
     980
    981981!   traitement des point normaux
    982982         DO j=2,jm-1
    … …  
    986986         ENDDO
    987987      ENDDO
    988  
     988
    989989      RETURN
    990990      END
    991  
    992  
     991
     992
    993993
    994994      SUBROUTINE abort_gcm(modname, message, ierr)
    995  
     995
    996996      USE IOIPSL
    997997!
    … …  
    10021002!         message = stuff to print
    10031003!         ierr    = severity of situation ( = 0 normal )
    1004  
     1004
    10051005      character(len=*) modname
    10061006      integer ierr
    10071007      character(len=*) message
    1008  
     1008
    10091009      write(*,*) 'in abort_gcm'
    10101010      call histclo
    … …  
    10841084      RETURN
    10851085      END
    1086  
     1086
    10871087      SUBROUTINE gr_dyn_fi(nfield,im,jm,ngrid,pdyn,pfi)
    10881088      IMPLICIT NONE
    … …  
    10901090!   passage d'un champ de la grille scalaire a la grille physique
    10911091!=======================================================================
    1092  
     1092
    10931093!-----------------------------------------------------------------------
    10941094!   declarations:
    10951095!   -------------
    1096  
     1096
    10971097      INTEGER im,jm,ngrid,nfield
    10981098      REAL pdyn(im,jm,nfield)
    10991099      REAL pfi(ngrid,nfield)
    1100  
     1100
    11011101      INTEGER j,ifield,ig
    1102  
     1102
    11031103!-----------------------------------------------------------------------
    11041104!   calcul:
    11051105!   -------
    1106  
     1106
    11071107      IF(ngrid.NE.2+(jm-2)*(im-1).AND.ngrid.NE.1)                          &
    11081108     &    STOP 'probleme de dim'
    … …  
    11101110      CALL SCOPY(nfield,pdyn,im*jm,pfi,ngrid)
    11111111      CALL SCOPY(nfield,pdyn(1,jm,1),im*jm,pfi(ngrid,1),ngrid)
    1112  
     1112
    11131113!   traitement des point normaux
    11141114      DO ifield=1,nfield
    … …  
    11181118         ENDDO
    11191119      ENDDO
    1120  
     1120
    11211121      RETURN
    11221122      END
    1123  
     1123
    11241124      SUBROUTINE disvert0(pa,preff,ap,bp,dpres,presnivs,nivsigs,nivsig)
    1125  
     1125
    11261126!    Ancienne version disvert dont on a modifie nom pour utiliser
    11271127!    le disvert de dyn3d (qui permet d'utiliser grille avec ab,bp imposes)
    … …  
    11311131!
    11321132      USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     1133USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     1134          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    11331135IMPLICIT NONE
    11341136
    11351137
    1136       include "paramet.h"
     1138
    11371139!
    11381140!=======================================================================
    … …  
    11601162      INTEGER np,ierr
    11611163      REAL pi,x
    1162  
     1164
    11631165!-----------------------------------------------------------------------
    11641166!
    11651167      pi=2.*ASIN(1.)
    1166  
     1168
    11671169      OPEN(99,file='sigma.def',status='old',form='formatted',                   &
    11681170     &   iostat=ierr)
    1169  
     1171
    11701172!-----------------------------------------------------------------------
    11711173!   cas 1 on lit les options dans sigma.def:
    11721174!   ----------------------------------------
    1173  
     1175
    11741176      IF (ierr.eq.0) THEN
    1175  
     1177
    11761178      print*,'WARNING!!! on lit les options dans sigma.def'
    11771179      READ(99,*) deltaz
    … …  
    11841186      alpha=deltaz/(llm*h)
    11851187!
    1186  
     1188
    11871189       DO 1  l = 1, llm
    11881190       dsig(l) = (alpha+(1.-alpha)*exp(-beta*(llm-l)))*                    &
    … …  
    11901192     &            (1.-l/FLOAT(llm))*delta )
    11911193   1   CONTINUE
    1192  
     1194
    11931195       sig(1)=1.
    11941196       DO 101 l=1,llm-1
    … …  
    11961198101    CONTINUE
    11971199       sig(llm+1)=0.
    1198  
     1200
    11991201       DO 2  l = 1, llm
    12001202       dsig(l) = sig(l)-sig(l+1)
    12011203   2   CONTINUE
    12021204!
    1203  
     1205
    12041206      ELSE
    12051207!-----------------------------------------------------------------------
    12061208!   cas 2 ancienne discretisation (LMD5...):
    12071209!   ----------------------------------------
    1208  
     1210
    12091211      PRINT*,'WARNING!!! Ancienne discretisation verticale'
    1210  
     1212
    12111213      h=7.
    12121214      snorm  = 0.
    … …  
    12241226         sig(l) = sig(l+1) + dsig(l)
    12251227      ENDDO
    1226  
     1228
    12271229      ENDIF
    1228  
    1229  
     1230
     1231
    12301232      DO l=1,llm
    12311233        nivsigs(l) = FLOAT(l)
    12321234      ENDDO
    1233  
     1235
    12341236      DO l=1,llmp1
    12351237        nivsig(l)= FLOAT(l)
    12361238      ENDDO
    1237  
     1239
    12381240!
    12391241!    ....  Calculs  de ap(l) et de bp(l)  ....
    … …  
    12431245!   .....  pa et preff sont lus  sur les fichiers start par lectba  .....
    12441246!
    1245  
     1247
    12461248      bp(llmp1) =   0.
    1247  
     1249
    12481250      DO l = 1, llm
    12491251!c
    12501252!cc    ap(l) = 0.
    12511253!cc    bp(l) = sig(l)
    1252  
     1254
    12531255      bp(l) = EXP( 1. -1./( sig(l)*sig(l)) )
    12541256      ap(l) = pa * ( sig(l) - bp(l) )
    … …  
    12561258      ENDDO
    12571259      ap(llmp1) = pa * ( sig(llmp1) - bp(llmp1) )
    1258  
     1260
    12591261      PRINT *,' BP '
    12601262      PRINT *,  bp
    12611263      PRINT *,' AP '
    12621264      PRINT *,  ap
    1263  
     1265
    12641266      DO l = 1, llm
    12651267       dpres(l) = bp(l) - bp(l+1)
    12661268       presnivs(l) = 0.5 *( ap(l)+bp(l)*preff + ap(l+1)+bp(l+1)*preff )
    12671269      ENDDO
    1268  
     1270
    12691271      PRINT *,' PRESNIVS '
    12701272      PRINT *,presnivs
    1271  
     1273
    12721274      RETURN
    12731275      END
    … …  
    12991301!   Schema amont pour l'advection verticale en 1D
    13001302!   w est la vitesse verticale dp/dt en Pa/s
    1301 !   Traitement en volumes finis 
     1303!   Traitement en volumes finis
    13021304!   d / dt ( zm q ) = delta_z ( omega q )
    13031305!   d / dt ( zm ) = delta_z ( omega )
    … …  
    13271329      zwq(llm+1)=0.
    13281330      zw(llm+1)=0.
    1329  
     1331
    13301332      do l=1,llm
    13311333         qold=q(l)
    … …  
    13341336      enddo
    13351337
    1336  
     1338
    13371339      return
    13381340      end
    … …  
    13431345       SUBROUTINE advect_va(llm,omega,d_t_va,d_q_va,d_u_va,d_v_va,              &
    13441346     &                q,temp,u,v,play)
    1345 !itlmd 
     1347!itlmd
    13461348!----------------------------------------------------------------------
    1347 !   Calcul de l'advection verticale (ascendance et subsidence) de 
     1349!   Calcul de l'advection verticale (ascendance et subsidence) de
    13481350!   temperature et d'humidite. Hypothese : ce qui rentre de l'exterieur
    1349 !   a les memes caracteristiques que l'air de la colonne 1D (WTG) ou 
    1350 !   sans WTG rajouter une advection horizontale 
    1351 !---------------------------------------------------------------------- 
     1351!   a les memes caracteristiques que l'air de la colonne 1D (WTG) ou
     1352!   sans WTG rajouter une advection horizontale
     1353!----------------------------------------------------------------------
    13521354        implicit none
    13531355INCLUDE "YOMCST.h"
    … …  
    13711373     &       /(play(l)-play(l+1))
    13721374
    1373         d_q_va(l,:)= -omgdown*(q(l,:)-q(l+1,:))/(play(l)-play(l+1))             
    1374 
    1375         d_u_va(l)= -omgdown*(u(l)-u(l+1))/(play(l)-play(l+1))             
    1376         d_v_va(l)= -omgdown*(v(l)-v(l+1))/(play(l)-play(l+1))             
    1377 
    1378        
     1375        d_q_va(l,:)= -omgdown*(q(l,:)-q(l+1,:))/(play(l)-play(l+1))
     1376
     1377        d_u_va(l)= -omgdown*(u(l)-u(l+1))/(play(l)-play(l+1))
     1378        d_v_va(l)= -omgdown*(v(l)-v(l+1))/(play(l)-play(l+1))
     1379
     1380
    13791381       elseif(l.eq.llm) then
    13801382        omgup=min(omega(l),0.0)
    … …  
    13871389        d_u_va(l)= -omgup*(u(l-1)-u(l))/(play(l-1)-play(l))
    13881390        d_v_va(l)= -omgup*(v(l-1)-v(l))/(play(l-1)-play(l))
    1389        
     1391
    13901392       else
    13911393        omgup=min(omega(l),0.0)
    … …  
    14001402        d_q_va(l,:)= -omgdown*(q(l,:)-q(l+1,:))                            &
    14011403     &              /(play(l)-play(l+1))-                                  &
    1402      &              omgup*(q(l-1,:)-q(l,:))/(play(l-1)-play(l)) 
     1404     &              omgup*(q(l-1,:)-q(l,:))/(play(l-1)-play(l))
    14031405        d_u_va(l)= -omgdown*(u(l)-u(l+1))                                  &
    14041406     &              /(play(l)-play(l+1))-                                  &
    1405      &              omgup*(u(l-1)-u(l))/(play(l-1)-play(l)) 
     1407     &              omgup*(u(l-1)-u(l))/(play(l-1)-play(l))
    14061408        d_v_va(l)= -omgdown*(v(l)-v(l+1))                                  &
    14071409     &              /(play(l)-play(l+1))-                                  &
    14081410     &              omgup*(v(l-1)-v(l))/(play(l-1)-play(l))
    1409        
     1411
    14101412      endif
    1411          
     1413
    14121414      enddo
    14131415!fin itlmd
    … …  
    14171419       SUBROUTINE lstendH(llm,nqtot,omega,d_t_va,d_q_va,                        &
    14181420     &                q,temp,u,v,play)
    1419 !itlmd 
     1421!itlmd
    14201422!----------------------------------------------------------------------
    1421 !   Calcul de l'advection verticale (ascendance et subsidence) de 
     1423!   Calcul de l'advection verticale (ascendance et subsidence) de
    14221424!   temperature et d'humidite. Hypothese : ce qui rentre de l'exterieur
    1423 !   a les memes caracteristiques que l'air de la colonne 1D (WTG) ou 
    1424 !   sans WTG rajouter une advection horizontale 
    1425 !---------------------------------------------------------------------- 
     1425!   a les memes caracteristiques que l'air de la colonne 1D (WTG) ou
     1426!   sans WTG rajouter une advection horizontale
     1427!----------------------------------------------------------------------
    14261428        implicit none
    14271429INCLUDE "YOMCST.h"
    … …  
    16481650!jyg<
    16491651!   Formule pour q :
    1650 !                         d_q = (1/tau) [rh_targ*qsat(T_new) - q] 
     1652!                         d_q = (1/tau) [rh_targ*qsat(T_new) - q]
    16511653!
    16521654!  Cette formule remplace d_q = (1/tau) [rh_targ - rh] qsat(T_new)
    … …  
    17431745     &         ,dt_mod_cas,ht_mod_cas,vt_mod_cas,dtrad_mod_cas,dq_mod_cas,hq_mod_cas,vq_mod_cas        &
    17441746     &         ,dth_mod_cas,hth_mod_cas,vth_mod_cas,mxcalc)
    1745  
     1747
    17461748       USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    17471749implicit none

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

    r5271 r5272  
    2626
    2727
    28 INCLUDE "1DUTILS.h"
    29 INCLUDE "1Dconv.h"
     28#include "1DUTILS.h"
     29#include "1Dconv.h"
    3030
    3131!#endif

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

    r5271 r5272  
    1 link ../../dyn3d/paramet.h
     1link ../../dyn3d/paramet_mod_h.f90

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

    r5271 r5272  
    1445814458
    1445914459        USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     14460USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     14461          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1446014462implicit none
    1446114463
    … …  
    1446414466INCLUDE "YOMCST.h"
    1446514467!
    14466 !INCLUDE "paramet.h"
     14468!
    1446714469       
    1446814470        ! inputs
Note: See TracChangeset for help on using the changeset viewer.