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

Timestamp:

Jan 25, 2024, 2:33:52 PM (10 months ago)

Author:

jbclement

Message:

PEM:

• Addition of a script "inipem_orbit.sh" in the deftank to modify the orbital parameters of a file "startfi.nc" according to the date set in the file "run_PEM.def" and data found in "obl_ecc_lsp.asc";
• Flow of glaciers is now computed only when there are slopes;
• Reversion to the name "diagpem.nc" for the PEM outputs (as decided) which was modified in r3171;
• Some small cleanings.

JBC

File:

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

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

@@ -3 +3 @@
 implicit none
 
-! Duration of a year and day 
+! Duration of a year and day
 integer, parameter :: sols_per_my = 669    ! Number of Sols per year
 real,    parameter :: sec_per_sol = 88775. ! Duration of a sol, in seconds
 
-! Molecular masses for CO2,H2O and non condensible gaz, following Franz et al. 2017    
-real, parameter :: m_co2 = 44.01e-3    ! CO2 molecular mass (kg/mol)   
-real, parameter :: m_noco2 = 33.37e-3  ! Non condensible mol mass (kg/mol)   
+! Molecular masses for CO2,H2O and non condensible gaz, following Franz et al. 2017
+real, parameter :: m_co2 = 44.01e-3    ! CO2 molecular mass (kg/mol)
+real, parameter :: m_noco2 = 33.37e-3  ! Non condensible mol mass (kg/mol)
 real, parameter :: m_h2o = 18.01528e-3 ! Molecular weight of h2o (kg/mol)
 
@@ -20 +20 @@
 real, parameter :: beta_clap_h2o = -6143.7  ! Kelvin, Murphy and Koop 2005
 
-! Density of the regolith (Zent et al., 1995, Buhler and Piqueux 2021)     
+! Density of the regolith (Zent et al., 1995, Buhler and Piqueux 2021)
 real, parameter :: rho_regolith = 2000. ! kg/m^3
 
@@ -32 +32 @@
 
 ! Stefan Boltzmann constant
-real, parameter :: sigmaB = 5.678e-8 
+real, parameter :: sigmaB = 5.678e-8
 
 ! Latent heat of CO2