Changeset 955 for trunk/libIGCM/libIGCM_sys/libIGCM_sys_ada.ksh

Timestamp:

10/07/13 16:35:45 (11 years ago)

Author:

labetoulle

Message:

RunChecker? :

• Introduction of getopts to process command line options
• new option -r to check running simulations

(#131)

File:

• trunk/libIGCM/libIGCM_sys/libIGCM_sys_ada.ksh (modified) (2 diffs)

trunk/libIGCM/libIGCM_sys/libIGCM_sys_ada.ksh

@@ -1535 +1535 @@
     echo "IGCM_sys_GetDate_FichWork :" $@
   fi
+
+  if [ $# -ge 3 ] ; then
+    mode=$3
+    TimeStyle=$4
+  else
+    mode="default"
+    TimeStyle="%Y%m%d%H%M%S"
+  fi
+
   typeset dateF
-  set +A dateF -- $( ls -l --full-time --time-style='+%Y%m%d%H%M%S' ${1} )
-  eval ${2}=${dateF[5]}
+  set +A dateF -- $( ls -l --full-time --time-style=+"${TimeStyle}" ${1} )
+
+  case $mode in
+    "default")
+      eval ${2}=${dateF[5]}
+      ;;
+    "SplitFields")
+      eval ${2}="${dateF[5]}\ ${dateF[6]}"
+      ;;
+  esac
+
 
   # donne la date filesys d'un fichier sur la machine work
@@ -2018 +2036 @@
 }
 
+#D-#==================================================
+#D-function IGCM_sys_ListJobInQueue
+#D-* Purpose: Check if job_name is currently
+#D-  running or in queue
+#D-* Examples: IGCM_sys_ListJobInQueue ${User} JobNameList
+#D-
+function IGCM_sys_ListJobInQueue {
+  IGCM_debug_PushStack "IGCM_sys_ListJobInQueue"
+  if ( $DEBUG_sys ) ; then
+    echo "IGCM_sys_ListJobInQueue"
+  fi
+
+  # With -f option, the full job name is given in the last column
+  set -A JobList $( llq -u $1 -W -f %jn | gawk '( $1 != /TS/      && \
+                                                  $1 !~ /PACK/    && \
+                                                  $1 !~ /REBUILD/ && \
+                                                  $1 !~ /pack/ )     \
+                                                { print $1 }' | sed -e "s/\(.*\)\.[0-9]*/\1/" )
+
+  eval set -A ${2} ${JobList[*]}
+
+  IGCM_debug_PopStack "IGCM_sys_ListJobInQueue"
+}
+
 ##############################################################
 # NCO OPERATOR