[2944] | 1 | MODULE constants_marspem_mod |
---|
| 2 | |
---|
| 3 | |
---|
| 4 | IMPLICIT NONE |
---|
[2945] | 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 |
---|
[2944] | 8 | |
---|
| 9 | ! Molecular masses for CO2,H2O and non condensible gaz, following Franz et al. 2017 |
---|
[2945] | 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) |
---|
[2944] | 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 | |
---|
[2965] | 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 |
---|
[2944] | 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 | |
---|
[2961] | 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 | |
---|
[2944] | 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 | |
---|
[2998] | 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 |
---|
[2944] | 42 | |
---|
[2998] | 43 | |
---|
[2961] | 44 | |
---|
[2944] | 45 | END MODULE constants_marspem_mod |
---|
| 46 | |
---|