Changeset 92 for trunk/libIGCM/libIGCM_sys/libIGCM_sys_mercure.ksh

Timestamp:

04/09/09 19:09:08 (15 years ago)

Author:

sdipsl

Message:

MAF :
On the way to finalyze vargas

• adjustment to support large numbers of cpus (and files)
• prepare another policy for rebuild : from workdir

Some cleanup

File:

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

trunk/libIGCM/libIGCM_sys/libIGCM_sys_mercure.ksh

@@ -597 +597 @@
 
 #D-#==================================================
+#D-function IGCM_sys_Rm
+#D-* Purpose: generic rm
+#D-* Examples:
+#D-
+function IGCM_sys_Rm {
+    IGCM_debug_PushStack "IGCM_sys_Rm" -- $@
+    if ( $DEBUG_sys ) ; then
+        echo "IGCM_sys_Rm :" $@
+    fi
+
+    typeset RET
+
+    echo rm $@ > out_rsync 2>&1
+    \rm $@ >> out_rsync 2>&1
+    RET=$?
+
+    if [ ${RET} -gt 0 ] ; then
+        echo "IGCM_sys_Rm : error."
+        cat out_rsync
+        IGCM_debug_Exit "IGCM_sys_Rm"
+    fi
+    IGCM_debug_PopStack "IGCM_sys_Rm"
+}
+
+#D-#==================================================
 #D-function IGCM_sys_Mv
 #D-* Purpose: generic move