Changeset 3581 for trunk/LMDZ.MARS/libf/phymars/surfdat_h.F90

Timestamp:

Jan 15, 2025, 6:35:44 PM (2 weeks ago)

Author:

jbclement

Message:

Mars PCM:

• Deletion of the variable 'albedo_co2_cap' which was redundant with 'albedo_perennialco2'.
• 'albedo_perennialco2' is now a vector of dimension 2 to account for different albedos of CO2 ice between the northern and southern hemispheres (by default 0.6 and 0.85 respectively).

JBC

File:

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

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

@@ -4 +4 @@
   real,save,allocatable :: albedodat(:) ! albedo of bare ground
   real,save,allocatable :: phisfi(:) ! geopotential at ground level
-  real,save :: albedice(2) ! default albedo for ice (1: North H. 2: South H.)
-  real,save :: emisice(2) ! ice emissivity; 1:Northern hemisphere 2:Southern hemisphere
+  real, dimension(2) :: albedice ! default albedo for ice (1:Northern hemisphere 2:Southern hemisphere)
+  real, dimension(2) :: emisice ! ice emissivity (1:Northern hemisphere 2:Southern hemisphere)
   real,save :: emissiv ! emissivity of bare ground
   logical,save :: TESicealbedo ! use TES ice cap albedoes (if set to .true.)