Changeset 768 for trunk/libIGCM/libIGCM_sys

Timestamp:

01/18/13 11:24:04 (11 years ago)

Author:

labetoulle

Message:

RunChecker? for IDRIS :

• replace ccc_home by ${HOME} ;
• create IGCM_sys_CountJobInQueue function.

• Replace all occurences of awk by gawk.

Location:

trunk/libIGCM/libIGCM_sys

Files:

• libIGCM_sys_curie.ksh (modified) (1 diff)
• libIGCM_sys_titane.ksh (modified) (1 diff)
• libIGCM_sys_vargas.ksh (modified) (1 diff)

trunk/libIGCM/libIGCM_sys/libIGCM_sys_curie.ksh

@@ -2643 +2643 @@
   IGCM_debug_PopStack "IGCM_sys_cdo"
 }
+
+#D-#==================================================
+#D-function IGCM_sys_CountJobInQueue
+#D-* Purpose: Check if job_name is currently 
+#D-  running or in queue
+#D-* Examples: IGCM_sys_CountJobInQueue ${JobName} NbRun
+#D-
+
+function IGCM_sys_CountJobInQueue {
+  IGCM_debug_PushStack "IGCM_sys_CountJobInQueue"
+  if ( $DEBUG_sys ) ; then
+    echo "IGCM_sys_CountJobInQueue"
+  fi
+
+  #NbRun=$( ccc_mstat -f | grep -c ${JobName} )
+
+  # With -f option, the full job name is given in the last column
+  NbRun=$( ccc_mstat -f | gawk -v JobName=$1 'BEGIN { x=0 } ($NF~String) { x=x+1 } END { print x }' )
+
+  eval ${2}=${NbRun}
+
+  IGCM_debug_PopStack "IGCM_sys_CountJobInQueue"
+}
+

trunk/libIGCM/libIGCM_sys/libIGCM_sys_titane.ksh

@@ -2969 +2969 @@
   IGCM_debug_PopStack "IGCM_sys_cdo"
 }
+
+#D-#==================================================
+#D-function IGCM_sys_CountJobInQueue
+#D-* Purpose: Check if job_name is currently 
+#D-  running or in queue
+#D-* Examples: IGCM_sys_CountJobInQueue ${JobName} NbRun
+#D-
+
+function IGCM_sys_CountJobInQueue {
+  IGCM_debug_PushStack "IGCM_sys_CountJobInQueue"
+  if ( $DEBUG_sys ) ; then
+    echo "IGCM_sys_CountJobInQueue"
+  fi
+
+  #NbRun=$( ccc_mstat -f | grep -c ${JobName} )
+
+  # With -f option, the full job name is given in the last column
+  NbRun=$( ccc_mstat -f | gawk -v JobName=$1 'BEGIN { x=0 } ($NF~String) { x=x+1 } END { print x }' )
+
+  eval ${2}=${NbRun}
+
+  IGCM_debug_PopStack "IGCM_sys_CountJobInQueue"
+}
+

trunk/libIGCM/libIGCM_sys/libIGCM_sys_vargas.ksh

@@ -1681 +1681 @@
   IGCM_debug_PopStack "IGCM_sys_check_quota"
 }
+
+#D-#==================================================
+#D-function IGCM_sys_CountJobInQueue
+#D-* Purpose: Check if job_name is currently 
+#D-  running or in queue
+#D-* Examples: IGCM_sys_CountJobInQueue ${JobName} NbRun
+#D-
+
+function IGCM_sys_CountJobInQueue {
+  IGCM_debug_PushStack "IGCM_sys_CountJobInQueue"
+  if ( $DEBUG_sys ) ; then
+    echo "IGCM_sys_CountJobInQueue"
+  fi
+
+  # Print only the full (-W) JobName (%jn)
+  NbRun=$( llq -W -f %jn | grep -c "$1" )
+
+  eval ${2}=${NbRun}
+
+  IGCM_debug_PopStack "IGCM_sys_CountJobInQueue"
+}