Changeset 499 for branches


Ignore:
Timestamp:
08/12/11 12:54:07 (13 years ago)
Author:
mafoipsl
Message:

On vargas : move IGCM_sys_Rm definition to use it into IGCM_sys_Mirror_libIGCM

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/libIGCM_MPI_OpenMP/libIGCM_sys/libIGCM_sys_vargas.ksh

    r498 r499  
    647647} 
    648648     
     649#D-#================================================== 
     650#D-function IGCM_sys_Rm 
     651#D-* Purpose: generic rm 
     652#D-* Examples: 
     653#D- 
     654function IGCM_sys_Rm { 
     655    IGCM_debug_PushStack "IGCM_sys_Rm" -- $@ 
     656    if ( $DEBUG_sys ) ; then 
     657        echo "IGCM_sys_Rm :" $@ 
     658    fi 
     659 
     660    typeset RET 
     661 
     662    echo rm $@ > out_rsync 2>&1 
     663    \rm $@ >> out_rsync 2>&1 
     664    RET=$? 
     665 
     666    if [ ${RET} -gt 0 ] ; then 
     667        echo "IGCM_sys_Rm : error." 
     668        cat out_rsync 
     669        IGCM_debug_Exit "IGCM_sys_Rm" 
     670    fi 
     671    IGCM_debug_PopStack "IGCM_sys_Rm" 
     672} 
    649673 
    650674#D-#================================================== 
     
    711735    fi 
    712736    IGCM_debug_PopStack "IGCM_sys_Cp" 
    713 } 
    714  
    715 #D-#================================================== 
    716 #D-function IGCM_sys_Rm 
    717 #D-* Purpose: generic rm 
    718 #D-* Examples: 
    719 #D- 
    720 function IGCM_sys_Rm { 
    721     IGCM_debug_PushStack "IGCM_sys_Rm" -- $@ 
    722     if ( $DEBUG_sys ) ; then 
    723         echo "IGCM_sys_Rm :" $@ 
    724     fi 
    725  
    726     typeset RET 
    727  
    728     echo rm $@ > out_rsync 2>&1 
    729     \rm $@ >> out_rsync 2>&1 
    730     RET=$? 
    731  
    732     if [ ${RET} -gt 0 ] ; then 
    733         echo "IGCM_sys_Rm : error." 
    734         cat out_rsync 
    735         IGCM_debug_Exit "IGCM_sys_Rm" 
    736     fi 
    737     IGCM_debug_PopStack "IGCM_sys_Rm" 
    738737} 
    739738 
Note: See TracChangeset for help on using the changeset viewer.