Changeset 3877


Ignore:
Timestamp:
Aug 2, 2025, 5:32:18 PM (4 weeks ago)
Author:
emillour
Message:

Venus PCM:
Code tidying: get rid of dimsoil.h. Parameter nsoilmx is now
stored in soil.F as a module variable.
EM

Location:
trunk
Files:
1 deleted
13 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.COMMON/libf/dynphy_lonlat/phyvenus/newstart.F

    r2405 r3877  
    3333      USE logic_mod, ONLY: iflag_trac,fxyhypb,ysinus
    3434      USE temps_mod, ONLY: day_ref,annee_ref
     35      USE soil_mod, only: nsoilmx
    3536      implicit none
    3637
    … …  
    4041#include "comgeom2.h"
    4142#include "description.h"
    42 #include "dimsoil.h"
    4343#include "netcdf.inc"
    4444

  • trunk/LMDZ.COMMON/libf/dynphy_lonlat/phyvenus/readstartphy.F

    r1687 r3877  
    1515c======================================================================
    1616      use dimphy
     17      use soil_mod, only: nsoilmx
    1718      IMPLICIT none
    18 #include "netcdf.inc"
    19 #include "dimsoil.h"
     19      include "netcdf.inc"
    2020c======================================================================
    2121

  • trunk/LMDZ.COMMON/libf/dynphy_lonlat/phyvenus/start2archive.F

    r1687 r3877  
    2222      use exner_milieu_m, only: exner_milieu
    2323      USE comconst_mod
     24      USE soil_mod, ONLY: nsoilmx
    2425      USE comvert_mod, ONLY: ap,bp,presnivs,pa,preff,nivsigs,nivsig,
    2526     .                       aps,bps,scaleheight,pseudoalt,
    … …  
    3435#include "comgeom.h"
    3536#include "description.h"
    36 #include "dimsoil.h"
    3737#include "netcdf.inc"
    3838

  • trunk/LMDZ.COMMON/libf/dynphy_lonlat/phyvenus/writerestartphy.F

    r1530 r3877  
    88
    99
     10      USE soil_mod, only: nsoilmx
    1011c======================================================================
    1112c Ecriture de l'etat de redemarrage pour la physique (pour newstart)
    1213c======================================================================
    1314      IMPLICIT none
    14 #include "dimensions.h"
    15 #include "netcdf.inc"
    16 #include "dimsoil.h"
     15      include "dimensions.h"
     16      include "netcdf.inc"
    1717c======================================================================
    1818      CHARACTER*13 fichnom

  • trunk/LMDZ.VENUS/libf/phyvenus/clmain.F

    r3835 r3877  
    3939      use cpdet_phy_mod, only: t2tpot
    4040      use turb_mod, only :yustar
     41      use soil_mod, only: nsoilmx
    4142      use clesphys_mod
    4243     
    … …  
    7778cAA la premiere couche
    7879c======================================================================
    79 c$$$ PB ajout pour soil
    80       include "dimsoil.h"
    8180      include "iniprint.h"
    82 c      include "clesphys.h"
    8381      include "compbl.h"
    8482c
    … …  
    485483      use interface_surf, only: interfsurf_hq
    486484      use dimphy, only: klon, klev
     485      use soil_mod, only: nsoilmx
    487486      use mod_grid_phy_lmdz, only: nbp_lon, nbp_lat, nbp_lev
    488487      use cpdet_phy_mod, only: t2tpot,tpot2t,cpdet
    … …  
    494493c======================================================================
    495494      include "YOMCST.h"
    496       include "dimsoil.h"
    497495      include "iniprint.h"
    498496

  • trunk/LMDZ.VENUS/libf/phyvenus/clmain_ideal.F

    r3835 r3877  
    3030      use dimphy
    3131      use mod_grid_phy_lmdz, only: nbp_lev
     32      use soil_mod, only: nsoilmx
    3233      use clesphys_mod
    3334      IMPLICIT none
    … …  
    6162cAA la premiere couche
    6263c======================================================================
    63 c$$$ PB ajout pour soil
    64 #include "dimsoil.h"
    6564#include "iniprint.h"
    66 c#include "clesphys.h"
    6765#include "compbl.h"
    6866c

  • trunk/LMDZ.VENUS/libf/phyvenus/dyn1d/rcm1d.F

    r3875 r3877  
    2121      USE clesphys_mod
    2222      USE comcstfi_mod
     23      USE soil_mod, ONLY: nsoilmx
    2324      USE tabcontrol_mod, ONLY: dtime, radpas
    2425      IMPLICIT NONE
    … …  
    4344c=======================================================================
    4445
    45 #include "dimensions.h"
    46 #include "dimsoil.h"
    47 #include "netcdf.inc"
    48 #include "iniprint.h"
     46      include "dimensions.h"
     47      include "netcdf.inc"
     48      include "iniprint.h"
    4949
    5050c --------------------------------------------------------------

  • trunk/LMDZ.VENUS/libf/phyvenus/interface_surf.F90

    r1621 r3877  
    4747      use write_field_phy
    4848      use cpdet_phy_mod, only: cpdet
     49      use soil_mod, only: soil
    4950
    5051      IMPLICIT none

  • trunk/LMDZ.VENUS/libf/phyvenus/phyetat0.F90

    r3875 r3877  
    2222                                east_gwstress, west_gwstress
    2323  use tabcontrol_mod, only: dtime, radpas, length, tabcntr0
     24  use soil_mod, only: nsoilmx
    2425  use clesphys_mod
    2526
    2627implicit none
    27 !======================================================================
    28 include "dimsoil.h"
    29 !======================================================================
    3028
    3129character(len=*),intent(in) :: fichnom ! input file name
    … …  
    4442  call open_startphy(fichnom)
    4543endif
    46 
    4744!
    4845! Load control parameters:

  • trunk/LMDZ.VENUS/libf/phyvenus/phyredem.F90

    r3875 r3877  
    1717  use age_of_air_mod, only: ok_aoa
    1818  use tabcontrol_mod, only: dtime, radpas, length
     19  use soil_mod, only: nsoilmx
    1920  use clesphys_mod
    2021 
    2122  implicit none
    22 !======================================================================
    23 ! Auteur(s) Z.X. Li (LMD/CNRS) date: 19930818
    24 ! Objet: Lecture de l'etat initial pour la physique
    25 !======================================================================
    26 !include "netcdf.inc"
    27 include "dimsoil.h"
    28 !======================================================================
    2923
    3024character(len=*),intent(in) :: fichnom

  • trunk/LMDZ.VENUS/libf/phyvenus/phys_state_var_mod.F90

    r3451 r3877  
    125125SUBROUTINE phys_state_var_init(nqmax)
    126126
     127USE soil_mod, ONLY: nsoilmx
     128
    127129IMPLICIT NONE
    128 include "dimsoil.h"
    129130
    130131      integer :: nqmax

  • trunk/LMDZ.VENUS/libf/phyvenus/physiq_mod.F

    r3875 r3877  
    8585      use iono_h, only: temp_elect, temp_ion
    8686      use tabcontrol_mod, only: radpas, dtime
     87      use soil_mod, only: nsoilmx
    8788      use clesphys_mod
    8889#ifdef CPP_XIOS     
    … …  
    115116#endif
    116117c======================================================================
    117 #include "dimsoil.h"
    118118#include "iniprint.h"
    119119#include "timerad.h"

  • trunk/LMDZ.VENUS/libf/phyvenus/soil.F

    r3835 r3877  
    1 !
    2 ! $Header: /home/cvsroot/LMDZ4/libf/phylmd/soil.F,v 1.1.1.1 2004/05/19 12:53:09 lmdzadmin Exp $
    3 !
     1      MODULE soil_mod
     2     
     3      IMPLICIT NONE
     4     
     5      INTEGER,PARAMETER :: nsoilmx=11 ! number of sub-surface soil layers
     6     
     7      CONTAINS
     8
    49      SUBROUTINE soil(ptimestep, knon, ptsrf, ptsoil,
    510     s          pcapcal, pfluxgrd)
    … …  
    5055      IMPLICIT NONE
    5156      include "YOMCST.h"
    52       include "dimsoil.h"
    53 c      include "clesphys.h"
    5457
    5558c-----------------------------------------------------------------------
    … …  
    230233
    231234     
    232       END
     235      END SUBROUTINE soil
     236     
     237      END MODULE soil_mod
Note: See TracChangeset for help on using the changeset viewer.