Changeset 3836 for trunk/LMDZ.COMMON/libf/dyn3d

Timestamp:

Jul 7, 2025, 2:46:43 PM (5 months 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/dyn3d/gcm.F90 (modified) (3 diffs)

trunk/LMDZ.COMMON/libf/dyn3d/gcm.F90

@@ -30 +30 @@
   USE temps_mod, ONLY: calend,start_time,annee_ref,day_ref, &
                 itau_dyn,itau_phy,day_ini,jD_ref,jH_ref,day_end
-  use version_info_mod, only: print_version_info
+  use parse_args_mod, only: parse_args
 
 
@@ -134 +134 @@
   character (len=20) :: modname
   character (len=80) :: abort_message
-  character(100)     :: arg ! To read command-line arguments
   ! locales pour gestion du temps
   INTEGER :: an, mois, jour
@@ -144 +143 @@
 !   Initialisations:
 !   ----------------
-
-  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()
 
   abort_message = 'last timestep reached'