Changeset 4157 for trunk/LMDZ.COMMON/libf/evolution/backup.F90

Timestamp:

Mar 26, 2026, 4:29:10 PM (12 days ago)

Author:

jbclement

Message:

PEM:

• Separate variables ownership between the module "planet" for persistent climate state and the program "pem" for transient workflow logic. It provides a meaningful structure.
• Add lifecycle helpers for clear allocation/deallocation logic.
• Simplify string suffix for slopes variables.

JBC

File:

• trunk/LMDZ.COMMON/libf/evolution/backup.F90 (modified) (3 diffs)

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

@@ -95 +95 @@
 use atmosphere,       only: build4PCM_atmosphere
 use tracers,          only: build4PCM_tracers, nq
-use clim_state_rec,   only: write_restart, write_restartfi, write_restartpem
+use clim_state_rec,   only: write_restart, write_restartfi, write_restartevo
 use layered_deposits, only: layering
 
@@ -143 +143 @@
 
 ! Write restart files
-call write_restartpem(h2o_ice,co2_ice,tsoil_avg,TI,icetable_depth,icetable_thickness,ice_porefilling,h2o_ads_reg,co2_ads_reg,layerings_map)
+call write_restartevo(h2o_ice,co2_ice,tsoil_avg,TI,icetable_depth,icetable_thickness,ice_porefilling,h2o_ads_reg,co2_ads_reg,layerings_map)
 call write_restartfi(is_h2o_perice,h2o_ice4PCM,co2_ice4PCM,tsurf4PCM,tsoil4PCM,inertiesoil4PCM,albedo4PCM,emissivity4PCM,flux_geo4PCM)
 call write_restart(ps4PCM,pa4PCM,preff4PCM,q4PCM,teta4PCM,air_mass4PCM)
@@ -191 +191 @@
 ! CODE
 ! ----
-suffix = '_ts'//int2str(backup_idt)
+suffix = ''
+suffix = suffix//'_ts'//int2str(backup_idt)
 
 call print_msg('> Backup of "restart" files at dt = '//int2str(backup_idt),LVL_NFO)