Ignore:
Timestamp:
Oct 28, 2024, 2:33:29 PM (11 days ago)
Author:
abarral
Message:

As discussed internally, remove generic ONLY: ... for new _mod_h modules

Location:
LMDZ6/trunk/libf/dyn3dmem
Files:
88 edited

Legend:

Unmodified
Added
Removed

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

    r5281 r5285  
    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
     11  USE paramet_mod_h
    1312  USE comgeom_mod_h
    1413  IMPLICIT NONE

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

    r5281 r5285  
    1212  USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_DEBUGIO
    1313  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    14   USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    15           ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     14  USE paramet_mod_h
    1615IMPLICIT NONE
    1716  !=======================================================================

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

    r5282 r5285  
    2424   USE strings_mod, ONLY: int2str
    2525   USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    26 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    27           ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     26USE paramet_mod_h
    2827IMPLICIT NONE
    2928   !

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

    r5272 r5285  
    1111  USE vlspltgen_mod
    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
     13USE paramet_mod_h
    1514IMPLICIT NONE
    1615

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

    r5272 r5285  
    11MODULE allocate_field_mod
    22  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
     3  USE paramet_mod_h
    54
    65  IMPLICIT NONE; PRIVATE

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

    r5272 r5285  
    33  USE mod_filtreg_p
    44  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    5 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    6           ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     5USE paramet_mod_h
    76IMPLICIT NONE
    87

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

    r5282 r5285  
    2222
    2323  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    24 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    25           ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     24USE paramet_mod_h
    2625IMPLICIT NONE
    2726

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

    r5272 r5285  
    1818  USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_DEBUGIO
    1919  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    20 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    21           ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     20USE paramet_mod_h
    2221IMPLICIT NONE
    2322  !

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

    r5272 r5285  
    3535  USE groupe_mod
    3636  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    37 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    38           ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     37USE paramet_mod_h
    3938IMPLICIT NONE
    4039

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

    r5281 r5285  
    1010  USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_DEBUGIO
    1111  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    12 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    13           ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     12USE paramet_mod_h
    1413IMPLICIT NONE
    1514

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

    r5272 r5285  
    2323  USE parallel_lmdz
    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
     25  USE paramet_mod_h
    2726  USE advect_new_mod, ONLY : advect_new_allocate
    2827  IMPLICIT NONE

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

    r5282 r5285  
    3737  USE parallel_lmdz
    3838  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
     39  USE paramet_mod_h
    4140  USE infotrac, ONLY: nqtot
    4241  IMPLICIT NONE
    … …  
    7574                         phis_dyn,q_dyn,flxw_dyn)
    7675  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
     76  USE paramet_mod_h
    7977  USE exner_hyb_loc_m, only: exner_hyb_loc
    8078  use exner_milieu_loc_m, only: exner_milieu_loc

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

    r5281 r5285  
    2525  USE parallel_lmdz
    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
     27  USE paramet_mod_h
    2928  USE dissip_mod, ONLY : dissip_allocate
    3029  IMPLICIT NONE
    … …  
    8382  SUBROUTINE call_dissip(ucov_dyn,vcov_dyn,teta_dyn,p_dyn,pk_dyn,ps_dyn)
    8483  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
     84  USE paramet_mod_h
    8785  USE parallel_lmdz
    8886  USE times

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

    r5282 r5285  
    2626
    2727  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    28 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    29           ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     28USE paramet_mod_h
    3029IMPLICIT NONE
    3130  !-----------------------------------------------------------------------

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

    r5281 r5285  
    1818  USE parallel_lmdz
    1919  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    20 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    21           ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     20USE paramet_mod_h
    2221IMPLICIT NONE
    2322  !

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

    r5281 r5285  
    1010  USE mod_filtreg_p
    1111  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    12 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    13           ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     12USE paramet_mod_h
    1413IMPLICIT NONE
    1514

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

    r5281 r5285  
    99  USE parallel_lmdz
    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
     11USE paramet_mod_h
    1312IMPLICIT NONE
    1413

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

    r5281 r5285  
    99  USE mod_filtreg_p
    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
     11USE paramet_mod_h
    1312IMPLICIT NONE
    1413

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

    r5281 r5285  
    33  USE parallel_lmdz
    44  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    5   USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    6           ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     5  USE paramet_mod_h
    76IMPLICIT NONE
    87

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

    r5281 r5285  
    66  USE parallel_lmdz
    77  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    8   USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    9           ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     8  USE paramet_mod_h
    109IMPLICIT NONE
    1110

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

    r5281 r5285  
    1313  USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_DEBUGIO
    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
     15USE paramet_mod_h
    1716IMPLICIT NONE
    1817

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

    r5281 r5285  
    1212  USE parallel_lmdz
    1313  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    14 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    15           ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     14USE paramet_mod_h
    1615IMPLICIT NONE
    1716  !

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

    r5281 r5285  
    1111  USE parallel_lmdz
    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
     13USE paramet_mod_h
    1514IMPLICIT NONE
    1615  !

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

    r5281 r5285  
    1212  USE mod_filtreg_p
    1313  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    14 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    15           ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     14USE paramet_mod_h
    1615IMPLICIT NONE
    1716  !

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

    r5281 r5285  
    1717  USE divgrad2_mod
    1818  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    19 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    20           ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     19USE paramet_mod_h
    2120IMPLICIT NONE
    2221  !

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

    r5272 r5285  
    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
     6  USE paramet_mod_h
    87IMPLICIT NONE
    98

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

    r5272 r5285  
    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
     4USE paramet_mod_h
    65IMPLICIT NONE
    76  !

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

    r5272 r5285  
    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
     4  USE paramet_mod_h
    65IMPLICIT NONE
    76  !

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

    r5282 r5285  
    2727
    2828  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
     29USE paramet_mod_h
    3130IMPLICIT NONE
    3231

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

    r5282 r5285  
    2424
    2525  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    26   USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    27           ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     26  USE paramet_mod_h
    2827  USE comgeom_mod_h
    2928  USE iniprint_mod_h
    … …  
    179178
    180179  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    181   USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    182           ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     180  USE paramet_mod_h
    183181  USE iniprint_mod_h
    184182IMPLICIT NONE

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

    r5272 r5285  
    11MODULE dynredem_mod
    22  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
     3  USE paramet_mod_h
    54  USE parallel_lmdz
    65  USE mod_hallo

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

    r5281 r5285  
    88  USE parallel_lmdz
    99  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    10 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    11           ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     10USE paramet_mod_h
    1211IMPLICIT NONE
    1312

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

    r5281 r5285  
    4040    USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_DEBUGIO
    4141    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
     42USE paramet_mod_h
    4443IMPLICIT NONE
    4544    !

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

    r5281 r5285  
    3636
    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
     38USE paramet_mod_h
    4039IMPLICIT NONE
    4140    !

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

    r5281 r5285  
    88  USE parallel_lmdz
    99  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    10 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    11           ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     10USE paramet_mod_h
    1211IMPLICIT NONE
    1312

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

    r5283 r5285  
    1818  !
    1919  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    20 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    21           ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     20USE paramet_mod_h
    2221IMPLICIT NONE
    2322  !

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

    r5282 r5285  
    1111  USE comconst_mod, ONLY: pi
    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
     13  USE paramet_mod_h
    1514IMPLICIT NONE
    1615

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

    r5283 r5285  
    3030  USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_PHYS
    3131  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    32   USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    33           ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     32  USE paramet_mod_h
    3433  USE tracstoke_mod_h
    3534IMPLICIT NONE

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

    r5272 r5285  
    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
     4  USE paramet_mod_h
    65IMPLICIT NONE
    76  !=======================================================================

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

    r5281 r5285  
    2828  USE parallel_lmdz
    2929  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    30 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    31           ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     30USE paramet_mod_h
    3231IMPLICIT NONE
    3332  !-----------------------------------------------------------------------

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

    r5281 r5285  
    2828  USE parallel_lmdz
    2929  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    30 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    31           ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     30USE paramet_mod_h
    3231IMPLICIT NONE
    3332  !-----------------------------------------------------------------------

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

    r5272 r5285  
    1212  USE parallel_lmdz
    1313  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    14 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    15           ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     14USE paramet_mod_h
    1615IMPLICIT NONE
    1716  !

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

    r5272 r5285  
    1212  USE parallel_lmdz
    1313  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    14 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    15           ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     14USE paramet_mod_h
    1615IMPLICIT NONE
    1716  !

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

    r5281 r5285  
    2222  USE gradiv2_mod
    2323  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    24 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    25           ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     24USE paramet_mod_h
    2625IMPLICIT NONE
    2726  !

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

    r5281 r5285  
    77  USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_DEBUGIO
    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
     9USE paramet_mod_h
    1110implicit none
    1211

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

    r5272 r5285  
    1313  USE advtrac_mod, ONLY : advtrac_allocate
    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
     15USE paramet_mod_h
    1716IMPLICIT NONE
    1817

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

    r5281 r5285  
    55  USE comconst_mod, ONLY: ngroup
    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
     7USE paramet_mod_h
    98IMPLICIT NONE
    109
    … …  
    142141  USE comconst_mod, ONLY: ngroup
    143142  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    144 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    145           ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     143USE paramet_mod_h
    146144IMPLICIT NONE
    147145

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

    r5281 r5285  
    1919  USE pres2lev_mod, only: pres2lev
    2020
    21   USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    22           ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     21  USE paramet_mod_h
    2322IMPLICIT NONE
    2423
    … …  
    373372
    374373    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    375 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    376           ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     374USE paramet_mod_h
    377375IMPLICIT NONE
    378376
    … …  
    736734
    737735    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    738 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    739           ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     736USE paramet_mod_h
    740737IMPLICIT NONE
    741738
    … …  
    762759
    763760    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    764 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    765           ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     761USE paramet_mod_h
    766762IMPLICIT NONE
    767763
    … …  
    791787
    792788    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    793     USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    794           ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     789    USE paramet_mod_h
    795790IMPLICIT NONE
    796791
    … …  
    866861
    867862    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    868 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    869           ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     863USE paramet_mod_h
    870864IMPLICIT NONE
    871865
    … …  
    941935  USE comvert_mod, ONLY: preff, pressure_exner, bp, ap, disvert_type
    942936  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    943 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    944           ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     937USE paramet_mod_h
    945938IMPLICIT NONE
    946939
    … …  
    14311424
    14321425    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    1433     USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    1434           ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     1426    USE paramet_mod_h
    14351427    USE comgeom2_mod_h
    14361428    implicit none
    … …  
    15991591    USE netcdf, ONLY: nf90_put_var
    16001592    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    1601 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    1602           ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     1593USE paramet_mod_h
    16031594IMPLICIT NONE
    16041595
    … …  
    19191910    USE netcdf, ONLY: nf90_put_var
    19201911    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    1921 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    1922           ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     1912USE paramet_mod_h
    19231913IMPLICIT NONE
    19241914
    … …  
    22002190
    22012191    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    2202     USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    2203           ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     2192    USE paramet_mod_h
    22042193    USE comgeom2_mod_h
    22052194IMPLICIT NONE
    … …  
    24252414use mod_hallo
    24262415USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    2427 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    2428           ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     2416USE paramet_mod_h
    24292417implicit none
    24302418
    … …  
    24582446subroutine dumpall
    24592447     USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    2460      USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    2461           ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     2448     USE paramet_mod_h
    24622449     USE comgeom_mod_h
    24632450implicit none

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

    r5282 r5285  
    3030
    3131  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    32 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    33           ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     32USE paramet_mod_h
    3433IMPLICIT NONE
    3534

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

    r5282 r5285  
    2020
    2121   USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    22 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    23           ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     22USE paramet_mod_h
    2423implicit none
    2524

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

    r5282 r5285  
    1919
    2020  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    21 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    22           ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     21USE paramet_mod_h
    2322implicit none
    2423

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

    r5282 r5285  
    1919
    2020   USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    21 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    22           ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     21USE paramet_mod_h
    2322implicit none
    2423

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

    r5282 r5285  
    1919  USE strings_mod, ONLY: int2str
    2020  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    21 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    22           ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     21USE paramet_mod_h
    2322IMPLICIT NONE
    2423

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

    r5272 r5285  
    1414  USE parallel_lmdz
    1515  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
     16  USE paramet_mod_h
    1817  USE advect_new_mod,ONLY : advect_new_allocate
    1918  IMPLICIT NONE

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

    r5281 r5285  
    1414  USE parallel_lmdz
    1515  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
     16USE paramet_mod_h
    1817IMPLICIT NONE
    1918  !

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

    r5281 r5285  
    1313  USE mod_filtreg_p
    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
     15USE paramet_mod_h
    1716IMPLICIT NONE
    1817  !

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

    r5281 r5285  
    1414  USE mod_filtreg_p
    1515  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
     16USE paramet_mod_h
    1817IMPLICIT NONE
    1918  !

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

    r5281 r5285  
    1212  USE parallel_lmdz
    1313  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    14 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    15           ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     14USE paramet_mod_h
    1615IMPLICIT NONE
    1716  !

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

    r5282 r5285  
    4444
    4545   USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    46    USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    47           ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     46   USE paramet_mod_h
    4847IMPLICIT NONE
    4948

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

    r5272 r5285  
    4040  USE parallel_lmdz
    4141  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
     42  USE paramet_mod_h
    4443  USE infotrac
    4544  USE caldyn_mod,ONLY : caldyn_allocate

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

    r5281 r5285  
    99  USE parallel_lmdz
    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
     11USE paramet_mod_h
    1312IMPLICIT NONE
    1413

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

    r5281 r5285  
    99  USE parallel_lmdz
    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
     11USE paramet_mod_h
    1312IMPLICIT NONE
    1413

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

    r5281 r5285  
    1616  !
    1717  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    18 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    19           ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     18USE paramet_mod_h
    2019IMPLICIT NONE
    2120  !

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

    r5272 r5285  
    1414
    1515    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
     16USE paramet_mod_h
    1817IMPLICIT NONE
    1918

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

    r5272 r5285  
    6969  subroutine Init_mod_hallo
    7070    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
     71    USE paramet_mod_h
    7372    USE IOIPSL
    7473    implicit none
    … …  
    10931092  USE parallel_lmdz
    10941093  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
     1094  USE paramet_mod_h
    10971095    IMPLICIT NONE
    10981096   
    … …  
    13451343    subroutine SendRequest(a_Request)
    13461344    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
     1345    USE paramet_mod_h
    13491346    USE lmdz_mpi
    13501347      implicit none
    … …  
    14651462   subroutine WaitRequest(a_Request)
    14661463   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
     1464   USE paramet_mod_h
    14691465   USE lmdz_mpi
    14701466   implicit none
    … …  
    16001596   subroutine WaitRecvRequest(a_Request)
    16011597   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
     1598   USE paramet_mod_h
    16041599   USE lmdz_mpi
    16051600   implicit none
    … …  
    16731668    subroutine CopyField(FieldS,FieldR,ij,ll,jj_Nb_New)
    16741669    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
     1670    USE paramet_mod_h
    16771671      implicit none
    16781672   
    … …  
    17121706  subroutine CopyFieldHallo(FieldS,FieldR,ij,ll,jj_Nb_New,Up,Down)
    17131707    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
     1708    USE paramet_mod_h
    17161709      implicit none
    17171710   
    … …  
    17531746   subroutine Gather_field_u(field_loc,field_glo,ll)
    17541747   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
     1748   USE paramet_mod_h
    17571749   implicit none
    17581750     integer :: ll
    … …  
    17781770   subroutine Gather_field_v(field_loc,field_glo,ll)
    17791771   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
     1772   USE paramet_mod_h
    17821773   implicit none
    17831774     integer :: ll
    … …  
    18081799   subroutine Scatter_field_u(field_glo,field_loc,ll)
    18091800   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
     1801   USE paramet_mod_h
    18121802   implicit none
    18131803     integer :: ll
    … …  
    18441834   subroutine Scatter_field_v(field_glo,field_loc,ll)
    18451835   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
     1836   USE paramet_mod_h
    18481837   implicit none
    18491838     integer :: ll

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

    r5281 r5285  
    4242
    4343     USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    44 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    45           ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     44USE paramet_mod_h
    4645IMPLICIT NONE
    4746
    … …  
    137136     USE parallel_lmdz
    138137     USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    139 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    140           ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     138USE paramet_mod_h
    141139IMPLICIT NONE
    142140
    … …  
    161159     USE parallel_lmdz
    162160     USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    163 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    164           ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     161USE paramet_mod_h
    165162IMPLICIT NONE
    166163
    … …  
    197194     USE parallel_lmdz
    198195     USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    199 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    200           ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     196USE paramet_mod_h
    201197IMPLICIT NONE
    202198
    … …  
    230226     USE parallel_lmdz
    231227     USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    232 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    233           ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     228USE paramet_mod_h
    234229IMPLICIT NONE
    235230

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

    r5281 r5285  
    1313
    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
     15USE paramet_mod_h
    1716IMPLICIT NONE
    1817  !

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

    r5281 r5285  
    1212  USE parallel_lmdz
    1313  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    14 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    15           ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     14USE paramet_mod_h
    1615IMPLICIT NONE
    1716  !

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

    r5280 r5285  
    2020  USE nxgraro2_mod
    2121  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    22 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    23           ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     22USE paramet_mod_h
    2423IMPLICIT NONE
    2524  !

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

    r5282 r5285  
    8787    USE lmdz_mpi
    8888    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    89 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    90           ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     89USE paramet_mod_h
    9190implicit none
    9291
    … …  
    248247    SUBROUTINE create_distrib(jj_nb_new,d)
    249248    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    250 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    251           ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     249USE paramet_mod_h
    252250IMPLICIT NONE
    253251
    … …  
    302300    SUBROUTINE Set_Distrib(d)
    303301    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    304 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    305           ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     302USE paramet_mod_h
    306303IMPLICIT NONE
    307304
    … …  
    341338    SUBROUTINE copy_distrib(dist,new_dist)
    342339    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    343 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    344           ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     340USE paramet_mod_h
    345341IMPLICIT NONE
    346342
    … …  
    381377    SUBROUTINE get_current_distrib(d)
    382378    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    383 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    384           ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     379USE paramet_mod_h
    385380IMPLICIT NONE
    386381
    … …  
    399394    USE control_mod, only : ok_dyn_xios
    400395    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
     396    USE paramet_mod_h
    403397
    404398#ifdef CPP_COUPLE
    … …  
    462456    subroutine Pack_Data(Field,ij,ll,row,Buffer)
    463457    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
     458    USE paramet_mod_h
    466459implicit none
    467460
    … …  
    488481    subroutine Unpack_Data(Field,ij,ll,row,Buffer)
    489482    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
     483    USE paramet_mod_h
    492484implicit none
    493485
    … …  
    530522    USE Vampir
    531523    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
     524    USE paramet_mod_h
    534525implicit none
    535526
    … …  
    651642    USE lmdz_mpi
    652643    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    653     USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    654           ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     644    USE paramet_mod_h
    655645implicit none
    656646
    … …  
    733723    USE lmdz_mpi
    734724    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
     725    USE paramet_mod_h
    737726implicit none
    738727
    … …  
    754743    USE lmdz_mpi
    755744    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
     745    USE paramet_mod_h
    758746implicit none
    759747

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

    r5272 r5285  
    1313  !
    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
     15USE paramet_mod_h
    1716IMPLICIT NONE
    1817  !

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

    r5282 r5285  
    99  USE strings_mod, ONLY: strIdx
    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
     11USE paramet_mod_h
    1312IMPLICIT none
    1413  !

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

    r5281 r5285  
    1313  USE parallel_lmdz
    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
     15USE paramet_mod_h
    1716IMPLICIT NONE
    1817  !

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

    r5281 r5285  
    1313  USE parallel_lmdz
    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
     15USE paramet_mod_h
    1716IMPLICIT NONE
    1817  !

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

    r5281 r5285  
    1414  USE mod_filtreg_p
    1515  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
     16USE paramet_mod_h
    1817IMPLICIT NONE
    1918  !

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

    r5282 r5285  
    3333
    3434  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    35 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    36           ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     35USE paramet_mod_h
    3736IMPLICIT NONE
    3837  !-----------------------------------------------------------------------

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

    r5272 r5285  
    2727    USE parallel_lmdz
    2828    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
     29USE paramet_mod_h
    3130implicit none
    3231

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

    r5282 r5285  
    1212
    1313  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    14 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    15           ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     14USE paramet_mod_h
    1615IMPLICIT NONE
    1716  !

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

    r5281 r5285  
    99  USE mod_filtreg_p
    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
     11USE paramet_mod_h
    1312IMPLICIT NONE
    1413

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

    r5272 r5285  
    99 
    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
     11USE paramet_mod_h
    1312IMPLICIT NONE
    1413

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

    r5282 r5285  
    1818        min_qParent,min_qMass,min_ratio ! MVals et CRisi
    1919  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    20 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    21           ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     20USE paramet_mod_h
    2221IMPLICIT NONE
    2322  !
    … …  
    423422  USE comconst_mod, ONLY: pi
    424423  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    425 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    426           ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     424USE paramet_mod_h
    427425IMPLICIT NONE
    428426  !
    … …  
    894892
    895893  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    896 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    897           ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     894USE paramet_mod_h
    898895IMPLICIT NONE
    899896  !

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

    r5272 r5285  
    3535  USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_DEBUGIO
    3636  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    37 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    38           ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     37USE paramet_mod_h
    3938IMPLICIT NONE
    4039

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

    r5272 r5285  
    1717  USE vlz_mod,ONLY : vlz_allocate
    1818  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    19 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    20           ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     19USE paramet_mod_h
    2120IMPLICIT NONE
    2221

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

    r5282 r5285  
    1515        min_qParent,min_qMass,min_ratio ! MVals et CRisi
    1616  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    17 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    18           ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     17USE paramet_mod_h
    1918IMPLICIT NONE
    2019  !
    … …  
    429428  USE comconst_mod, ONLY: pi
    430429  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    431 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    432           ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     430USE paramet_mod_h
    433431IMPLICIT NONE
    434432  !

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

    r5272 r5285  
    3838    USE mod_hallo
    3939    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    40 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    41           ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     40USE paramet_mod_h
    4241implicit none
    4342
    … …  
    106105    USE mod_hallo
    107106    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    108 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    109           ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     107USE paramet_mod_h
    110108implicit none
    111109

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

    r5282 r5285  
    1717
    1818      USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    19 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    20           ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     19USE paramet_mod_h
    2120implicit none
    2221!

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

    r5282 r5285  
    1818
    1919  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    20 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    21           ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     20USE paramet_mod_h
    2221implicit none
    2322

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

    r5282 r5285  
    1818
    1919  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    20 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    21           ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     20USE paramet_mod_h
    2221implicit none
    2322
Note: See TracChangeset for help on using the changeset viewer.