Ignore:
Timestamp:
09/18/08 17:46:57 (16 years ago)
Author:
mmaipsl
Message:

MM: Correct platine lib.

Update trunk from tag libIGCM_v1.

Location:
trunk/libIGCM/libIGCM_sys
Files:
4 edited

Legend:

Unmodified
Added
Removed

  • trunk/libIGCM/libIGCM_sys/libIGCM_sys_brodie.ksh

    r5 r17  
    8080typeset -r RSYNC_FRONT="rsh rhodes /usr/bin/rsync " 
    8181# RSYNC_opt args to rsync 
    82 typeset -r RSYNC_opt="-Lt -v" 
     82typeset -r RSYNC_opt="-va" 
    8383# RSYNC_opt args to "remote rsync" 
    8484# ie storage filesystem 
    … …  
    574574    RET=$? 
    575575    if [ $RET -eq 0 ] ; then 
    576         echo rcp -r ${libIGCM} rhodes:${HOME}/${PATHlibIGCM} > out_rsync 2>&1 
    577         rcp -r ${libIGCM} rhodes:${HOME}/${PATHlibIGCM} >> out_rsync 2>&1 
     576#       echo rcp -r ${libIGCM} rhodes:${HOME}/${PATHlibIGCM} > out_rsync 2>&1 
     577#       rcp -r ${libIGCM} rhodes:${HOME}/${PATHlibIGCM} >> out_rsync 2>&1 
     578        echo ${RSYNC} ${RSYNC_opt} -e "rsh " --rsync-path=${REMOTE_RSYNC} ${libIGCM} rhodes:${HOME}/${PATHlibIGCM} > out_rsync 2>&1 
     579        ${RSYNC} ${RSYNC_opt} -e "rsh " --rsync-path=${REMOTE_RSYNC} ${libIGCM} rhodes:${HOME}/${PATHlibIGCM} >> out_rsync 2>&1 
    578580        RET=$? 
    579581 
    … …  
    876878#D-#================================================== 
    877879#D-function IGCM_sys_GetDate_FichArchive 
    878 #D-* Purpose:  $ 
     880#D-* Purpose: donne la date filesys d'un fichier sur le filesystem ARCHIVE  
    879881#D-* Examples: 
    880882#D- 

  • trunk/libIGCM/libIGCM_sys/libIGCM_sys_platine.ksh

    r5 r17  
    8686 
    8787#==================================================== 
     88# Source Ferret 
     89. /home/cont003/p86ipsl/.atlas_env_platine_ksh 
     90 
     91#==================================================== 
     92# Specific for ocean additionnal diagnostic 
     93export FER_GO="$FER_GO /home/cont003/p86denv/IGCM_POST_UTIL/JNL /home/cont003/p86denv/GRAF /home/cont003/p86denv/GRAF/GO" 
     94export FER_PALETTE="$FER_PALETTE /home/cont003/p86denv/GRAF/PALET" 
     95 
     96#==================================================== 
    8897# Host specific DIRECTORIES 
    8998#==================================================== 
    … …  
    114123 
    115124#==================================================== 
     125#- OUT_SCR (ONLY FOR double copy an scratch) 
     126typeset -r R_OUT_SCR=${SCRATCHDIR}/IGCM_OUT 
     127 
     128#==================================================== 
    116129#- OUT_POST 
    117130typeset -r R_OUT_POST=${SCRATCHDIR}/IGCM_OUT 
    … …  
    119132#==================================================== 
    120133#- RUN_DIR_PATH : Temporary working directory (=> TMP) 
    121 typeset -r RUN_DIR_PATH=${RUN_DIR_PATH:=${SCRATCHDIR}} 
     134typeset RUN_DIR_PATH=${RUN_DIR_PATH:=${SCRATCHDIR}} 
     135if [ $LSB_QUEUE == post ] ; then 
     136    typeset -r RUN_DIR_PATH=${SCRATCHDIR}/tmp$$ 
     137fi 
    122138 
    123139#==================================================== 
    … …  
    368384    fi 
    369385 
    370     \ls -lR ${@} 
     386    \tree -f $@ 
    371387 
    372388    IGCM_debug_PopStack "IGCM_sys_Tree" 
    … …  
    383399        echo "IGCM_sys_Tar :" $@ 
    384400    fi 
    385     \tar xvf $1 
     401    \tar cvf $@ 
    386402    if [ $? -gt 0 ] ; then 
    387403        echo "IGCM_sys_Tar : erreur." 
    388404        IGCM_debug_Exit "IGCM_sys_Tar" 
    389405    fi 
     406    \tar tvf $1 
     407 
    390408    IGCM_debug_PopStack "IGCM_sys_Tar" 
    391409} 
    … …  
    623641    typeset RET 
    624642 
    625     \cp $@ 
     643    echo mv $@ > out_rsync 2>&1 
     644    \mv $@ >> out_rsync 2>&1 
    626645    RET=$? 
    627646 
    628647    if [ ${RET} -gt 0 ] ; then 
    629         echo "IGCM_sys_Mv : error in rsync." 
     648        echo "IGCM_sys_Mv : error in mv." 
    630649        cat out_rsync 
    631650        IGCM_debug_Exit "IGCM_sys_Mv" 
    632651    fi 
    633652 
    634     \rm -f $1 
    635     if [ $? -gt 0 ] ; then 
    636         echo "IGCM_sys_Mv : error in rm." 
    637         IGCM_debug_Exit "IGCM_sys_Mv" 
    638     fi 
    639653    IGCM_debug_PopStack "IGCM_sys_Mv" 
    640654} 
    … …  
    691705    IGCM_debug_PopStack "IGCM_sys_Put_Rest" 
    692706} 
     707#D-#================================================== 
     708#D-function IGCM_sys_Put_Dir 
     709#D-* Purpose: Copy a complete directory on $(ARCHIVE) 
     710#D-* Examples: 
     711#D- 
     712function IGCM_sys_Put_Dir { 
     713    IGCM_debug_PushStack "IGCM_sys_Put_Dir" $@ 
     714    if ( $DEBUG_sys ) ; then 
     715        echo "IGCM_sys_Put_Dir :" $@ 
     716    fi 
     717    if [ $DRYRUN = 0 ]; then 
     718        if [ ! -d ${1} ] ; then 
     719            echo "WARNING : IGCM_sys_Put_Dir ${1} DOES NOT EXIST ." 
     720            IGCM_debug_PopStack "IGCM_sys_Put_Dir" 
     721            return 
     722        fi 
     723 
     724        typeset RET 
     725 
     726        # Only if we use rsync 
     727        #IGCM_sys_TestDirArchive $( dirname $2 ) 
     728        # 
     729        #USUAL WAY 
     730        \cp -r $1 $2 > out_rsync 2>&1 
     731        RET=$? 
     732 
     733        if [ ${RET} -gt 0 ] ; then 
     734            echo "IGCM_sys_Put_Dir : error." 
     735            cat out_rsync 
     736            IGCM_debug_Exit "IGCM_sys_Put_Dir" 
     737        fi 
     738    else 
     739        echo "DRYRUN mode = " $DRYRUN >> stack 
     740    fi 
     741    IGCM_debug_PopStack "IGCM_sys_Put_Dir" 
     742} 
     743 
     744#D-#================================================== 
     745#D-function IGCM_sys_Get_Dir 
     746#D-* Purpose: Copy a complete directory from $(ARCHIVE) 
     747#D-* Examples: 
     748#D- 
     749function IGCM_sys_Get_Dir { 
     750    IGCM_debug_PushStack "IGCM_sys_Get_Dir" $@ 
     751    if ( $DEBUG_sys ) ; then 
     752        echo "IGCM_sys_Get_Dir :" $@ 
     753    fi 
     754    if [ $DRYRUN = 0 ]; then 
     755        if [ ! -d ${1} ] ; then 
     756            echo "WARNING : IGCM_sys_Get_Dir ${1} DOES NOT EXIST ." 
     757            IGCM_debug_PopStack "IGCM_sys_Get_Dir" 
     758            return 
     759        fi 
     760 
     761        typeset RET 
     762 
     763        # Only if we use rsync 
     764        #IGCM_sys_TestDirArchive $( dirname $2 ) 
     765        # 
     766        #USUAL WAY 
     767        \cp -r $1 $2 > out_rsync 2>&1 
     768        RET=$? 
     769 
     770        if [ ${RET} -gt 0 ] ; then 
     771            echo "IGCM_sys_Get_Dir : error." 
     772            cat out_rsync 
     773            IGCM_debug_Exit "IGCM_sys_Get_Dir" 
     774        fi 
     775    else 
     776        echo "DRYRUN mode = " $DRYRUN >> stack 
     777    fi 
     778    IGCM_debug_PopStack "IGCM_sys_Get_Dir" 
     779} 
     780 
     781#D-#================================================== 
     782#D-function IGCM_sys_Get_Master 
     783#D-* Purpose: Copy a complete directory from MASTER filesystem 
     784#D-* Examples: 
     785#D- 
     786function IGCM_sys_Get_Master { 
     787    IGCM_debug_PushStack "IGCM_sys_Get_Master" $@ 
     788    if ( $DEBUG_sys ) ; then 
     789        echo "IGCM_sys_Get_Master :" $@ 
     790    fi 
     791    if [ $DRYRUN = 0 ]; then 
     792        if [ ! -d ${1} ] ; then 
     793            echo "WARNING : IGCM_sys_Get_Master ${1} DOES NOT EXIST ." 
     794            IGCM_debug_PopStack "IGCM_sys_Get_Master" 
     795            return 
     796        fi 
     797 
     798        typeset RET 
     799 
     800        #USUAL WAY 
     801        \cp -r $1 $2 > out_rsync 2>&1 
     802        RET=$? 
     803 
     804        if [ ${RET} -gt 0 ] ; then 
     805            echo "IGCM_sys_Get_Master : error." 
     806            cat out_rsync 
     807            IGCM_debug_Exit "IGCM_sys_Get_Master" 
     808        fi 
     809    else 
     810        echo "DRYRUN mode = " $DRYRUN >> stack 
     811    fi 
     812    IGCM_debug_PopStack "IGCM_sys_Get_Master" 
     813} 
    693814 
    694815#D-#================================================== 
    … …  
    712833        # 
    713834        typeset RET 
    714  
    715         #===================================================== 
    716         #         COMMENT OUT DOUBLE COPY ON SCRATCHDIR 
    717         #===================================================== 
    718  
    719         #echo ${2} | grep "${R_OUT}" > /dev/null 2>&1 
    720         #if [ $? -eq 0 ] ; then 
    721         #    typeset WORKPATH FILEPATH 
    722         #    WORKPATH=$( dirname $2 | sed -e "s|${R_OUT}|${R_OUT_SCR}|" ) 
    723         #    IGCM_sys_MkdirWork ${WORKPATH}  
    724         #    FILEPATH=${WORKPATH}/$( basename $2 ) 
    725         #    # 
    726         #    IGCM_sys_Cp ${1} ${FILEPATH} 
    727         #fi 
    728  
     835        # 
    729836        IGCM_sys_Chmod 444 ${1} 
    730837        # 
    … …  
    789896        #if [ $? -eq 0 ] ; then 
    790897        #    # Yes  ? then we try to get it in SCRATCHDIR 
    791         #    set +A file_work $( echo ${dm_liste[*]} | sed -e "s|${R_OUT}|${R_OUT_SCR}|" ) 
     898        #    set +A file_work $( echo ${dm_liste[*]} | sed -e "s|${R_OUT}|${R_OUT_SCR}|g" ) 
    792899        #    if [ -f ${file_work[0]} ] ; then 
    793900        #       IGCM_sys_Cp ${file_work[*]} ${DEST} 
    … …  
    813920            cat out_rsync 
    814921            IGCM_debug_Exit "IGCM_sys_Get" 
     922            IGCM_debug_PopStack "IGCM_sys_Get" 
     923            return 
    815924        fi 
    816925 
    817926        #USUAL WAY 
     927        (( RET=0 )) 
    818928        if [ X${1} = X'/l' ] ; then 
    819929            (( RET=0 )) 
    … …  
    853963} 
    854964 
    855 ############################################################## A REVOIR !! 
    856965#D-#================================================== 
    857966#D-function IGCM_sys_Put_Dods 
    … …  
    865974    fi 
    866975    if [ $DRYRUN = 0 ]; then 
    867         if [ ! -f ${1} ] ; then 
    868             echo "WARNING : IGCM_sys_Put_Dods ${1} DOES NOT EXIST ." 
     976        if [ ! -d ${R_SAVE}/${1} ] ; then 
     977            echo "WARNING : IGCM_sys_Put_Dods ${R_SAVE}/${1} DOES NOT EXIST ." 
    869978            IGCM_debug_PopStack "IGCM_sys_Put_Dods" 
    870979            return 
    … …  
    873982        typeset RET 
    874983        # 
    875         /home/cont003/dods/bin/dods_cp $1 public/${LOGIN}/$1 > out_dods 2>&1 
    876         RET=$? 
     984        cd ${R_SAVE} 
     985        dods_rm public/${LOGIN}/${config_UserChoices_TagName}/${config_UserChoices_JobName}/${1} > /dev/null 2>&1 
     986        #/bin/chmod -R u+w  ${R_SAVE}/${1} 
     987        dods_cp ${1} public/${LOGIN}/${config_UserChoices_TagName}/${config_UserChoices_JobName} > /dev/null 2>&1 
     988        #/bin/chmod -R +rX ${R_SAVE}/${1} 
     989        #/bin/chmod -R a+rX /dmnfs/cont003/dods/public/${LOGIN}/${config_UserChoices_TagName} 
     990        #RET=$? 
     991        RET=0 
    877992 
    878993        if [ ${RET} -gt 0 ] ; then 
    879994            echo "IGCM_sys_Put_Dods : error." 
    880             cat out_dods 
    881995            IGCM_debug_Exit "IGCM_sys_Put_Dods" 
    882996        fi 
    … …  
    9321046#D-#================================================== 
    9331047#D-function IGCM_sys_GetDate_FichArchive 
    934 #D-* Purpose:  $ 
     1048#D-* Purpose: donne la date filesys d'un fichier sur le filesystem ARCHIVE  
    9351049#D-* Examples: 
    9361050#D- 
    … …  
    10791193        echo "IGCM_sys_ncra :" $@ 
    10801194    fi 
    1081     /usr/local/bin/ncra $@ 
     1195    /applications/nco/bin/ncra $@ 
    10821196    if [ $? -gt 0 ] ; then 
    10831197       echo "IGCM_sys_ncra : erreur ${@}." 

  • trunk/libIGCM/libIGCM_sys/libIGCM_sys_rhodes.ksh

    r7 r17  
    712712 
    713713        typeset RET 
     714        sleep 60 
    714715 
    715716        #USUAL WAY 

  • trunk/libIGCM/libIGCM_sys/libIGCM_sys_zahir.ksh

    r5 r17  
    876876#D-#================================================== 
    877877#D-function IGCM_sys_GetDate_FichArchive 
    878 #D-* Purpose:  $ 
     878#D-* Purpose: donne la date filesys d'un fichier sur le filesystem ARCHIVE  
    879879#D-* Examples: 
    880880#D- 
Note: See TracChangeset for help on using the changeset viewer.