Changeset 3989 for trunk/LMDZ.COMMON/libf/evolution/stop_pem.F90

Timestamp:

Dec 11, 2025, 12:56:05 PM (5 weeks ago)

Author:

jbclement

Message:

PEM:
Massive structural refactor of the PEM codebase for improved readability, consistency and maintainability. The goal is to modernize, standardize and consolidate the code while removing legacy complexity. In detail, this change:

• Performs large-scale cleanup removing unused code, obsolete routines, duplicated functionality and deprecated initialization logic;
• Removes "*_mod" wrappers;
• Replaces mixed naming conventions with clearer variable names, domain-based file/module names and purpose-based routine names;
• Adds native reading/writing capabilities to the PEM removing the cumbersome dependency on Mars PCM subroutines;
• Centralizes soil/ice/orbital/PEM configuration logic into dedicated modules;
• Simplifies routines and updates calls/interfaces to match the new structure.

This refactor significantly clarifies the codebase and provides a cleaner foundation for forthcoming developments.
JBC

File:

• trunk/LMDZ.COMMON/libf/evolution/stop_pem.F90 (moved) (moved from trunk/LMDZ.COMMON/libf/evolution/abort_pem_mod.F90) (3 diffs)

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

@@ -1 @@
-MODULE abort_pem_mod
+MODULE stop_pem
 
 implicit none
@@ -7 +7 @@
 !=======================================================================
 
-SUBROUTINE abort_pem(modname,message,ierr)
+!=======================================================================
+SUBROUTINE stop_clean(modname,message,ierr)
+! Stop the simulation cleanly, closing files and printing various comments
+! Inputs: modname = name of calling program
+!         message = stuff to print
+!         ierr    = severity of situation (= 0 normal)
 
 #ifdef CPP_IOIPSL
     use IOIPSL
 #else
-    ! if not using IOIPSL, we still need to use (a local version of) getin_dump
+    ! If not using IOIPSL, we still need to use (a local version of) getin_dump
     use ioipsl_getincom
 #endif
 
 #ifdef CPP_XIOS
-    use wxios ! ug Pour les sorties XIOS
+    use wxios ! For XIOS outputs
 #endif
 
@@ -24 +29 @@
 #include "iniprint.h"
 
-! Stop the simulation cleanly, closing files and printing various comments
-! Input: modname = name of calling program
-!        message = stuff to print
-!        ierr    = severity of situation (= 0 normal)
-character(len = *), intent(in) :: modname
-integer,            intent(in) :: ierr
-character(len = *), intent(in) :: message
+! Arguments
+!----------
+character(*), intent(in) :: modname
+integer,      intent(in) :: ierr
+character(*), intent(in) :: message
 
-!----- Code
-write(lunout,*) 'in abort_pem'
-
+! Code
+!-----
 #ifdef CPP_XIOS
-    CALL wxios_close() ! Fermeture propre de XIOS
+    CALL wxios_close() ! Closing XIOS properly
 #endif
 
 #ifdef CPP_IOIPSL
-    call histclo
-    call restclo
+    call histclo()
+    call restclo()
 #endif
 
-call getin_dump
-write(lunout,*) 'Stopping in ', modname
+call getin_dump()
+write(lunout,*) 'stop_pem: stopping in ', modname
 write(lunout,*) 'Reason = ', message
 if (ierr == 0) then
     write(lunout,*) 'Everything is cool!'
-    stop
+    error stop
 else
-    write(lunout,*) 'Houston, we have a problem, ierr =', ierr
-    stop 1
+    write(lunout,*) 'Houston, we have a problem! ierr =', ierr
+    error stop 1
 endif
 
-END SUBROUTINE abort_pem
+END SUBROUTINE stop_clean
+!=======================================================================
 
-END MODULE abort_pem_mod
+END MODULE stop_pem