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

Timestamp:

Apr 18, 2023, 3:16:47 PM (19 months ago)

Author:

llange

Message:

PEM
Modification in recomp_tend_co2_slope. The emissivity of ice was assumed to be 0.95, but it can be lower. It is now set to the values given by the PCM
Remove unused variables (n_1km)

LL

File:

• trunk/LMDZ.COMMON/libf/evolution/constants_marspem_mod.F90 (modified) (1 diff)

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

@@ -3 +3 @@
 
     IMPLICIT NONE
-
+! 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)   
-       REAL,PARAMETER :: m_h2o = 18.01528E-3      ! Molecular weight of h2o (kg/mol)
+      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)
 
 !     Coefficient for Clapeyron law for CO2 condensation temperature (Tco2 = beta/(alpha-log(vmr)),following James et al. 1992