Changeset 3582 for trunk/LMDZ.MARS/libf/phymars/albedocaps.F90

Timestamp:

Jan 16, 2025, 9:50:10 AM (2 weeks ago)

Author:

jbclement

Message:

Mars PCM:

• Correction of r3581: the key-words to get 'albedo_perennialco2(1:2)" from the "callphys.def" are now 'albedo_perennialco2_north' and 'albedo_perennialco2_south'.
• Moving 'albedo_perennialco2' from the 'paleoclimate' module to the 'surfdat_h' module.

JBC

File:

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

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

@@ -6 +6 @@
 use ioipsl_getin_p_mod, only: getin_p
 use geometry_mod, only: latitude ! grid point latitudes (rad)
-use surfdat_h, only: TESicealbedo, TESice_Ncoef, TESice_Scoef, &
+use surfdat_h, only: TESicealbedo, TESice_Ncoef, TESice_Scoef,       &
                      emisice, albedice, watercaptag, albedo_h2o_cap, &
-                     emissiv, albedodat
+                     emissiv, albedodat, albedo_perennialco2
 USE mod_phys_lmdz_transfert_para, ONLY: bcast
 USE mod_phys_lmdz_para, ONLY: is_master
-USE paleoclimate_mod, ONLY: paleoclimate, albedo_perennialco2
+USE paleoclimate_mod, ONLY: paleoclimate
 
 implicit none