Changeset 3338 for trunk/LMDZ.MARS/libf/phymars

Timestamp:

May 21, 2024, 6:17:37 PM (19 months ago)

Author:

jbclement

Message:

Mars PCM:
Addition of the paleoclimate variable 'd_coef' in the writing of the "restartfi.nc" file.
JBC

File:

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

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

@@ -28 +28 @@
   use time_phylmdz_mod, only: daysec
   use comslope_mod, ONLY: nslope
-  USE paleoclimate_mod, ONLY: paleoclimate, h2o_ice_depth, lag_co2_ice
+  USE paleoclimate_mod, ONLY: paleoclimate, h2o_ice_depth, lag_co2_ice, d_coef
 
   implicit none
@@ -157 +157 @@
     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("d_coef","Diffusion coefficent",d_coef)
   endif