Ignore:
Timestamp:
Aug 2, 2024, 9:58:25 PM (7 months ago)
Author:
abarral
Message:

Put dimensions.h and paramet.h into modules

Location:
LMDZ6/branches/Amaury_dev/libf/dynphy_lonlat/phylmd
Files:
7 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/Amaury_dev/libf/dynphy_lonlat/phylmd/ce0l.F90

    r5136 r5159  
    4848  USE lmdz_comgeom2
    4949
     50  USE lmdz_dimensions, ONLY: iim, jjm, llm, ndm
     51  USE lmdz_paramet
    5052  IMPLICIT NONE
    5153
    5254  !-------------------------------------------------------------------------------
    5355  ! Local variables:
    54   INCLUDE "dimensions.h"
    55   INCLUDE "paramet.h"
     56
     57
    5658
    5759  REAL :: masque(iip1, jjp1)             !--- CONTINENTAL MASK

  • LMDZ6/branches/Amaury_dev/libf/dynphy_lonlat/phylmd/etat0dyn_netcdf.F90

    r5136 r5159  
    4545  USE lmdz_comgeom2
    4646
     47USE lmdz_dimensions, ONLY: iim, jjm, llm, ndm
     48  USE lmdz_paramet
    4749  IMPLICIT NONE
    4850
    … …  
    5052  PUBLIC :: etat0dyn_netcdf
    5153
    52   INCLUDE "dimensions.h"
    53   INCLUDE "paramet.h"
     54
     55
    5456  REAL, SAVE :: deg2rad
    5557  INTEGER, SAVE :: iml_dyn, jml_dyn, llm_dyn, ttm_dyn, fid_dyn

  • LMDZ6/branches/Amaury_dev/libf/dynphy_lonlat/phylmd/etat0phys_netcdf.F90

    r5158 r5159  
    5252  USE comconst_mod, ONLY: pi, dtvr
    5353  USE lmdz_iniprint, ONLY: lunout, prt_level
     54  USE lmdz_dimensions, ONLY: iim, jjm, llm, ndm
    5455  USE lmdz_comgeom2
    5556  USE lmdz_clesphys
     57  USE lmdz_paramet
    5658
    5759  PRIVATE
    5860  PUBLIC :: etat0phys_netcdf
    5961
    60   INCLUDE "dimensions.h"
    61   INCLUDE "paramet.h"
     62
    6263  INCLUDE "dimsoil.h"
    6364  REAL, SAVE :: deg2rad

  • LMDZ6/branches/Amaury_dev/libf/dynphy_lonlat/phylmd/iniphysiq_mod.F90

    r5158 r5159  
    4545    USE lmdz_tracstoke
    4646
     47USE lmdz_dimensions, ONLY: iim, jjm, llm, ndm
     48  USE lmdz_paramet
    4749    IMPLICIT NONE
    4850
    … …  
    5254    ! =======================================================================
    5355
    54     INCLUDE "dimensions.h"
    55     INCLUDE "paramet.h"
     56
     57
    5658
    5759    REAL, INTENT (IN) :: prad ! radius of the planet (m)

  • LMDZ6/branches/Amaury_dev/libf/dynphy_lonlat/phylmd/init_ssrf_m.F90

    r5136 r5159  
    33  !*******************************************************************************
    44
     5  USE lmdz_dimensions, ONLY: iim, jjm, llm, ndm
    56  USE indice_sol_mod, ONLY: is_ter, is_oce, is_oce, is_lic, epsfra
    67  USE dimphy, ONLY: klon, zmasq
    … …  
    1415  USE lmdz_iniprint, ONLY: lunout, prt_level
    1516  USE lmdz_comgeom2
     17  USE lmdz_paramet
    1618
    1719  CHARACTER(LEN = 256), PARAMETER :: icefname = "landiceref.nc", icevar = "landice"
    1820  PRIVATE
    1921  PUBLIC :: start_init_subsurf
    20   INCLUDE "dimensions.h"
    21   INCLUDE "paramet.h"
    2222
    2323CONTAINS

  • LMDZ6/branches/Amaury_dev/libf/dynphy_lonlat/phylmd/limit_netcdf.f90

    r5136 r5159  
    8484    USE lmdz_comgeom2
    8585
     86  USE lmdz_dimensions, ONLY: iim, jjm, llm, ndm
     87  USE lmdz_paramet
    8688    IMPLICIT NONE
    8789    !-------------------------------------------------------------------------------
    8890    ! Arguments:
    89     INCLUDE "dimensions.h"
    90     INCLUDE "paramet.h"
     91
     92
    9193    REAL, DIMENSION(iip1, jjp1), INTENT(INOUT) :: masque ! land mask
    9294    REAL, DIMENSION(iip1, jjp1), INTENT(INOUT) :: phis   ! ground geopotential
    … …  
    335337      USE lmdz_comgeom2
    336338
     339USE lmdz_dimensions, ONLY: iim, jjm, llm, ndm
     340  USE lmdz_paramet
    337341      IMPLICIT NONE
    338       INCLUDE "dimensions.h"
    339       INCLUDE "paramet.h"
     342
     343
    340344      !-----------------------------------------------------------------------------
    341345      ! Arguments:

  • LMDZ6/branches/Amaury_dev/libf/dynphy_lonlat/phylmd/test_disvert_m.F90

    r5158 r5159  
    11module test_disvert_m
    22
     3  USE lmdz_dimensions, ONLY: iim, jjm, llm, ndm
    34  IMPLICIT NONE
    45
    … …  
    1920
    2021    ! For llm:
    21     INCLUDE "dimensions.h"
     22
    2223
    2324    ! Local:
Note: See TracChangeset for help on using the changeset viewer.