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

Turn paramet.h into a module

Location:
LMDZ6/trunk/libf/dynphy_lonlat
Files:
8 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/dynphy_lonlat/calfis.f90

    r5271 r5272  
    3636  USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_PHYS
    3737  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     38  USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     39          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    3840  IMPLICIT NONE
    3941  !=======================================================================
    … …  
    8991  !    0.  Declarations :
    9092  !    ------------------
    91 
    92   include "paramet.h"
    93 
    9493  INTEGER :: ngridmx
    9594  PARAMETER( ngridmx = 2+(jjm-1)*iim - 1/jjm   )

  • LMDZ6/trunk/libf/dynphy_lonlat/calfis_loc.F90

    r5271 r5272  
    5252#ifdef CPP_PARA
    5353  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     54  USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     55          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    5456  IMPLICIT NONE
    5557  !=======================================================================
    … …  
    106108  !    0.  Declarations :
    107109  !    ------------------
    108   include "paramet.h"
    109 
    110110  INTEGER :: ngridmx
    111111  PARAMETER( ngridmx = 2+(jjm-1)*iim - 1/jjm   )

  • LMDZ6/trunk/libf/dynphy_lonlat/phylmd/ce0l.F90

    r5271 r5272  
    4747
    4848  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     49USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     50          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    4951IMPLICIT NONE
    5052
    … …  
    5254! Local variables:
    5355
    54   include "paramet.h"
     56
    5557  include "comgeom2.h"
    5658  include "iniprint.h"

  • LMDZ6/trunk/libf/dynphy_lonlat/phylmd/etat0dyn_netcdf.F90

    r5271 r5272  
    4242 
    4343  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     44USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     45          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    4446IMPLICIT NONE
    4547
    … …  
    4951  include "iniprint.h"
    5052
    51   include "paramet.h"
     53
    5254  include "comgeom2.h"
    5355  include "comdissnew.h"

  • LMDZ6/trunk/libf/dynphy_lonlat/phylmd/etat0phys_netcdf.f90

    r5271 r5272  
    5454  USE comconst_mod, ONLY: pi, dtvr
    5555  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     56  USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     57          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    5658  PRIVATE
    5759  PUBLIC :: etat0phys_netcdf
    5860
    5961  include "iniprint.h"
    60   include "paramet.h"
    6162  include "comgeom2.h"
    6263  include "dimsoil.h"

  • LMDZ6/trunk/libf/dynphy_lonlat/phylmd/iniphysiq_mod.F90

    r5271 r5272  
    4343  USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_INCA, CPPKEY_REPROBUS
    4444  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     45USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     46          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    4547IMPLICIT NONE
    4648
    … …  
    5153
    5254
    53   include "paramet.h"
     55
    5456  include "iniprint.h"
    5557  include "tracstoke.h"

  • LMDZ6/trunk/libf/dynphy_lonlat/phylmd/init_ssrf_m.f90

    r5271 r5272  
    1313  USE surface_data,       ONLY: landice_opt
    1414  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     15  USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     16          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1517
    1618  CHARACTER(LEN=256), PARAMETER :: icefname="landiceref.nc", icevar="landice"
    … …  
    1820  PUBLIC :: start_init_subsurf
    1921  include "iniprint.h"
    20   include "paramet.h"
    2122  include "comgeom2.h"
    2223

  • LMDZ6/trunk/libf/dynphy_lonlat/phylmd/limit_netcdf.F90

    r5271 r5272  
    8282  USE lmdz_cppkeys_wrapper, ONLY: nf90_format
    8383  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     84USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     85          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    8486IMPLICIT NONE
    8587!-------------------------------------------------------------------------------
    … …  
    8789  include "iniprint.h"
    8890
    89   include "paramet.h"
     91
    9092  REAL, DIMENSION(iip1,jjp1), INTENT(INOUT) :: masque ! land mask
    9193  REAL, DIMENSION(iip1,jjp1), INTENT(INOUT) :: phis   ! ground geopotential
    … …  
    332334
    333335  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     336USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     337          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    334338IMPLICIT NONE
    335339
    336   include "paramet.h"
     340
    337341  include "comgeom2.h"
    338342!-----------------------------------------------------------------------------
Note: See TracChangeset for help on using the changeset viewer.