Changeset 835 for trunk/libIGCM/libIGCM_sys

Timestamp:

03/22/13 16:05:09 (11 years ago)

Author:

labetoulle

Message:

Runchecker : add rsh access for monitoring files on Ada. See #128.

Location:

trunk/libIGCM/libIGCM_sys

Files:

• libIGCM_sys_ada.ksh (modified) (1 diff)
• libIGCM_sys_curie.ksh (modified) (1 diff)

trunk/libIGCM/libIGCM_sys/libIGCM_sys_ada.ksh

@@ -1544 +1544 @@
 
 #D-#==================================================
+#D-function IGCM_sys_GetDate_Monitoring
+#D-* Purpose: get the last year for which the monitoring has been computed
+#D-* Examples:
+#D-
+function IGCM_sys_GetDate_Monitoring {
+#set -vx
+  IGCM_debug_PushStack "IGCM_sys_GetDate_Monitoring" $@
+  if ( $DEBUG_sys ) ; then
+    echo "IGCM_sys_GetDate_Monitoring :" $@
+  fi
+
+  IGCM_sys_Cd /tmp
+  IGCM_sys_Get ${1} .
+  eval ${2}=$( cdo showyear $( basename ${1} ) 2> /dev/null | gawk '{ print $NF }' )
+  IGCM_sys_Cd -
+
+#set +vx
+  IGCM_debug_PopStack "IGCM_sys_GetDate_Monitoring"
+}
+
+#D-#==================================================
 #D-function IGCM_sys_Put_Dods
 #D-* Purpose: Put $(ARCHIVE) files on DODS internet protocole.

trunk/libIGCM/libIGCM_sys/libIGCM_sys_curie.ksh

@@ -1694 +1694 @@
 
 #D-#==================================================
+#D-function IGCM_sys_GetDate_Monitoring
+#D-* Purpose: get the last year for which the monitoring has been computed
+#D-* Examples:
+#D-
+function IGCM_sys_GetDate_Monitoring {
+  IGCM_debug_PushStack "IGCM_sys_GetDate_Monitoring" $@
+  if ( $DEBUG_sys ) ; then
+    echo "IGCM_sys_GetDate_Monitoring :" $@
+  fi
+
+  eval ${2}=$( cdo showyear ${1} 2> /dev/null | gawk '{ print $NF }' )
+
+  IGCM_debug_PopStack "IGCM_sys_GetDate_Monitoring"
+}
+
+#D-#==================================================
 #D-function IGCM_sys_Dods_Rm
 #D-* Purpose: DO NOTHING ! Put ${ARCHIVE} files on DODS internet protocole.