Changeset 3877 for trunk/LMDZ.VENUS/libf/phyvenus/clmain.F

Timestamp:

Aug 2, 2025, 5:32:18 PM (2 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

File:

• trunk/LMDZ.VENUS/libf/phyvenus/clmain.F (modified) (4 diffs)

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

@@ -39 +39 @@
       use cpdet_phy_mod, only: t2tpot
       use turb_mod, only :yustar
+      use soil_mod, only: nsoilmx
       use clesphys_mod
       
@@ -77 +78 @@
 cAA la premiere couche
 c======================================================================
-c$$$ PB ajout pour soil
-      include "dimsoil.h"
       include "iniprint.h"
-c      include "clesphys.h"
       include "compbl.h"
 c
@@ -485 +483 @@
       use interface_surf, only: interfsurf_hq
       use dimphy, only: klon, klev
+      use soil_mod, only: nsoilmx
       use mod_grid_phy_lmdz, only: nbp_lon, nbp_lat, nbp_lev
       use cpdet_phy_mod, only: t2tpot,tpot2t,cpdet
@@ -494 +493 @@
 c======================================================================
       include "YOMCST.h"
-      include "dimsoil.h"
       include "iniprint.h"