Changeset 1131 for trunk/libIGCM/libIGCM_sys

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

Location:

trunk/libIGCM/libIGCM_sys

Files:

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

trunk/libIGCM/libIGCM_sys/libIGCM_sys_ada.ksh

@@ -1702 +1702 @@
   RUN_DIR_PATH=/tmp IGCM_sys_Get ${1} .
   eval ${2}=$( cdo showyear $( basename ${1} ) 2> /dev/null | gawk '{ print $NF }' )
+  # Need to erase this file to avoid collision (permission denied getting file) between users on the front-end
+  IGCM_sys_Rm -f $( basename ${1} )
   IGCM_sys_Cd -
 

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.