Changeset 1131 for trunk/libIGCM/libIGCM_sys/libIGCM_sys_obelix.ksh

Timestamp:

10/27/14 17:15:56 (10 years ago)

Author:

sdipsl

Message:

• Bugfix Ada to avoid collision (permission denied getting file) between users on the front-end.
• Add a missing function on Obelix

File:

• trunk/libIGCM/libIGCM_sys/libIGCM_sys_obelix.ksh (modified) (1 diff)

trunk/libIGCM/libIGCM_sys/libIGCM_sys_obelix.ksh

@@ -1413 +1413 @@
 
 #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.