Changeset 3130 for trunk/LMDZ.MARS/libf/phymars/conf_phys.F

Timestamp:

Nov 20, 2023, 1:25:31 PM (12 months ago)

Author:

jbclement

Message:

PEM:
The perennial co2 ice is now taken into account with co2 frost (qsurf) to compute the tendency and to make the update + Rework of how co2 frost is converted to perennial co2 ice at the end of the PEM run + Correction of the value of 'threshold_co2_frost2perennial' to correspond to 10 m + Perennial co2 ice is now handled outside 'paleoclimate' in "phyetat0_mod.F90" of the Mars PCM + Some cleanings.

/!\ Commit for the PEM management of co2 ice before a rework of ice management in the PEM!
JBC

File:

• trunk/LMDZ.MARS/libf/phymars/conf_phys.F (modified) (2 diffs)

trunk/LMDZ.MARS/libf/phymars/conf_phys.F

@@ -37 +37 @@
       use aeropacity_mod, only: iddist, topdustref
       USE mod_phys_lmdz_transfert_para, ONLY: bcast
-      USE paleoclimate_mod,ONLY: paleoclimate,albedo_perenialco2,
+      USE paleoclimate_mod,ONLY: paleoclimate,albedo_perennialco2,
      &                           lag_layer 
       use microphys_h, only: mteta
@@ -351 +351 @@
 
 
-         write(*,*)"Albedo for perenial CO2 ice?"
-         albedo_perenialco2 = 0.85 ! default value
-         call getin_p("albedo_perenialco2",albedo_perenialco2)
-         write(*,*)"albedo_perenialco2 = ",albedo_perenialco2
+         write(*,*)"Albedo for perennial CO2 ice?"
+         albedo_perennialco2 = 0.85 ! default value
+         call getin_p("albedo_perennialco2",albedo_perennialco2)
+         write(*,*)"albedo_perennialco2 = ",albedo_perennialco2
 
 ! TRACERS: