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

Last change on this file since 3989 was 3989, checked in by jbclement, 7 days ago

PEM:
Massive structural refactor of the PEM codebase for improved readability, consistency and maintainability. The goal is to modernize, standardize and consolidate the code while removing legacy complexity. In detail, this change:

  • Performs large-scale cleanup removing unused code, obsolete routines, duplicated functionality and deprecated initialization logic;
  • Removes "*_mod" wrappers;
  • Replaces mixed naming conventions with clearer variable names, domain-based file/module names and purpose-based routine names;
  • Adds native reading/writing capabilities to the PEM removing the cumbersome dependency on Mars PCM subroutines;
  • Centralizes soil/ice/orbital/PEM configuration logic into dedicated modules;
  • Simplifies routines and updates calls/interfaces to match the new structure.

This refactor significantly clarifies the codebase and provides a cleaner foundation for forthcoming developments.
JBC
File size: 1.9 KB
Line 
1MODULE constants_marspem_mod
2
3implicit none
4
5! Duration of a year and day
6integer, parameter :: sols_per_my = 669    ! Number of sols per year
7real,    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
10real, parameter :: m_co2 = 44.01e-3    ! CO2 molecular mass (kg/mol)
11real, parameter :: m_noco2 = 33.37e-3  ! Non condensible mol mass (kg/mol)
12real, 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
15real, parameter :: alpha_clap_co2 = 23.3494 ! Uniteless, James et al. 1992
16real, 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
19real, parameter :: alpha_clap_h2o = 28.9074 ! Uniteless, Murphy and Koop 2005
20real, 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)
23real, 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
26real, parameter :: TI_regolith_avg = 250. ! Averaged of the observed thermal inertia for regolith following Mellon et al., 2000[SI]
27real, parameter :: TI_breccia = 750.      ! Thermal inertia of Breccia following Wood 2009 [SI]
28real, parameter :: TI_bedrock = 2300.     ! Thermal inertia of Bedrock following Wood 2009 [SI]
29
30! Porosity of the soil
31real, 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
34real, parameter :: sigmaB = 5.678e-8
35
36! Latent heat of CO2
37real, parameter :: Lco2 =  5.71e5 ! Pilorget and Forget 2016
38
39END MODULE constants_marspem_mod
Note: See TracBrowser for help on using the repository browser.