Changeset 4139 for trunk/LMDZ.COMMON/libf/misc

Timestamp:

Mar 18, 2026, 11:47:32 AM (2 weeks ago)

Author:

jbclement

Message:

PEM:
Partial reversion of r4138: relocating "job_mod" to "LMDZ.COMMON/libf/misc/" because "parse_arg_mod" needs to know "job_mod" even if it is not the PEM.
JBC

Location:

trunk/LMDZ.COMMON/libf/misc

Files:

• job_mod.F90 (moved) (moved from trunk/LMDZ.COMMON/libf/evolution/job.F90) (14 diffs)
• parse_args_mod.F90 (modified) (1 diff)

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

@@ -1 @@
-MODULE job
+MODULE job_mod
 
 !-----------------------------------------------------------------------
 ! NAME
-!     job
+!     job_mod
 !
 ! DESCRIPTION
-!     Management of memory throughout the modules of the code.
+!     Tools to retieve job information of the program.
 !
 ! AUTHORS & DATE
@@ -15 +15 @@
 !-----------------------------------------------------------------------
 
-! DEPENDENCIES
-! ------------
-use numerics, only: dp, di, k4
-
 ! DECLARATION
 ! -----------
@@ -25 +21 @@
 ! PARAMETERS
 ! ----------
-real(dp)            :: timelimit = 86400._dp ! Time limit for the job: 86400 s = 24 h by default
-real(dp), parameter :: antetime  = 3600._dp  ! Anticipation time to prevent reaching the job time limit: 3600 s = 1 h by default
-logical(k4)         :: timewall = .false.    ! Flag to enable the program self-termination before timeout
+real            :: timelimit = 86400. ! Time limit for the job: 86400 s = 24 h by default
+real, parameter :: antetime  = 3600.  ! Anticipation time to prevent reaching the job time limit: 3600 s = 1 h by default
+logical         :: timewall = .false. ! Flag to enable the program self-termination before timeout
 
 contains
@@ -48 +44 @@
 !-----------------------------------------------------------------------
 
-! DEPENDENCIES
-! ------------
-use stoppage, only: stop_clean
-
 ! DECLARATION
 ! -----------
@@ -62 +54 @@
 ! LOCAL VARIABLES
 ! ---------------
-integer(di)    :: sts
+integer        :: sts
 character(256) :: tmp
 
@@ -82 +74 @@
 endif
 
-call stop_clean(__FILE__,__LINE__,"neither SLURM_JOB_ID nor PBS_JOBID found in environment!",1)
+error stop 'Error: neither SLURM_JOB_ID nor PBS_JOBID found in environment!'
 
 END SUBROUTINE get_job_id
@@ -104 +96 @@
 !-----------------------------------------------------------------------
 
-! DEPENDENCIES
-! ------------
-use stoppage, only: stop_clean
-
 ! DECLARATION
 ! -----------
@@ -118 +106 @@
 ! LOCAL VARIABLES
 ! ---------------
-logical(k4)    :: num_str
+logical        :: num_str
 character(256) :: chtimelimit ! Time limit for the job outputted by the SLURM or PBS/TORQUE command
-integer(di)    :: i, ierr, funit, cstat, days, hours, minutes, seconds
+integer        :: i, ierr, funit, cstat, days, hours, minutes, seconds
 character(1)   :: sep
 
@@ -133 +121 @@
     endif
 enddo
-if (.not. num_str) call stop_clean(__FILE__,__LINE__,"job ID must be numeric!",1)
+if (.not. num_str) error stop "Error: job ID must be numeric!"
 
 ! Try SLURM (squeue)
@@ -141 +129 @@
     call execute_command_line('qstat -f '//trim(adjustl(jobid))//' | grep "Walltime" | awk ''{print $3}'' > tmp_timelimit.txt',cmdstat = cstat)
     if (cstat > 0) then
-        call stop_clean(__FILE__,__LINE__,'command execution failed!',1)
+        error stop 'Error: command execution failed!'
     else if (cstat < 0) then
-        call stop_clean(__FILE__,__LINE__,'command execution not supported (neither SLURM nor PBS/TORQUE is installed)!',1)
+        error stop 'Error: command execution not supported (neither SLURM nor PBS/TORQUE is installed)!'
     endif
 endif
@@ -149 +137 @@
 ! Read the output
 open(newunit = funit,file = 'tmp_timelimit.txt',status = 'old',form = 'formatted',action = 'read',iostat = ierr)
-if (ierr /= 0) call stop_clean(__FILE__,__LINE__,'error opening file "tmp_timelimit.txt"!',ierr)
+if (ierr /= 0) error stop 'Error: error opening file "tmp_timelimit.txt"!'
 read(funit,'(a)') chtimelimit
 close(funit)
@@ -157 +145 @@
 call execute_command_line('rm tmp_timelimit.txt',cmdstat = cstat)
 if (cstat > 0) then
-    call stop_clean(__FILE__,__LINE__,'command execution failed!',1)
+    error stop 'Error: command execution failed!'
 else if (cstat < 0) then
-    call stop_clean(__FILE__,__LINE__,'command execution not supported!',1)
+    error stop 'Error: command execution not supported!'
 endif
 
@@ -165 +153 @@
 if (index(chtimelimit,'-') > 0) then ! Format "D-HH:MM:SS"
     read(chtimelimit,'(i1,a1,i2,a1,i2,a1,i2)') days, sep, hours, sep, minutes, sep, seconds
-    timelimit = real(days,dp)*86400._dp + real(hours,dp)*3600._dp + real(minutes,dp)*60._dp + real(seconds,dp)
+    timelimit = real(days)*86400. + real(hours)*3600. + real(minutes)*60. + real(seconds)
 else if (index(chtimelimit,':') > 0 .and. len_trim(chtimelimit) > 5) then ! Format "HH:MM:SS"
     read(chtimelimit,'(i2,a1,i2,a1,i2)') hours, sep, minutes, sep, seconds
-    timelimit = real(hours,dp)*3600._dp + real(minutes,dp)*60._dp + real(seconds,dp)
+    timelimit = real(hours)*3600. + real(minutes)*60. + real(seconds)
 else ! Format "MM:SS"
     read(chtimelimit,'(i2,a1,i2)') minutes, sep, seconds
-    timelimit = real(minutes,dp)*60._dp + real(seconds,dp)
+    timelimit = real(minutes)*60. + real(seconds)
 endif
 
@@ -179 +167 @@
 !=======================================================================
 
-END MODULE job
+END MODULE job_mod

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

@@ -14 +14 @@
 use pgrm_version_mod,  only: print_pgrm_version
 #endif
-use job,               only: get_job_id, get_job_timelimit
+use job_mod,           only: get_job_id, get_job_timelimit
 
 implicit none