Changeset 3638 for trunk/LMDZ.COMMON/libf/evolution

Timestamp:

Feb 20, 2025, 6:09:10 PM (5 months ago)

Author:

jbclement

Message:

PEM:
Small cleanings.
JBC

Location:

trunk/LMDZ.COMMON/libf/evolution

Files:

• changelog.txt (modified) (1 diff)
• deftank/PEMrun.job (modified) (1 diff)
• layering_mod.F90 (modified) (1 diff)
• pem.F90 (modified) (2 diffs)

trunk/LMDZ.COMMON/libf/evolution/changelog.txt

@@ -600 +600 @@
 == 19/02/2025 == JBC
 Few small adjustments in the script files.
+
+== 20/02/2025 == JBC
+Small cleanings.

trunk/LMDZ.COMMON/libf/evolution/deftank/PEMrun.job

@@ -11 +11 @@
 #SBATCH --output=jobPEM_%j.out
 #SBATCH --time=24:00:00
-#SBATCH --mem=29000M
+#SBATCH --mem=64G
 
 ########################################################################

trunk/LMDZ.COMMON/libf/evolution/layering_mod.F90

@@ -28 +28 @@
 
 ! Lag layer parameters -> see Levrard et al. 2007
-real, parameter :: hmin_lag = 0.5  ! Minimal height of the lag deposit to reduce the sblimation rate
+real, parameter :: hmin_lag = 0.5  ! Minimal height of the lag deposit to reduce the sublimation rate
 real, parameter :: fred_subl = 0.1 ! Reduction factor of sublimation rate
 

trunk/LMDZ.COMMON/libf/evolution/pem.F90

@@ -72 +72 @@
 use dyn_ss_ice_m_mod,           only: dyn_ss_ice_m
 use version_info_mod,           only: print_version_info
+use paleoclimate_mod,           only: h2o_ice_depth, zdqsdif_ssi_tot
 
 #ifndef CPP_STD
@@ -1296 +1297 @@
 write(*,*) '######### PEM finalization #########'
 write(*,'(a,f10.2,a)') " + The PEM leg has run for ", i_myear_leg, " Martian years."
-write(*,'(a,f10.2,a,f10.2,a)') " + The chained simulation has run for ", i_myear, " Martian years =", i_myear*convert_years, "Earth years."
+write(*,'(a,f10.2,a,f10.2,a)') " + The chained simulation has run for ", i_myear, " Martian years =", i_myear*convert_years, " Earth years."
 write(*,'(a,f10.2,a)') " + The reached date is now ", (year_bp_ini + i_myear)*convert_years, " Earth years."
 write(*,*) "+ PEM: so far, so good!"