source: trunk/LMDZ.COMMON/libf/evolution/constants_marspem_mod.F90 @ 2998

Last change on this file since 2998 was 2998, checked in by llange, 16 months ago

MARS PEM

  • Fix some bug in water conservations (transfer from watercap to waterreservoir was wrong)
  • Add the H2O glaciers in the main program.
  • Add the distinction between co2 frost (qsurf) and perenial co2 ice. Will be developed in the Mars PCM in a future commit
  • Thickness thresolhd to pass from frost to glaciers is now not harcoded but a constant fixed in the mars_pem_constants

LL
File size: 2.3 KB
Line 
1    MODULE constants_marspem_mod
2
3
4    IMPLICIT NONE
5! Duration of a year and day
6      INTEGER,PARAMETER :: sols_per_my =669 ! Number of Sols per year
7      REAL, PARAMETER :: sec_per_sol=88775.  ! Duration of a sol, in seconds
8
9! Molecular masses for CO2,H2O and non condensible gaz, following Franz et al. 2017   
10      REAL,PARAMETER :: m_co2 = 44.01E-3  ! CO2 molecular mass (kg/mol)   
11      REAL,PARAMETER :: m_noco2 = 33.37E-3  ! Non condensible mol mass (kg/mol)   
12      REAL,PARAMETER :: m_h2o = 18.01528E-3      ! Molecular weight of h2o (kg/mol)
13
14!     Coefficient for Clapeyron law for CO2 condensation temperature (Tco2 = beta/(alpha-log(vmr)),following James et al. 1992
15      REAL,PARAMETER :: alpha_clap_co2 = 23.3494  !Uniteless,James et al. 1992
16      REAL,PARAMETER :: beta_clap_co2 = 3182.48   !Kelvin, James et al. 1992
17
18!     Coefficient for Clapeyron law for psat (psat = exp(beta/Th2o+alpha)),following Murphy and Koop 2005
19      REAL,PARAMETER :: alpha_clap_h2o = 28.9074  ! Uniteless, Murphy and Koop 2005
20      REAL,PARAMETER :: beta_clap_h2o = -6143.7   ! Kelvin, Murphy and Koop 2005
21
22!     Density of the regolith (Zent et al., 1995, Buhler and Piqueux 2021)     
23      REAL,PARAMETER ::  rho_regolith = 2000.     ! kg/m^3
24
25!     Average  Thermal inertia of the surface, breccia, bedrock, following Mellon et al., 2000., Wood et al., 2008
26      REAL,PARAMETER :: TI_regolith_avg = 250.        ! Averaged of the observed thermal inertia for regolith following Mellon et al., 2000[SI]
27      REAL,PARAMETER :: TI_breccia = 750.             ! Thermal inertia of Breccia following Wood 2009 [SI]
28      REAL,PARAMETER :: TI_bedrock = 2300.            ! Thermal inertia of Bedrock following Wood 2009 [SI]
29
30!     Porosity of the soil
31      REAL,PARAMETER :: porosity = 0.4                ! porosity of the martian soil, correspond to the value for a random loose packing of monodiperse sphere (Scott, 1960)
32
33!     Stefan Boltzmann constant
34      REAL,PARAMETER :: sigmaB=5.678E-8
35
36!     Latent heat of CO2
37      REAL,PARAMETER ::  Lco2 =  5.71E5                ! Pilorget and Forget 2016
38
39! Conversion H2O/CO2 frost to perenial frost and vice versa
40      REAL,PARAMETER :: threshold_water_frost2perenial = 1000. !~ 1m
41      REAL,PARAMETER :: threshold_co2_frost2perenial = 3200.   !~ 2m
42
43
44     
45    END MODULE constants_marspem_mod
46
Note: See TracBrowser for help on using the repository browser.