Ignore:
Timestamp:
Aug 2, 2025, 5:32:18 PM (4 months 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/LMDZ.COMMON/libf/dynphy_lonlat/phyvenus
Files:
4 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
Note: See TracChangeset for help on using the changeset viewer.