Changeset 3338 for trunk/LMDZ.MARS

Timestamp:

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

Author:

jbclement

Message:

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

Location:

trunk/LMDZ.MARS

Files:

• changelog.txt (modified) (2 diffs)
• libf/phymars/phyredem.F90 (modified) (2 diffs)

trunk/LMDZ.MARS/changelog.txt

@@ -4636 +4636 @@
 
 == 21/05/2024 == JBC
-Addition of the paleoclimate variables in the change the number of slopes by "newtart.F" + some simplifications of the way it is done.
+Addition of the paleoclimate variables in the change of the number of slopes by "newstart.F" + some simplifications of the way it is done.
 
 == 21/05/2024 == JN
@@ -4643 +4643 @@
 Also nsubtimestep is now stored in diagfi at the end of the subtimestep for
 clarity of the code.
+
+== 21/05/2024 == JBC
+Addition of the paleoclimate variable 'd_coef' in the writing of the "restartfi.nc" file.

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