Changeset 3703 for trunk/LMDZ.COMMON/libf/evolution/layering_mod.F90

Timestamp:

Apr 1, 2025, 10:09:29 AM (3 months ago)

Author:

evos

Message:

Changing the paramters of the PEM to be more realistic and to work with the layering

File:

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

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

@@ -20 +20 @@
 ! Physical parameters
 real, parameter :: d_dust = 5.78e-2             ! Tendency of dust [kg.m-2.y-1]
-real, parameter :: dry_lag_porosity = 0.5       ! Porosity of dust lag
-real, parameter :: dry_regolith_porosity = 0.45 ! Porosity of regolith
-real, parameter :: co2ice_porosity = 0.3        ! Porosity of CO2 ice
-real, parameter :: h2oice_porosity = 0.3        ! Porosity of H2O ice
+real, parameter :: dry_lag_porosity = 0.4       ! Porosity of dust lag
+real, parameter :: dry_regolith_porosity = 0.4 ! Porosity of regolith
+real, parameter :: co2ice_porosity = 0        ! Porosity of CO2 ice
+real, parameter :: h2oice_porosity = 0        ! Porosity of H2O ice
 real, parameter :: rho_dust = 2500.             ! Density of dust [kg.m-3]
 real, parameter :: rho_rock = 3200.             ! Density of rock [kg.m-3]
 
 ! Lag layer parameters -> see Levrard et al. 2007
-real, parameter :: hmin_lag = 0.5  ! Minimal height of the lag deposit to reduce the sublimation rate
-real, parameter :: fred_subl = 0.1 ! Reduction factor of sublimation rate
+real, parameter :: hmin_lag = 0  ! Minimal height of the lag deposit to reduce the sublimation rate
+real, parameter :: fred_subl = 0 ! Reduction factor of sublimation rate
 
 ! Stratum = node of the linked list