Changeset 651 for trunk/libIGCM/libIGCM_sys/libIGCM_sys_vargas.ksh

Timestamp:

04/14/12 19:52:40 (12 years ago)

Author:

aclsce

Message:

Added check to be sure there is enough space on temporary filesystems (only on vargas, titane and mercure sx9).
If there is not enough space, we stop.

File:

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

trunk/libIGCM/libIGCM_sys/libIGCM_sys_vargas.ksh

@@ -1547 +1547 @@
 
 }
+
+############################################################
+# Check of space available on temporary filesytems
+function IGCM_sys_check_quota {
+  IGCM_debug_PushStack "IGCM_sys_check_quota" 
+  if ( $DEBUG_sys ) ; then
+    echo "IGCM_sys_check_quota "
+  fi
+  # Limit of quota (in %)
+  limit_quota=90
+  # Check of the volume
+  volume_quota=$(quota_u -w | grep 'Quota soft' | awk '{print $5}')
+  if [ ! X${volume_quota} = X ] ; then
+    quota_volume=${volume_quota%%\%}
+#    echo $quota_volume
+    if [ ${quota_volume} -ge ${limit_quota} ] ; then
+      IGCM_debug_Print 1 "Please, check your quota of inode on scratch"
+      IGCM_debug_Print 1 "Use the ccc_quota command"
+      IGCM_debug_Print 1 "You must have more than 10% available to run"
+      IGCM_debug_Exit "Not enough space to run ! STOP HERE"
+      IGCM_debug_Verif_Exit
+    fi
+
+  fi
+  IGCM_debug_PopStack "IGCM_sys_check_quota"
+}