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

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

Location:
LMDZ6/trunk/libf/dyn3d
Files:
32 edited

Legend:

Unmodified
Added
Removed

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

    r5281 r5285  
    88  USE ener_mod, ONLY: gtot
    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
     10  USE paramet_mod_h
    1211  IMPLICIT NONE
    1312  !=======================================================================

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

    r5282 r5285  
    1818   USE strings_mod, ONLY: int2str
    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/dyn3d/bilan_dyn.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/dyn3d/caladvtrac.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/dyn3d/caldyn.f90

    r5281 r5285  
    1111
    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/dyn3d/conf_gcm.f90

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

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

    r5281 r5285  
    55  USE comgeom_mod_h
    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
     7  USE paramet_mod_h
    98  IMPLICIT NONE
    109

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

    r5281 r5285  
    1010
    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/dyn3d/dteta1.f90

    r5272 r5285  
    44SUBROUTINE dteta1 ( teta, pbaru, pbarv, dteta)
    55  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    6   USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    7           ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     6  USE paramet_mod_h
    87  IMPLICIT NONE
    98

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

    r5272 r5285  
    44SUBROUTINE dudv1 ( vorpot, pbaru, pbarv, du, dv )
    55  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    6 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    7           ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     6USE paramet_mod_h
    87IMPLICIT NONE
    98  !

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

    r5272 r5285  
    44SUBROUTINE dudv2 ( teta, pkf, bern, du, dv  )
    55  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    6   USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    7           ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     6  USE paramet_mod_h
    87  IMPLICIT NONE
    98  !

  • LMDZ6/trunk/libf/dyn3d/dynetat0.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/dyn3d/dynredem.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
     22  USE paramet_mod_h
    2423  USE comgeom2_mod_h
    2524  USE iniprint_mod_h
    … …  
    169168
    170169  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    171   USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    172           ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     170  USE paramet_mod_h
    173171  USE comgeom_mod_h
    174172  USE iniprint_mod_h

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

    r5272 r5285  
    22  USE netcdf
    33  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    4   USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    5           ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     4  USE paramet_mod_h
    65  PRIVATE
    76  PUBLIC :: dynredem_write_u, dynredem_write_v, dynredem_read_u, err

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

    r5283 r5285  
    1717  USE tracstoke_mod_h
    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/dyn3d/friction.f90

    r5282 r5285  
    1010  USE comconst_mod, ONLY: pi
    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
     12  USE paramet_mod_h
    1413IMPLICIT NONE
    1514

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

    r5283 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
     28  USE paramet_mod_h
    3029  USE tracstoke_mod_h
    3130  IMPLICIT NONE

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

    r5281 r5285  
    88
    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/dyn3d/groupeun.f90

    r5281 r5285  
    88
    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
    … …  
    145144
    146145  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    147 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    148           ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     146USE paramet_mod_h
    149147IMPLICIT NONE
    150148

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

    r5282 r5285  
    2020          nf90_64bit_offset, nf90_inq_dimid, nf90_inquire_dimension, nf90_put_var
    2121
    22   USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    23           ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     22  USE paramet_mod_h
    2423IMPLICIT NONE
    2524
    … …  
    363362
    364363    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    365 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    366           ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     364USE paramet_mod_h
    367365IMPLICIT NONE
    368366
    … …  
    616614
    617615    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    618 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    619           ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     616USE paramet_mod_h
    620617    USE comgeom_mod_h
    621618IMPLICIT NONE
    … …  
    685682  use comvert_mod, only: preff, pressure_exner, bp, ap
    686683  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    687   USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    688           ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     684  USE paramet_mod_h
    689685  USE comgeom2_mod_h
    690686IMPLICIT NONE
    … …  
    934930
    935931    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    936     USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    937           ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     932    USE paramet_mod_h
    938933    USE comgeom2_mod_h
    939934    implicit none
    … …  
    11031098
    11041099    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    1105 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    1106           ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     1100USE paramet_mod_h
    11071101IMPLICIT NONE
    11081102
    … …  
    14061400
    14071401    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    1408 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    1409           ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     1402USE paramet_mod_h
    14101403IMPLICIT NONE
    14111404
    … …  
    16731666
    16741667    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
     1668    USE paramet_mod_h
    16771669    USE comgeom2_mod_h
    16781670IMPLICIT NONE

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

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

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

    r5282 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/dyn3d/leapfrog.F90

    r5282 r5285  
    2828  USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_PHYS
    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
     30  USE paramet_mod_h
    3231  IMPLICIT NONE
    3332

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

    r5272 r5285  
    77  USE strings_mod, ONLY: strIdx
    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/dyn3d/replay3d.f90

    r5281 r5285  
    2525!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
    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  IMPLICIT NONE
    3029

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

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

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

    r5272 r5285  
    88   ! USE dimphy
    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/dyn3d/tetaleveli1j1.F90

    r5272 r5285  
    88   ! USE dimphy
    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/dyn3d/top_bound.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/dyn3d/vlsplt.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  !
    … …  
    140139  !   --------------------------------------------------------------------
    141140  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    142 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    143           ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     141USE paramet_mod_h
    144142  USE iniprint_mod_h
    145143IMPLICIT NONE
    … …  
    503501  USE comconst_mod, ONLY: pi
    504502  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    505 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    506           ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     503USE paramet_mod_h
    507504IMPLICIT NONE
    508505  !
    … …  
    867864  !   --------------------------------------------------------------------
    868865  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    869 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    870           ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     866USE paramet_mod_h
    871867IMPLICIT NONE
    872868  !
    … …  
    10561052subroutine minmaxq(zq,qmin,qmax,comment)
    10571053  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    1058   USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    1059           ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     1054  USE paramet_mod_h
    10601055
    10611056  character(len=20) :: comment

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

    r5281 r5285  
    2727  USE logic_mod, ONLY: adv_qsat_liq
    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  !
    … …  
    194193  !   --------------------------------------------------------------------
    195194  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    196 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    197           ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     195USE paramet_mod_h
    198196IMPLICIT NONE
    199197  !
    … …  
    562560
    563561  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    564 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    565           ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     562USE paramet_mod_h
    566563IMPLICIT NONE
    567564  !
Note: See TracChangeset for help on using the changeset viewer.