Changeset 4160 for trunk/LMDZ.MARS/libf/phymars/phyredem.F90

Timestamp:

Mar 31, 2026, 3:38:07 PM (10 days ago)

Author:

jbclement

Message:

Mars PCM:
Giving standard explicit names to variables related to "paleoclimate" module + adding yearly average of flux exchanged with subsurface ice in XIOS output file intended for the PEM.
JBC

File:

• trunk/LMDZ.MARS/libf/phymars/phyredem.F90 (modified) (2 diffs)

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

@@ -210 +210 @@
   use callkeys_mod,        only: calltherm, dustinjection, calllott_nonoro
   use callkeys_mod, only: CLFvarying
-  use paleoclimate_mod,    only: paleoclimate, h2o_ice_depth, lag_co2_ice, d_coef, zdqsdif_ssi_tot
+  use paleoclimate_mod,    only: paleoclimate, h2oice_depth, co2ice_depth, coef_ssdif, zdqsdif_ssi_tot
 
   implicit none
@@ -388 +388 @@
   ! Paleoclimate
   if (paleoclimate) then
-    call put_field("h2o_ice_depth","Depth to the fisrt H2O ice",h2o_ice_depth)
-    call put_field("lag_co2_ice","Depth of the CO2 lags",lag_co2_ice)
-    call put_field("zdqsdif_ssi_tot","Total flux with SSI",zdqsdif_ssi_tot)
-    call put_field("d_coef","Diffusion coefficent",d_coef)
+    call put_field("h2oice_depth","Depth of the shallowest H2O ice layer",h2oice_depth)
+    call put_field("co2ice_depth","Depth of the shallowest CO2 ice layer",co2ice_depth)
+    call put_field("flux_ssice","Total flux exchanged with subsurface water ice",zdqsdif_ssi_tot)
+    call put_field("coef_ssdif","Diffusion coefficent for subsurface water",coef_ssdif)
   endif