Index: trunk/LMDZ.VENUS/libf/phyvenus/clmain.F
===================================================================
--- trunk/LMDZ.VENUS/libf/phyvenus/clmain.F	(revision 3875)
+++ trunk/LMDZ.VENUS/libf/phyvenus/clmain.F	(revision 3877)
@@ -39,4 +39,5 @@
       use cpdet_phy_mod, only: t2tpot
       use turb_mod, only :yustar
+      use soil_mod, only: nsoilmx
       use clesphys_mod
       
@@ -77,8 +78,5 @@
 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,4 +483,5 @@
       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,5 +493,4 @@
 c======================================================================
       include "YOMCST.h"
-      include "dimsoil.h"
       include "iniprint.h"
 
Index: trunk/LMDZ.VENUS/libf/phyvenus/clmain_ideal.F
===================================================================
--- trunk/LMDZ.VENUS/libf/phyvenus/clmain_ideal.F	(revision 3875)
+++ trunk/LMDZ.VENUS/libf/phyvenus/clmain_ideal.F	(revision 3877)
@@ -30,4 +30,5 @@
       use dimphy
       use mod_grid_phy_lmdz, only: nbp_lev
+      use soil_mod, only: nsoilmx
       use clesphys_mod
       IMPLICIT none
@@ -61,8 +62,5 @@
 cAA la premiere couche
 c======================================================================
-c$$$ PB ajout pour soil
-#include "dimsoil.h"
 #include "iniprint.h"
-c#include "clesphys.h"
 #include "compbl.h"
 c
Index: trunk/LMDZ.VENUS/libf/phyvenus/dimsoil.h
===================================================================
--- trunk/LMDZ.VENUS/libf/phyvenus/dimsoil.h	(revision 3875)
+++ 	(revision )
@@ -1,5 +1,0 @@
-!
-! $Header: /home/cvsroot/LMDZ4/libf/phylmd/dimsoil.h,v 1.1.1.1 2004/05/19 12:53:08 lmdzadmin Exp $
-!
-      INTEGER nsoilmx
-      PARAMETER (nsoilmx=11)
Index: trunk/LMDZ.VENUS/libf/phyvenus/dyn1d/rcm1d.F
===================================================================
--- trunk/LMDZ.VENUS/libf/phyvenus/dyn1d/rcm1d.F	(revision 3875)
+++ trunk/LMDZ.VENUS/libf/phyvenus/dyn1d/rcm1d.F	(revision 3877)
@@ -21,4 +21,5 @@
       USE clesphys_mod
       USE comcstfi_mod
+      USE soil_mod, ONLY: nsoilmx
       USE tabcontrol_mod, ONLY: dtime, radpas
       IMPLICIT NONE
@@ -43,8 +44,7 @@
 c=======================================================================
 
-#include "dimensions.h"
-#include "dimsoil.h"
-#include "netcdf.inc"
-#include "iniprint.h"
+      include "dimensions.h"
+      include "netcdf.inc"
+      include "iniprint.h"
 
 c --------------------------------------------------------------
Index: trunk/LMDZ.VENUS/libf/phyvenus/interface_surf.F90
===================================================================
--- trunk/LMDZ.VENUS/libf/phyvenus/interface_surf.F90	(revision 3875)
+++ trunk/LMDZ.VENUS/libf/phyvenus/interface_surf.F90	(revision 3877)
@@ -47,4 +47,5 @@
       use write_field_phy
       use cpdet_phy_mod, only: cpdet
+      use soil_mod, only: soil
 
       IMPLICIT none
Index: trunk/LMDZ.VENUS/libf/phyvenus/phyetat0.F90
===================================================================
--- trunk/LMDZ.VENUS/libf/phyvenus/phyetat0.F90	(revision 3875)
+++ trunk/LMDZ.VENUS/libf/phyvenus/phyetat0.F90	(revision 3877)
@@ -22,10 +22,8 @@
                                 east_gwstress, west_gwstress
   use tabcontrol_mod, only: dtime, radpas, length, tabcntr0
+  use soil_mod, only: nsoilmx
   use clesphys_mod
 
 implicit none
-!======================================================================
-include "dimsoil.h"
-!======================================================================
 
 character(len=*),intent(in) :: fichnom ! input file name
@@ -44,5 +42,4 @@
   call open_startphy(fichnom)
 endif
-
 !
 ! Load control parameters:
Index: trunk/LMDZ.VENUS/libf/phyvenus/phyredem.F90
===================================================================
--- trunk/LMDZ.VENUS/libf/phyvenus/phyredem.F90	(revision 3875)
+++ trunk/LMDZ.VENUS/libf/phyvenus/phyredem.F90	(revision 3877)
@@ -17,14 +17,8 @@
   use age_of_air_mod, only: ok_aoa
   use tabcontrol_mod, only: dtime, radpas, length
+  use soil_mod, only: nsoilmx
   use clesphys_mod
   
   implicit none
-!======================================================================
-! Auteur(s) Z.X. Li (LMD/CNRS) date: 19930818
-! Objet: Lecture de l'etat initial pour la physique
-!======================================================================
-!include "netcdf.inc"
-include "dimsoil.h"
-!======================================================================
 
 character(len=*),intent(in) :: fichnom
Index: trunk/LMDZ.VENUS/libf/phyvenus/phys_state_var_mod.F90
===================================================================
--- trunk/LMDZ.VENUS/libf/phyvenus/phys_state_var_mod.F90	(revision 3875)
+++ trunk/LMDZ.VENUS/libf/phyvenus/phys_state_var_mod.F90	(revision 3877)
@@ -125,6 +125,7 @@
 SUBROUTINE phys_state_var_init(nqmax)
 
+USE soil_mod, ONLY: nsoilmx
+
 IMPLICIT NONE
-include "dimsoil.h"
 
       integer :: nqmax
Index: trunk/LMDZ.VENUS/libf/phyvenus/physiq_mod.F
===================================================================
--- trunk/LMDZ.VENUS/libf/phyvenus/physiq_mod.F	(revision 3875)
+++ trunk/LMDZ.VENUS/libf/phyvenus/physiq_mod.F	(revision 3877)
@@ -85,4 +85,5 @@
       use iono_h, only: temp_elect, temp_ion
       use tabcontrol_mod, only: radpas, dtime
+      use soil_mod, only: nsoilmx
       use clesphys_mod
 #ifdef CPP_XIOS      
@@ -115,5 +116,4 @@
 #endif
 c======================================================================
-#include "dimsoil.h"
 #include "iniprint.h"
 #include "timerad.h" 
Index: trunk/LMDZ.VENUS/libf/phyvenus/soil.F
===================================================================
--- trunk/LMDZ.VENUS/libf/phyvenus/soil.F	(revision 3875)
+++ trunk/LMDZ.VENUS/libf/phyvenus/soil.F	(revision 3877)
@@ -1,5 +1,10 @@
-!
-! $Header: /home/cvsroot/LMDZ4/libf/phylmd/soil.F,v 1.1.1.1 2004/05/19 12:53:09 lmdzadmin Exp $
-!
+      MODULE soil_mod
+      
+      IMPLICIT NONE
+      
+      INTEGER,PARAMETER :: nsoilmx=11 ! number of sub-surface soil layers
+      
+      CONTAINS
+
       SUBROUTINE soil(ptimestep, knon, ptsrf, ptsoil,
      s          pcapcal, pfluxgrd)
@@ -50,6 +55,4 @@
       IMPLICIT NONE
       include "YOMCST.h"
-      include "dimsoil.h"
-c      include "clesphys.h"
 
 c-----------------------------------------------------------------------
@@ -230,3 +233,5 @@
 
       
-      END
+      END SUBROUTINE soil
+      
+      END MODULE soil_mod