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

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

Location:

trunk/LMDZ.GENERIC/libf/phystd/dyn1d

Files:

• kcm1d.F90 (modified) (2 diffs)
• rcm1d.F (modified) (2 diffs)

trunk/LMDZ.GENERIC/libf/phystd/dyn1d/kcm1d.F90

@@ -22 +22 @@
   use dimphy, only : init_dimphy
   use gases_h, only: ngasmx
-  use version_info_mod, only: print_version_info
+  use parse_args_mod, only: parse_args
 
   implicit none
@@ -111 +111 @@
   integer :: k
 
-  character(100) :: arg ! To read command-line arguments
   
   ! --------------
   ! Initialisation
   ! --------------
-  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()
 
   pi=2.E+0*asin(1.E+0)

trunk/LMDZ.GENERIC/libf/phystd/dyn1d/rcm1d.F

@@ -43 +43 @@
      &                  nf90_strerror,NF90_INQ_VARID, NF90_GET_VAR,
      &                  NF90_CLOSE
-      use version_info_mod, only: print_version_info
+      use parse_args_mod, only: parse_args
       !use inichim_1D_mod, only: inichim_1D
       !use initracer_1D_mod, only: initracer_1D
@@ -169 +169 @@
 c INITIALISATION
 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()
 
 ! check if 'rcm1d.def' file is around