Ignore:
Timestamp:
Jul 28, 2024, 4:17:54 PM (4 months ago)
Author:
abarral
Message:

Put comgeom.h, comgeom2.h into modules

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

Legend:

Unmodified
Added
Removed

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

    r5134 r5136  
    4646  USE lmdz_mpi
    4747  USE lmdz_iniprint, ONLY: lunout, prt_level
    48 
     48  USE lmdz_comgeom2
    4949
    5050  IMPLICIT NONE
    … …  
    5454  INCLUDE "dimensions.h"
    5555  INCLUDE "paramet.h"
    56   INCLUDE "comgeom2.h"
    5756
    5857  REAL :: masque(iip1, jjp1)             !--- CONTINENTAL MASK

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

    r5134 r5136  
    4343  USE lmdz_comdissnew, ONLY: lstardis, nitergdiv, nitergrot, niterh, tetagdiv, &
    4444          tetagrot, tetatemp, coefdis, vert_prof_dissip
     45  USE lmdz_comgeom2
    4546
    4647  IMPLICIT NONE
    … …  
    5152  INCLUDE "dimensions.h"
    5253  INCLUDE "paramet.h"
    53   INCLUDE "comgeom2.h"
    5454  REAL, SAVE :: deg2rad
    5555  INTEGER, SAVE :: iml_dyn, jml_dyn, llm_dyn, ttm_dyn, fid_dyn

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

    r5134 r5136  
    5252  USE comconst_mod, ONLY: pi, dtvr
    5353  USE lmdz_iniprint, ONLY: lunout, prt_level
     54  USE lmdz_comgeom2
    5455
    5556  PRIVATE
    … …  
    5859  INCLUDE "dimensions.h"
    5960  INCLUDE "paramet.h"
    60   INCLUDE "comgeom2.h"
    6161  INCLUDE "dimsoil.h"
    6262  INCLUDE "clesphys.h"

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

    r5134 r5136  
    4242    USE slab_heat_transp_mod, ONLY: ini_slab_transp_geom
    4343    USE lmdz_iniprint, ONLY: lunout, prt_level
     44    USE lmdz_comgeom
     45
    4446    IMPLICIT NONE
    4547
    … …  
    5254    INCLUDE "paramet.h"
    5355    INCLUDE "tracstoke.h"
    54     INCLUDE "comgeom.h"
    5556
    5657    REAL, INTENT (IN) :: prad ! radius of the planet (m)

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

    r5134 r5136  
    1313  USE surface_data, ONLY: landice_opt
    1414  USE lmdz_iniprint, ONLY: lunout, prt_level
     15  USE lmdz_comgeom2
    1516
    1617  CHARACTER(LEN = 256), PARAMETER :: icefname = "landiceref.nc", icevar = "landice"
    … …  
    1920  INCLUDE "dimensions.h"
    2021  INCLUDE "paramet.h"
    21   INCLUDE "comgeom2.h"
    2222
    2323CONTAINS

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

    r5134 r5136  
    8282    USE lmdz_abort_physic, ONLY: abort_physic
    8383    USE lmdz_iniprint, ONLY: lunout, prt_level
     84    USE lmdz_comgeom2
     85
    8486    IMPLICIT NONE
    8587    !-------------------------------------------------------------------------------
    … …  
    9294    !-------------------------------------------------------------------------------
    9395    ! Local variables:
    94     INCLUDE "comgeom2.h"
    9596
    9697    !--- INPUT NETCDF FILES AND VARIABLES NAMES ------------------------------------
    … …  
    332333      USE lmdz_abort_physic, ONLY: abort_physic
    333334      USE lmdz_libmath, ONLY: minmax
     335      USE lmdz_comgeom2
    334336
    335337      IMPLICIT NONE
    336338      INCLUDE "dimensions.h"
    337339      INCLUDE "paramet.h"
    338       INCLUDE "comgeom2.h"
    339340      !-----------------------------------------------------------------------------
    340341      ! Arguments:
Note: See TracChangeset for help on using the changeset viewer.