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

Timestamp:

Mar 26, 2026, 4:29:10 PM (2 weeks 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/clim_state_rec.F90 (modified) (5 diffs)

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

@@ -25 +25 @@
 ! VARIABLES
 ! ---------
-logical(k4), protected, private :: is_restartpem = .false. ! Flag to know if "restartevo.nc" exists
+logical(k4), protected, private :: is_restartevo = .false. ! Flag to know if "restartevo.nc" exists
 
 contains
@@ -271 +271 @@
 
 !=======================================================================
-SUBROUTINE create_nc_pem(nb_str_max)
+SUBROUTINE create_startevo(nb_str_max)
 !-----------------------------------------------------------------------
 ! NAME
-!     create_nc_pem
+!     create_startevo
 !
 ! DESCRIPTION
@@ -414 +414 @@
 
 ! File creation done
-is_restartpem = .true.
-
-END SUBROUTINE create_nc_pem
-!=======================================================================
-
-!=======================================================================
-SUBROUTINE write_restartpem(h2o_ice,co2_ice,tsoil,TI,icetable_depth,icetable_thickness,ice_porefilling,h2o_ads_reg,co2_ads_reg,layerings_map)
+is_restartevo = .true.
+
+END SUBROUTINE create_startevo
+!=======================================================================
+
+!=======================================================================
+SUBROUTINE write_restartevo(h2o_ice,co2_ice,tsoil,TI,icetable_depth,icetable_thickness,ice_porefilling,h2o_ads_reg,co2_ads_reg,layerings_map)
 !-----------------------------------------------------------------------
 ! NAME
-!    write_restartpem
+!    write_restartevo
 !
 ! DESCRIPTION
@@ -466 +466 @@
 ! Create the file
 nb_str_max = get_nb_str_max(layerings_map)
-call create_nc_pem(nb_str_max)
+call create_startevo(nb_str_max)
 
 call print_msg('> Writing "re'//startevo_name//'"',LVL_NFO)
-if (.not. is_restartpem) call stop_clean(__FILE__,__LINE__,'The file"'//startevo_name//'" has not been created',1)
+if (.not. is_restartevo) call stop_clean(__FILE__,__LINE__,'The file"'//startevo_name//'" has not been created',1)
 
 ! Writing time counter
@@ -510 +510 @@
 call close_nc('re'//startevo_name)
 
-END SUBROUTINE write_restartpem
+END SUBROUTINE write_restartevo
 !=======================================================================