Changeset 2999 for trunk/LMDZ.MARS/libf/phymars/paleoclimate_mod.F90

Timestamp:

Jul 19, 2023, 11:40:38 AM (17 months ago)

Author:

llange

Message:

Mars PCM
Include perenial_co2ice (equivalent of watercap) to distinguich between CO2 frost and perenial CO2 ice for paleoclimate studies.
When no frost is present and we dig into perenial ice, the surface albedo is changed. The albedo for seasonal ice is set to 0.65, and the perenial ice albedo can be fixed in the callphys.def. I recommand values between 0.8 and 0.9.
To use this, paleoclimate must be set to True and TESalbedo to false in the callphys.def. Else, it runs as usual with TES albedo
LL

File:

• trunk/LMDZ.MARS/libf/phymars/paleoclimate_mod.F90 (modified) (1 diff)

trunk/LMDZ.MARS/libf/phymars/paleoclimate_mod.F90

@@ -11 +11 @@
     IMPLICIT NONE
 
-    LOGICAL :: paleoclimate                        ! False by default, is activate for paleoclimates specific processes (e.g., lag layer)
+    LOGICAL :: paleoclimate                        ! False by default, is activate  for paleoclimates specific processes (e.g., lag layer)
     real, save, allocatable :: lag_h2o_ice(:,:)  ! Thickness of the lag before H2O ice [m]
     real, save, allocatable :: lag_co2_ice(:,:)  ! Thickness of the lag before CO2 ice [m]
-
+    real, save :: albedo_perenialco2             ! Albedo for perenial co2 ice [1]
     CONTAINS