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

Turn paramet.h into a module

Location:
LMDZ6/trunk/libf/dyn3dmem
Files:
94 edited
1 moved

Legend:

Unmodified
Added
Removed

  • 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"
Note: See TracChangeset for help on using the changeset viewer.