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

Timestamp:

Dec 14, 2023, 6:56:40 PM (11 months ago)

Author:

jbclement

Message:

PEM:

• A number of corrections related to r3149 for CO2 ice management:

  'co2_ice' was not transferred to 'perennial_co2ice' at the end of the PEM run;
  In the Mars PCM, 'perennial_co2ice' is now correctly handled regarding the frost in case of CO2 sublimation/condensation.
  

• Addition of (CO2 and H2O) ice metamorphism: if the frost is above a given value, then the excess frost is transferred to the perennial ice.
• Thresholds value for ice management can now be set in the "run_PEM.def".

JBC

File:

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

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

@@ -37 +37 @@
 real, parameter :: Lco2 =  5.71e5 ! Pilorget and Forget 2016
 
-! Threshold to consider the amount of H2O ice as an infinite reservoir
-real, parameter :: inf_h2oice_threshold = 2000.  !~ 1 m
+! Thresholds for ice management
+real, save :: inf_h2oice_threshold   ! To consider the amount of H2O ice as an infinite reservoir
+real, save :: metam_h2oice_threshold ! To consider frost is becoming perennial H2O ice
+real, save :: metam_co2ice_threshold ! To consider frost is becoming perennial CO2 ice
 
 END MODULE constants_marspem_mod