Changeset 5272


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.