Changeset 3869 for trunk/LMDZ.COMMON/libf/misc/parse_args_mod.F90

Timestamp:

Jul 28, 2025, 4:56:58 PM (6 days ago)

Author:

jbclement

Message:

PEM:
Bug correction to detect the job time limit with PBS/TORQUE. Making it more robust and automatic for the launching script and the Fortran code.
JBC

File:

• trunk/LMDZ.COMMON/libf/misc/parse_args_mod.F90 (modified) (4 diffs)

trunk/LMDZ.COMMON/libf/misc/parse_args_mod.F90

@@ -12 +12 @@
 
 use pgrm_version_mod,  only: print_pgrm_version
+use job_id_mod,        only: get_job_id
 use job_timelimit_mod, only: get_job_timelimit
 
@@ -30 +31 @@
 !---- Variables
 integer        :: narg, i, eq_pos
-character(256) :: arg, key, vlu
+character(256) :: arg, key, vlu, jobid
 
 !---- Code
@@ -73 +74 @@
             write(*,*) 'SSO fields will be included in "start_archive.nc"'
 
-        case ('--jobid')
-            call get_job_timelimit(vlu)
+        case ('--auto-exit')
+            call get_job_id(jobid)
+            call get_job_timelimit(jobid)
 
         case default
@@ -93 +95 @@
     write(*,*) '  --version [file]    Print program version and exit (optional output file)'
     write(*,*) '  --add-sso           Add SSO fields to "start_archive.nc" (only available for Mars start2archive)'
-    write(*,*) '  --jobid <id>        Query the time limit for the specified job ID,'
-    write(*,*) '                      enabling self-termination before timeout (only available for the PEM)'
+    write(*,*) '  --auto-exit         Enable automatic termination before reaching the job time limit (only available for the PEM)'
     write(*,*)
 END SUBROUTINE print_usage