Changeset 2961 for trunk/LMDZ.COMMON/libf/evolution/constants_marspem_mod.F90

Timestamp:

May 9, 2023, 12:18:41 PM (19 months ago)

Author:

llange

Message:

PEM

• Move math functions (findroot, deriv, etc) in a specific module
• Ice table is no longer infinite, the bottom of the ice table (zend) is set such at d(rho_vap) dz (zend) = 0. Future commit will transfer the loss of ice table to perenial glaciers

LL

File:

• trunk/LMDZ.COMMON/libf/evolution/constants_marspem_mod.F90 (modified) (2 diffs)

trunk/LMDZ.COMMON/libf/evolution/constants_marspem_mod.F90

@@ -28 +28 @@
       REAL,PARAMETER :: TI_bedrock = 2300.            ! Thermal inertia of Bedrock following Wood 2009 [SI]
 
+!     Porosity of the soil
+      REAL,PARAMETER :: porosity = 0.4                ! porosity of the martian soil, correspond to the value for a random loose packing of monodiperse sphere (Scott, 1960)
+
 !     Stefan Boltzmann constant
       REAL,PARAMETER :: sigmaB=5.678E-8 
@@ -35 +38 @@
 
 
+      
     END MODULE constants_marspem_mod