Changeset 3836 for trunk/LMDZ.COMMON/libf/evolution/reshape_XIOS_output.F90

Timestamp:

Jul 7, 2025, 2:46:43 PM (4 days ago)

Author:

jbclement

Message:

COMMON:
Rework related to the command-line parsing:

• Replace ad-hoc argument parsing with a unified 'parse_args' subroutine, allowing easier extension to other programs and options across models;;
• Use of '--version' (with ab optional output file) to print compilation/version details;
• Addition of 'job_timelimit_mod' module to handle SLURM/PBS job time-limit via '--jobid' (currently only used in the PEM), allowing easier extension to other programs;
• Replace manual SSO handling with 'parse_args' for the Mars start2archive;
• Clean-up related legacy code in the programs supporting the version option.

JBC

File:

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

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

@@ -11 +11 @@
 
 use netcdf
-use version_info_mod, only: print_version_info
+use parse_args_mod, only: parse_args
 
 implicit none
@@ -39 +39 @@
 integer                            :: i, j, k
 integer                            :: numDimsVar, numAttsVar
-character(100)                     :: varName, arg
+character(100)                     :: varName
 integer                            :: xtypeVar
 integer, allocatable, dimension(:) :: dimids_var_in
@@ -72 +72 @@
 
 ! CODE
-! Handle command‐line argument "version"
-if (command_argument_count() > 0) then ! Get the number of command-line arguments
-    call get_command_argument(1,arg) ! Read the argument given to the program
-    select case (trim(adjustl(arg)))
-        case('version')
-            call print_version_info()
-            stop
-        case default
-            error stop 'The argument given to the program is unknown!'
-    end select
-endif
+! Parse command-line options
+call parse_args()
 
 ! Main loop: two PCM years