Changeset 3553 for trunk/LMDZ.COMMON/libf/evolution/glaciers_mod.F90

Timestamp:

Dec 16, 2024, 5:30:48 PM (6 days ago)

Author:

jbclement

Message:

PEM:
Addition of the shifting of the soil temperature profile to follow the surface evolution due to ice condensation/sublimation + small cleanings/improvements.
JBC

File:

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

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

@@ -10 +10 @@
 
 ! Thresholds for ice management
-real, save :: inf_h2oice_threshold   ! To consider the amount of H2O ice as an infinite reservoir [kg.m-2]
-real, save :: metam_h2oice_threshold ! To consider frost is becoming perennial H2O ice [kg.m-2]
-real, save :: metam_co2ice_threshold ! To consider frost is becoming perennial CO2 ice [kg.m-2]
+real :: inf_h2oice_threshold   ! To consider the amount of H2O ice as an infinite reservoir [kg.m-2]
+real :: metam_h2oice_threshold ! To consider frost is becoming perennial H2O ice [kg.m-2]
+real :: metam_co2ice_threshold ! To consider frost is becoming perennial CO2 ice [kg.m-2]
+
+real, parameter :: rho_co2ice = 1650. ! Density of CO2 ice [kg.m-3]
+real, parameter :: rho_h2oice = 920.  ! Density of H2O ice [kg.m-3]
 
 !=======================================================================