Changeset 92 for trunk/libIGCM/libIGCM_sys/libIGCM_sys_vargas.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_vargas.ksh (modified) (3 diffs)

trunk/libIGCM/libIGCM_sys/libIGCM_sys_vargas.ksh

@@ -430 +430 @@
         echo "IGCM_sys_Qsub :" $@
     fi
-    { cd $LOADL_STEP_INITDIR ; llsubmit $1 ; }
+    {
+      [ ${#@} = 1 ] &&  { cd $LOADL_STEP_INITDIR ; llsubmit $1 ; cd - ; }
+      [ ${#@} = 2 ] &&  { cd $2 ; llsubmit $1 ; cd - ; }
+    }
     if [ $? -gt 0 ] ; then
         echo "IGCM_sys_Qsub : erreur $@."
@@ -449 +452 @@
     fi
     cd ${POST_DIR}
-    /opt/ibmll/LoadL/full/bin/llsubmit ${libIGCM_POST}/$1.job
+    /usr/local/bin/llsubmit ${libIGCM_POST}/$1.job
     cd -
     if [ $? -gt 0 ] ; then
@@ -643 +646 @@
 
 #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