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

Turn paramet.h into a module

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

Legend:

Unmodified
Added
Removed

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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