Changeset 3836 for trunk/LMDZ.GENERIC/libf/dynphy_lonlat/phystd

Timestamp:

Jul 7, 2025, 2:46:43 PM (5 weeks 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

Location:

trunk/LMDZ.GENERIC/libf/dynphy_lonlat/phystd

Files:

• newstart.F (modified) (2 diffs)
• start2archive.F (modified) (2 diffs)

trunk/LMDZ.GENERIC/libf/dynphy_lonlat/phystd/newstart.F

@@ -50 +50 @@
      &                         latitude,  ! latitudes (rad)                       
      &                         cell_area ! physics grid area (m2) 
-      use version_info_mod, only: print_version_info
+      use parse_args_mod, only: parse_args
                        
       implicit none
@@ -192 +192 @@
 
 
-      if (command_argument_count() > 0) then ! Get the number of command-line arguments
-          call get_command_argument(1,txt) ! Read the argument given to the program
-          select case (trim(adjustl(txt)))
-              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()
 
 c sortie visu pour les champs dynamiques

trunk/LMDZ.GENERIC/libf/dynphy_lonlat/phystd/start2archive.F

@@ -39 +39 @@
      &                          east_gwstress, west_gwstress
       use exner_hyb_m, only: exner_hyb
-      use version_info_mod, only: print_version_info
+      use parse_args_mod, only: parse_args
 
       implicit none
@@ -148 +148 @@
 c   Initialisations 
 c-----------------------------------------------------------------------
-      if (command_argument_count() > 0) then ! Get the number of command-line arguments
-          call get_command_argument(1,txt) ! Read the argument given to the program
-          select case (trim(adjustl(txt)))
-              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()
 
       CALL defrun_new(99, .TRUE. )