Changeset 3877 for trunk/LMDZ.VENUS/libf/phyvenus/soil.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/soil.F (modified) (3 diffs)

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

@@ -1 @@
-!
-! $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 +55 @@
       IMPLICIT NONE
       include "YOMCST.h"
-      include "dimsoil.h"
-c      include "clesphys.h"
 
 c-----------------------------------------------------------------------
@@ -230 +233 @@
 
       
-      END
+      END SUBROUTINE soil
+      
+      END MODULE soil_mod