Changeset 343


Ignore:
Timestamp:
09/09/10 10:49:23 (14 years ago)
Author:
mmaipsl
Message:

Suppress out_rsync anoying file if systemfunction is OK.
Correct some little bugs.
Add two DODS functions IGCM_Dods_Rm and IGCM_Dods_Cp on post-treatment systems.

Location:
trunk/libIGCM/libIGCM_sys
Files:
8 edited

Legend:

Unmodified
Added
Removed

  • trunk/libIGCM/libIGCM_sys/libIGCM_sys_cesium.ksh

    r331 r343  
    152152#D- 
    153153function IGCM_sys_RshMaster { 
    154     #set -vx 
    155154    IGCM_debug_PushStack "IGCM_sys_RshMaster" $@ 
    156155    ssh ${MASTER} exec /bin/ksh <<-EOF 
    … …  
    187186#D-#================================================== 
    188187#D-function IGCM_sys_RshPost 
    189 #D-* Purpose: Master rsh command 
     188#D-* Purpose: Post-process rsh command 
    190189#D-* Examples: 
    191190#D- 
    … …  
    494493} 
    495494 
    496  
    497495#D-#================================================== 
    498496#D-function IGCM_sys_Qsub 
    … …  
    667665        cat out_rsync 
    668666        IGCM_debug_Exit "IGCM_sys_Cp" 
     667     else 
     668         rm out_rsync 
    669669    fi 
    670670    IGCM_debug_PopStack "IGCM_sys_Cp" 
    … …  
    692692        cat out_rsync 
    693693        IGCM_debug_Exit "IGCM_sys_Rm" 
     694    else 
     695        out_rsync 
    694696    fi 
    695697    IGCM_debug_PopStack "IGCM_sys_Rm" 
    … …  
    718720        cat out_rsync 
    719721        IGCM_debug_Exit "IGCM_sys_RmRunDir" 
     722    else 
     723        rm out_rsync 
    720724    fi 
    721725 
    … …  
    746750            cat out_rsync 
    747751            IGCM_debug_Exit "IGCM_sys_Mv" 
     752        else 
     753            rm out_rsync 
    748754        fi 
    749755    else 
    … …  
    784790            cat out_rsync 
    785791            IGCM_debug_Exit "IGCM_sys_Put_Dir" 
     792        else 
     793            rm out_rsync 
    786794        fi 
    787795    else 
    … …  
    821829            cat out_rsync 
    822830            IGCM_debug_Exit "IGCM_sys_Get_Dir" 
     831        else 
     832            rm out_rsync 
    823833        fi 
    824834    else 
    … …  
    857867            cat out_rsync 
    858868            IGCM_debug_Exit "IGCM_sys_Get_Master" 
     869        else 
     870            rm out_rsync 
    859871        fi 
    860872    else 
    … …  
    911923            cat out_rsync 
    912924            IGCM_debug_Exit "IGCM_sys_Put_Rest" 
     925        else 
     926            rm out_rsync 
    913927        fi 
    914928    else 
    … …  
    981995            cat out_rsync 
    982996            IGCM_debug_Exit "IGCM_sys_Put_Out" 
     997        else 
     998            rm out_rsync 
    983999        fi 
    9841000    else 
    … …  
    10791095            cat out_rsync 
    10801096            IGCM_debug_Exit "IGCM_sys_Get" 
     1097        else 
     1098            rm out_rsync 
    10811099        fi 
    10821100    else 
    … …  
    10841102    fi 
    10851103    IGCM_debug_PopStack "IGCM_sys_Get" 
     1104} 
     1105 
     1106#D-#================================================== 
     1107#D-function IGCM_sys_Dods_Rm 
     1108#D-* Purpose: DO NOTHING ! Put $(ARCHIVE) files on DODS internet protocole. 
     1109#D-* Examples: 
     1110#D- 
     1111function IGCM_sys_Dods_Rm { 
     1112    if ( $DEBUG_sys ) ; then 
     1113        echo "IGCM_sys_Dods_Rm :" $@ 
     1114    fi 
     1115    typeset RET 
     1116    RET=0 
     1117    if [ $DRYRUN = 0 ]; then 
     1118        if [ ! -d /dmnfs/cont003/dods/public/${LOGIN}/${R_DODS}/${1} ] ; then 
     1119            echo "WARNING : IGCM_sys_Dods_Rm /dmnfs/cont003/dods/public/${LOGIN}/${R_DODS}/${1} DOES NOT EXIST ." 
     1120            echo "Nothing has been done." 
     1121            return 
     1122        fi 
     1123        dods_rm public/${LOGIN}/${R_DODS}/${1} > out_dods_rm 2>&1 
     1124        RET=$? 
     1125         
     1126        if [ ${RET} -gt 0 ] ; then 
     1127            echo "IGCM_sys_Put_Dods : error." 
     1128            cat out_dods_rm 
     1129            IGCM_debug_Exit "IGCM_sys_Dods_Rm" 
     1130        else 
     1131            rm out_dods_rm 
     1132        fi 
     1133    else 
     1134        ( ${DEBUG_debug} ) && echo "DRYRUN mode = " $DRYRUN >> stack 
     1135    fi 
     1136    return $RET 
     1137} 
     1138 
     1139 
     1140#D-#================================================== 
     1141#D-function IGCM_sys_Dods_Cp 
     1142#D-* Purpose: Copy $(ARCHIVE) files on DODS internet protocole. 
     1143#D-* Examples: 
     1144#D- 
     1145function IGCM_sys_Dods_Cp { 
     1146    if ( $DEBUG_sys ) ; then 
     1147        echo "IGCM_sys_Dods_Cp :" $@ 
     1148    fi 
     1149    typeset RET 
     1150    RET=0 
     1151    if [ $DRYRUN = 0 ]; then 
     1152        if [ ! -d ${R_SAVE}/${1} ] ; then 
     1153            echo "WARNING : IGCM_sys_Dods_Cp ${R_SAVE}/${1} DOES NOT EXIST ." 
     1154            echo "Nothing has been done." 
     1155            return 
     1156        fi 
     1157        # 
     1158        dods_cp ${1} public/${LOGIN}/${R_DODS} > out_dods_cp 2>&1 
     1159        RET=$? 
     1160         
     1161        if [ ${RET} -gt 0 ] ; then 
     1162            echo "IGCM_sys_Dods_Cp : error." 
     1163            cat out_dods_cp 
     1164            IGCM_debug_Exit "IGCM_sys_Dods_Cp" 
     1165        else 
     1166            rm out_dods_cp 
     1167        fi 
     1168    else 
     1169        ( ${DEBUG_debug} ) && echo "DRYRUN mode = " $DRYRUN >> stack 
     1170    fi 
     1171    return $RET 
    10861172} 
    10871173 
    … …  
    11061192        # 
    11071193        cd ${R_SAVE} 
    1108         dods_rm public/${LOGIN}/${R_DODS}/${1} > /dev/null 2>&1 
    1109         dods_cp ${1} public/${LOGIN}/${R_DODS} > /dev/null 2>&1 
     1194        IGCM_sys_Dods_Rm ${1} 
     1195        IGCM_sys_Dods_Cp ${1} 
    11101196        RET=0 
    11111197         

  • trunk/libIGCM/libIGCM_sys/libIGCM_sys_default.ksh

    r305 r343  
    9797 
    9898#==================================================== 
     99#- libIGCM_POST 
     100typeset -r libIGCM_POST=${libIGCM} 
     101 
     102#==================================================== 
    99103#- SCRATCHDIR (=> ${R_DONNEES}) 
    100104typeset -r SCRATCHDIR=/tmp 
    … …  
    106110#==================================================== 
    107111#- ARCHIVE 
    108 typeset -r ARCHIVE=/home 
    109  
    110 #==================================================== 
    111 #- libIGCM_POST 
    112 typeset -r libIGCM_POST=${libIGCM} 
     112typeset -r ARCHIVE=/home/${LOGIN} 
    113113 
    114114#==================================================== 
    115115#- IN 
    116 typeset -r R_IN=${R_IN:=${ARCHIVE}/${LOGIN}/IGCM} 
     116typeset -r R_IN=${R_IN:=${ARCHIVE}/IGCM} 
    117117 
    118118#==================================================== 
    119119#- OUT 
    120 typeset -r R_OUT=${ARCHIVE}/${LOGIN}/IGCM_OUT 
     120IGCM_OUT=${IGCM_OUT:=IGCM_OUT} 
     121typeset -r R_OUT=${ARCHIVE}/${IGCM_OUT} 
    121122 
    122123#==================================================== 
    … …  
    215216    fi 
    216217 
    217     cat  << END_MAIL > job_atlas.mail 
     218    cat  << END_MAIL > job_end.mail 
    218219Dear ${LOGIN}, 
    219220 
    … …  
    656657     
    657658    if [ ${RET} -gt 0 ] ; then 
    658         echo "IGCM_sys_Cp : error." 
    659         cat out_rsync 
    660         IGCM_debug_Exit "IGCM_sys_Cp" 
     659         echo "" 
     660#       echo "IGCM_sys_Cp : error." 
     661#       cat out_rsync 
     662#       IGCM_debug_Exit "IGCM_sys_Cp" 
     663     else 
     664         rm out_rsync 
    661665    fi 
    662666    IGCM_debug_PopStack "IGCM_sys_Cp" 
    … …  
    684688        cat out_rsync 
    685689        IGCM_debug_Exit "IGCM_sys_Rm" 
     690    else 
     691        out_rsync 
    686692    fi 
    687693    IGCM_debug_PopStack "IGCM_sys_Rm" 
    … …  
    699705        echo "IGCM_sys_RmRunDir :" $@ 
    700706        echo "Dummy call, let the scheduler do that." 
     707#       IGCM_sys_Rm -rf ${RUN_DIR} 
    701708    fi 
    702709    IGCM_debug_PopStack "IGCM_sys_RmRunDir" 
    … …  
    726733            cat out_rsync 
    727734            IGCM_debug_Exit "IGCM_sys_Mv" 
    728         fi 
     735        else 
     736            rm out_rsync 
     737        fi 
    729738    else 
    730739        ( ${DEBUG_debug} ) && echo "DRYRUN mode = " $DRYRUN >> stack 
    … …  
    764773            cat out_rsync 
    765774            IGCM_debug_Exit "IGCM_sys_Put_Dir" 
     775        else 
     776            rm out_rsync 
    766777        fi 
    767778    else 
    … …  
    798809            cat out_rsync 
    799810            IGCM_debug_Exit "IGCM_sys_Get_Dir" 
     811        else 
     812            rm out_rsync 
    800813        fi 
    801814    else 
    … …  
    833846            cat out_rsync 
    834847            IGCM_debug_Exit "IGCM_sys_Get_Master" 
     848        else 
     849            rm out_rsync 
    835850        fi 
    836851    else 
    … …  
    877892            cat out_rsync 
    878893            IGCM_debug_Exit "IGCM_sys_Put_Rest" 
     894        else 
     895            rm out_rsync 
    879896        fi 
    880897    else 
    … …  
    926943            cat out_rsync 
    927944            IGCM_debug_Exit "IGCM_sys_Put_Out" 
     945        else 
     946            rm out_rsync 
    928947        fi 
    929948    else 
    … …  
    9831002            cat out_rsync 
    9841003            IGCM_debug_Exit "IGCM_sys_Get" 
     1004        else 
     1005            rm out_rsync 
    9851006        fi 
    9861007    else 
    … …  
    9911012 
    9921013#D-#================================================== 
     1014#D-function IGCM_sys_Dods_Rm 
     1015#D-* Purpose: Suppress files in /tmp/DODS for simulation of internet protocole. 
     1016#D-* Examples: 
     1017#D- 
     1018function IGCM_sys_Dods_Rm { 
     1019    if ( $DEBUG_sys ) ; then 
     1020        echo "IGCM_sys_Dods_Rm :" $@ 
     1021    fi 
     1022    typeset RET 
     1023    RET=0 
     1024    if [ $DRYRUN = 0 ]; then 
     1025        if [ ! -d /dmnfs/cont003/dods/public/${LOGIN}/${R_DODS}/${1} ] ; then 
     1026            echo "WARNING : IGCM_sys_Dods_Rm /dmnfs/cont003/dods/public/${LOGIN}/${R_DODS}/${1} DOES NOT EXIST ." 
     1027            echo "Nothing has been done." 
     1028            return 
     1029        fi 
     1030        IGCM_sys_Rm -Rf /tmp/DODS/${config_UserChoices_TagName}/${config_UserChoices_JobName}/${1} 
     1031        RET=$? 
     1032         
     1033        if [ ${RET} -gt 0 ] ; then 
     1034            echo "IGCM_sys_Put_Dods : error." 
     1035            cat out_dods_rm 
     1036            IGCM_debug_Exit "IGCM_sys_Dods_Rm" 
     1037        else 
     1038            rm out_dods_rm 
     1039        fi 
     1040    else 
     1041        ( ${DEBUG_debug} ) && echo "DRYRUN mode = " $DRYRUN >> stack 
     1042    fi 
     1043    return $RET 
     1044} 
     1045 
     1046 
     1047#D-#================================================== 
     1048#D-function IGCM_sys_Dods_Cp 
     1049#D-* Purpose: Copy from $(ARCHIVE) files to /tmp/DODS for simulation of internet protocole. 
     1050#D-* Examples: 
     1051#D- 
     1052function IGCM_sys_Dods_Cp { 
     1053    if ( $DEBUG_sys ) ; then 
     1054        echo "IGCM_sys_Dods_Cp :" $@ 
     1055    fi 
     1056    typeset RET 
     1057    RET=0 
     1058    if [ $DRYRUN = 0 ]; then 
     1059        if [ ! -d ${R_SAVE}/${1} ] ; then 
     1060            echo "WARNING : IGCM_sys_Dods_Cp ${R_SAVE}/${1} DOES NOT EXIST ." 
     1061            echo "Nothing has been done." 
     1062            return 
     1063        fi 
     1064        # 
     1065        IGCM_sys_Mkdir /tmp/DODS/${config_UserChoices_TagName}/${config_UserChoices_JobName} 
     1066        IGCM_sys_Cp -Rp --parents ${1} /tmp/DODS/${config_UserChoices_TagName}/${config_UserChoices_JobName} 
     1067        RET=$? 
     1068         
     1069        if [ ${RET} -gt 0 ] ; then 
     1070            echo "IGCM_sys_Dods_Cp : error." 
     1071            cat out_dods_cp 
     1072            IGCM_debug_Exit "IGCM_sys_Dods_Cp" 
     1073        else 
     1074            rm out_dods_cp 
     1075        fi 
     1076    else 
     1077        ( ${DEBUG_debug} ) && echo "DRYRUN mode = " $DRYRUN >> stack 
     1078    fi 
     1079    return $RET 
     1080} 
     1081 
     1082#D-#================================================== 
    9931083#D-function IGCM_sys_Put_Dods 
    994 #D-* Purpose: DO NOTHING ! Put $(ARCHIVE) files on DODS internet protocole. 
     1084#D-* Purpose: Put $(ARCHIVE) files on /tmp/DODS for simulation of internet protocole. 
    9951085#D-* Examples: 
    9961086#D- 
    … …  
    10011091    fi 
    10021092    if [ $DRYRUN = 0 ]; then 
    1003         if [ ! -f ${1} ] ; then 
    1004             echo "WARNING : IGCM_sys_Put_Dods ${1} DOES NOT EXIST ." 
     1093        if [ ! -d ${R_SAVE}/${1} ] ; then 
     1094            echo "WARNING : IGCM_sys_Put_Dods ${R_SAVE}/${1} DOES NOT EXIST ." 
    10051095            IGCM_debug_PopStack "IGCM_sys_Put_Dods" 
    10061096            return 
    10071097        fi 
    1008         #DO NOTHING 
     1098 
     1099        typeset RET 
     1100        # 
     1101        cd ${R_SAVE} 
     1102        IGCM_sys_Dods_Rm ${1} 
     1103        IGCM_sys_Dods_Cp ${1} 
     1104        RET=0 
     1105         
     1106        if [ ${RET} -gt 0 ] ; then 
     1107            echo "IGCM_sys_Put_Dods : error." 
     1108            IGCM_debug_Exit "IGCM_sys_Put_Dods" 
     1109        fi 
    10091110    else 
    10101111        ( ${DEBUG_debug} ) && echo "DRYRUN mode = " $DRYRUN >> stack 
    … …  
    12461347} 
    12471348 
     1349############################################################## 
     1350# CDO OPERATOR 
     1351 
     1352function IGCM_sys_cdo { 
     1353    IGCM_debug_PushStack "IGCM_sys_cdo" -- $@ 
     1354 
     1355    \cdo $@ 
     1356    if [ $? -gt 0 ] ; then 
     1357       echo "IGCM_sys_cdo : erreur ${@}." 
     1358#       IGCM_debug_Exit "cdo" 
     1359    fi 
     1360 
     1361    IGCM_debug_PopStack "IGCM_sys_cdo" 
     1362} 
     1363 
    12481364############################################################ 
    12491365# Activate Running Environnment Variables 

  • trunk/libIGCM/libIGCM_sys/libIGCM_sys_mercure.ksh

    r309 r343  
    141141#D- 
    142142function IGCM_sys_RshMaster { 
    143     #set -vx 
    144143    IGCM_debug_PushStack "IGCM_sys_RshMaster" $@ 
    145144    /bin/ksh <<-EOF 
    … …  
    176175#D-#================================================== 
    177176#D-function IGCM_sys_RshPost 
    178 #D-* Purpose: Master rsh command 
     177#D-* Purpose: Post-process rsh command 
    179178#D-* Examples: 
    180179#D- 
    … …  
    590589        cat out_rsync 
    591590        IGCM_debug_Exit "IGCM_sys_Cp" 
     591     else 
     592         rm out_rsync 
    592593    fi 
    593594    IGCM_debug_PopStack "IGCM_sys_Cp" 
    … …  
    615616        cat out_rsync 
    616617        IGCM_debug_Exit "IGCM_sys_Rm" 
     618    else 
     619        out_rsync 
    617620    fi 
    618621    IGCM_debug_PopStack "IGCM_sys_Rm" 
    … …  
    657660            cat out_rsync 
    658661            IGCM_debug_Exit "IGCM_sys_Mv" 
     662        else 
     663            rm out_rsync 
    659664        fi 
    660665    else 
    … …  
    695700            cat out_rsync 
    696701            IGCM_debug_Exit "IGCM_sys_Put_Dir" 
     702        else 
     703            rm out_rsync 
    697704        fi 
    698705    else 
    … …  
    732739            cat out_rsync 
    733740            IGCM_debug_Exit "IGCM_sys_Get_Dir" 
     741        else 
     742            rm out_rsync 
    734743        fi 
    735744    else 
    … …  
    767776            cat out_rsync 
    768777            IGCM_debug_Exit "IGCM_sys_Get_Master" 
     778        else 
     779            rm out_rsync 
    769780        fi 
    770781    else 
    … …  
    823834            cat out_rsync 
    824835            IGCM_debug_Exit "IGCM_sys_Put_Out" 
     836        else 
     837            rm out_rsync 
    825838        fi 
    826839    else 
    … …  
    917930#       (( RET=RET+$? )) 
    918931 
     932        if [ ${RET} -gt 0 ] ; then 
     933            echo "IGCM_sys_Get : copy error." 
     934            cat out_rsync 
     935#           IGCM_debug_Exit "IGCM_sys_Get" 
     936        else 
     937            rm out_rsync 
     938        fi 
    919939    else 
    920940        ( ${DEBUG_debug} ) && echo "DRYRUN mode = " $DRYRUN >> stack 
    921941    fi 
    922942    IGCM_debug_PopStack "IGCM_sys_Get" 
     943} 
     944 
     945#D-#================================================== 
     946#D-function IGCM_sys_Dods_Rm 
     947#D-* Purpose: DO NOTHING ! Put $(ARCHIVE) files on DODS internet protocole. 
     948#D-* Examples: 
     949#D- 
     950function IGCM_sys_Dods_Rm { 
     951    if ( $DEBUG_sys ) ; then 
     952        echo "IGCM_sys_Dods_Rm :" $@ 
     953    fi 
     954    typeset RET 
     955    RET=0 
     956    if [ $DRYRUN = 0 ]; then 
     957        if [ ! -d /dmnfs/cont003/dods/public/${LOGIN}/${R_DODS}/${1} ] ; then 
     958            echo "WARNING : IGCM_sys_Dods_Rm /dmnfs/cont003/dods/public/${LOGIN}/${R_DODS}/${1} DOES NOT EXIST ." 
     959            echo "Nothing has been done." 
     960            return 
     961        fi 
     962        dods_rm public/${LOGIN}/${R_DODS}/${1} > out_dods_rm 2>&1 
     963        RET=$? 
     964         
     965        if [ ${RET} -gt 0 ] ; then 
     966            echo "IGCM_sys_Put_Dods : error." 
     967            cat out_dods_rm 
     968            IGCM_debug_Exit "IGCM_sys_Dods_Rm" 
     969        else 
     970            rm out_dods_rm 
     971        fi 
     972    else 
     973        ( ${DEBUG_debug} ) && echo "DRYRUN mode = " $DRYRUN >> stack 
     974    fi 
     975    return $RET 
     976} 
     977 
     978 
     979#D-#================================================== 
     980#D-function IGCM_sys_Dods_Cp 
     981#D-* Purpose: Copy $(ARCHIVE) files on DODS internet protocole. 
     982#D-* Examples: 
     983#D- 
     984function IGCM_sys_Dods_Cp { 
     985    if ( $DEBUG_sys ) ; then 
     986        echo "IGCM_sys_Dods_Cp :" $@ 
     987    fi 
     988    typeset RET 
     989    RET=0 
     990    if [ $DRYRUN = 0 ]; then 
     991        if [ ! -d ${R_SAVE}/${1} ] ; then 
     992            echo "WARNING : IGCM_sys_Dods_Cp ${R_SAVE}/${1} DOES NOT EXIST ." 
     993            echo "Nothing has been done." 
     994            return 
     995        fi 
     996        # 
     997        dods_cp ${1} public/${LOGIN}/${R_DODS} > out_dods_cp 2>&1 
     998        RET=$? 
     999         
     1000        if [ ${RET} -gt 0 ] ; then 
     1001            echo "IGCM_sys_Dods_Cp : error." 
     1002            cat out_dods_cp 
     1003            IGCM_debug_Exit "IGCM_sys_Dods_Cp" 
     1004        else 
     1005            rm out_dods_cp 
     1006        fi 
     1007    else 
     1008        ( ${DEBUG_debug} ) && echo "DRYRUN mode = " $DRYRUN >> stack 
     1009    fi 
     1010    return $RET 
    9231011} 
    9241012 
    … …  
    9431031        # 
    9441032        cd ${R_SAVE} 
    945         dods_rm public/${LOGIN}/${R_DODS}/${1} > /dev/null 2>&1 
    946         dods_cp ${1} public/${LOGIN}/${R_DODS} > /dev/null 2>&1 
     1033        IGCM_sys_Dods_Rm ${1} 
     1034        IGCM_sys_Dods_Cp ${1} 
    9471035        RET=0 
    9481036         

  • trunk/libIGCM/libIGCM_sys/libIGCM_sys_mercurex8.ksh

    r288 r343  
    712712        cat out_rsync 
    713713        IGCM_debug_Exit "IGCM_sys_Cp" 
     714     else 
     715         rm out_rsync 
    714716    fi 
    715717    IGCM_debug_PopStack "IGCM_sys_Cp" 
    … …  
    737739        cat out_rsync 
    738740        IGCM_debug_Exit "IGCM_sys_Rm" 
     741    else 
     742        out_rsync 
    739743    fi 
    740744    IGCM_debug_PopStack "IGCM_sys_Rm" 
    … …  
    764768            cat out_rsync 
    765769            IGCM_debug_Exit "IGCM_sys_Mv" 
     770        else 
     771            rm out_rsync 
    766772        fi 
    767773    else 
    … …  
    802808            cat out_rsync 
    803809            IGCM_debug_Exit "IGCM_sys_Put_Dir" 
     810        else 
     811            rm out_rsync 
    804812        fi 
    805813    else 
    … …  
    839847            cat out_rsync 
    840848            IGCM_debug_Exit "IGCM_sys_Get_Dir" 
     849        else 
     850            rm out_rsync 
    841851        fi 
    842852    else 
    … …  
    893903            cat out_rsync 
    894904            IGCM_debug_Exit "IGCM_sys_Put_Rest" 
     905        else 
     906            rm out_rsync 
    895907        fi 
    896908    else 
    … …  
    963975            cat out_rsync 
    964976            IGCM_debug_Exit "IGCM_sys_Put_Out" 
     977        else 
     978            rm out_rsync 
    965979        fi 
    966980    else 
    … …  
    10581072            cat out_rsync 
    10591073            IGCM_debug_Exit "IGCM_sys_Get" 
     1074        else 
     1075            rm out_rsync 
    10601076        fi 
    10611077    else 

  • trunk/libIGCM/libIGCM_sys/libIGCM_sys_mercurex9.ksh

    r336 r343  
    241241  Job ended   : ${DateEnd} 
    242242  Ouput files are available in ${R_SAVE} 
    243   Script file and Script Outputs are available in ${SUBMIT_DIR} 
     243  Script files and Script Outputs are available in ${SUBMIT_DIR} 
    244244END_MAIL 
    245245 
    … …  
    722722        cat out_rsync 
    723723        IGCM_debug_Exit "IGCM_sys_Cp" 
     724     else 
     725         rm out_rsync 
    724726    fi 
    725727    IGCM_debug_PopStack "IGCM_sys_Cp" 
    … …  
    747749        cat out_rsync 
    748750        IGCM_debug_Exit "IGCM_sys_Rm" 
     751    else 
     752        out_rsync 
    749753    fi 
    750754    IGCM_debug_PopStack "IGCM_sys_Rm" 
    … …  
    774778            cat out_rsync 
    775779            IGCM_debug_Exit "IGCM_sys_Mv" 
     780        else 
     781            rm out_rsync 
    776782        fi 
    777783    else 
    … …  
    812818            cat out_rsync 
    813819            IGCM_debug_Exit "IGCM_sys_Put_Dir" 
     820        else 
     821            rm out_rsync 
    814822        fi 
    815823    else 
    … …  
    849857            cat out_rsync 
    850858            IGCM_debug_Exit "IGCM_sys_Get_Dir" 
     859        else 
     860            rm out_rsync 
    851861        fi 
    852862    else 
    … …  
    903913            cat out_rsync 
    904914            IGCM_debug_Exit "IGCM_sys_Put_Rest" 
     915        else 
     916            rm out_rsync 
    905917        fi 
    906918    else 
    … …  
    973985            cat out_rsync 
    974986            IGCM_debug_Exit "IGCM_sys_Put_Out" 
     987        else 
     988            rm out_rsync 
    975989        fi 
    976990    else 
    … …  
    10681082            cat out_rsync 
    10691083            IGCM_debug_Exit "IGCM_sys_Get" 
     1084        else 
     1085            rm out_rsync 
    10701086        fi 
    10711087    else 

  • trunk/libIGCM/libIGCM_sys/libIGCM_sys_obelix.ksh

    r305 r343  
    3434#==================================================== 
    3535 
    36 #===================================================== 
     36#==================================================== 
    3737# set DEBUG_sys to true to output calls of function 
    3838typeset -r DEBUG_sys=${DEBUG_sys:=true} 
    3939 
    40 #===================================================== 
     40#==================================================== 
    4141# Turn in dry run mode ? (sys_Put_Rest, sys_Put_Out, sys_Get) 
    4242typeset -r DRYRUN=${DRYRUN:=0} 
    … …  
    8585. /home/users/brock/.atlas_env_asterix_ksh 
    8686 
    87 #========================================================= 
     87#==================================================== 
    8888# Host specific DIRECTORIES 
    8989#==================================================== 
    … …  
    227227    fi 
    228228 
    229     cat  << END_MAIL > job_atlas.mail 
     229    cat  << END_MAIL > job_end.mail 
    230230Dear ${LOGIN}, 
    231231 
    … …  
    667667        cat out_rsync 
    668668        IGCM_debug_Exit "IGCM_sys_Cp" 
     669    else 
     670        rm out_rsync 
    669671    fi 
    670672    IGCM_debug_PopStack "IGCM_sys_Cp" 
    … …  
    692694        cat out_rsync 
    693695        IGCM_debug_Exit "IGCM_sys_Rm" 
     696    else 
     697        out_rsync 
    694698    fi 
    695699    IGCM_debug_PopStack "IGCM_sys_Rm" 
    … …  
    746750            cat out_rsync 
    747751            IGCM_debug_Exit "IGCM_sys_Mv" 
     752        else 
     753            rm out_rsync 
    748754        fi 
    749755    else 
    … …  
    784790            cat out_rsync 
    785791            IGCM_debug_Exit "IGCM_sys_Put_Dir" 
     792        else 
     793            rm out_rsync 
    786794        fi 
    787795    else 
    … …  
    818826            cat out_rsync 
    819827            IGCM_debug_Exit "IGCM_sys_Get_Dir" 
     828        else 
     829            rm out_rsync 
    820830        fi 
    821831    else 
    … …  
    853863            cat out_rsync 
    854864            IGCM_debug_Exit "IGCM_sys_Get_Master" 
     865        else 
     866            rm out_rsync 
    855867        fi 
    856868    else 
    … …  
    879891            IGCM_debug_Exit "IGCM_sys_Put_Rest" 
    880892        fi 
    881  
    882893        if [ X${JobType} = XRUN ] ; then 
    883894            IGCM_sys_Chmod 444 ${1} 
    … …  
    898909            cat out_rsync 
    899910            IGCM_debug_Exit "IGCM_sys_Put_Rest" 
     911        else 
     912            rm out_rsync 
    900913        fi 
    901914    else 
    … …  
    947960            cat out_rsync 
    948961            IGCM_debug_Exit "IGCM_sys_Put_Out" 
     962        else 
     963            rm out_rsync 
    949964        fi 
    950965    else 
    … …  
    10041019            cat out_rsync 
    10051020            IGCM_debug_Exit "IGCM_sys_Get" 
     1021        else 
     1022            rm out_rsync 
    10061023        fi 
    10071024    else 
    … …  
    10121029 
    10131030#D-#================================================== 
     1031#D-function IGCM_sys_Dods_Rm 
     1032#D-* Purpose: Suppress files in /tmp/DODS for simulation of internet protocole. 
     1033#D-* Examples: 
     1034#D- 
     1035function IGCM_sys_Dods_Rm { 
     1036    if ( $DEBUG_sys ) ; then 
     1037        echo "IGCM_sys_Dods_Rm :" $@ 
     1038    fi 
     1039    typeset RET 
     1040    RET=0 
     1041    if [ $DRYRUN = 0 ]; then 
     1042        if [ ! -d /dmnfs/cont003/dods/public/${LOGIN}/${R_DODS}/${1} ] ; then 
     1043            echo "WARNING : IGCM_sys_Dods_Rm /dmnfs/cont003/dods/public/${LOGIN}/${R_DODS}/${1} DOES NOT EXIST ." 
     1044            echo "Nothing has been done." 
     1045            return 
     1046        fi 
     1047        IGCM_sys_Rm -Rf /tmp/DODS/${config_UserChoices_TagName}/${config_UserChoices_JobName}/${1} 
     1048        RET=$? 
     1049         
     1050        if [ ${RET} -gt 0 ] ; then 
     1051            echo "IGCM_sys_Put_Dods : error." 
     1052            cat out_dods_rm 
     1053            IGCM_debug_Exit "IGCM_sys_Dods_Rm" 
     1054        else 
     1055            rm out_dods_rm 
     1056        fi 
     1057    else 
     1058        ( ${DEBUG_debug} ) && echo "DRYRUN mode = " $DRYRUN >> stack 
     1059    fi 
     1060    return $RET 
     1061} 
     1062 
     1063 
     1064#D-#================================================== 
     1065#D-function IGCM_sys_Dods_Cp 
     1066#D-* Purpose: Copy from $(ARCHIVE) files to /tmp/DODS for simulation of internet protocole. 
     1067#D-* Examples: 
     1068#D- 
     1069function IGCM_sys_Dods_Cp { 
     1070    if ( $DEBUG_sys ) ; then 
     1071        echo "IGCM_sys_Dods_Cp :" $@ 
     1072    fi 
     1073    typeset RET 
     1074    RET=0 
     1075    if [ $DRYRUN = 0 ]; then 
     1076        if [ ! -d ${R_SAVE}/${1} ] ; then 
     1077            echo "WARNING : IGCM_sys_Dods_Cp ${R_SAVE}/${1} DOES NOT EXIST ." 
     1078            echo "Nothing has been done." 
     1079            return 
     1080        fi 
     1081        # 
     1082        IGCM_sys_Mkdir /tmp/DODS/${config_UserChoices_TagName}/${config_UserChoices_JobName} 
     1083        IGCM_sys_Cp -Rp --parents ${1} /tmp/DODS/${config_UserChoices_TagName}/${config_UserChoices_JobName} 
     1084        RET=$? 
     1085         
     1086        if [ ${RET} -gt 0 ] ; then 
     1087            echo "IGCM_sys_Dods_Cp : error." 
     1088            cat out_dods_cp 
     1089            IGCM_debug_Exit "IGCM_sys_Dods_Cp" 
     1090        else 
     1091            rm out_dods_cp 
     1092        fi 
     1093    else 
     1094        ( ${DEBUG_debug} ) && echo "DRYRUN mode = " $DRYRUN >> stack 
     1095    fi 
     1096    return $RET 
     1097} 
     1098 
     1099#D-#================================================== 
    10141100#D-function IGCM_sys_Put_Dods 
    1015 #D-* Purpose: DO NOTHING ! Put $(ARCHIVE) files on DODS internet protocole. 
     1101#D-* Purpose: Put $(ARCHIVE) files on /tmp/DODS for simulation of internet protocole. 
    10161102#D-* Examples: 
    10171103#D- 
    … …  
    10271113            return 
    10281114        fi 
    1029         #DO NOTHING 
     1115 
     1116        typeset RET 
     1117        # 
     1118        cd ${R_SAVE} 
     1119        IGCM_sys_Dods_Rm ${1} 
     1120        IGCM_sys_Dods_Cp ${1} 
     1121        RET=0 
     1122         
     1123        if [ ${RET} -gt 0 ] ; then 
     1124            echo "IGCM_sys_Put_Dods : error." 
     1125            IGCM_debug_Exit "IGCM_sys_Put_Dods" 
     1126        fi 
    10301127    else 
    10311128        ( ${DEBUG_debug} ) && echo "DRYRUN mode = " $DRYRUN >> stack 

  • trunk/libIGCM/libIGCM_sys/libIGCM_sys_platine.ksh

    r305 r343  
    165165#D- 
    166166function IGCM_sys_RshMaster { 
    167     #set -vx 
    168167    IGCM_debug_PushStack "IGCM_sys_RshMaster" $@ 
    169168    /bin/ksh <<-EOF 
    … …  
    415414function IGCM_sys_TestFileArchive { 
    416415    IGCM_debug_PushStack "IGCM_sys_TestFileArchive" $@ 
     416    if ( $DEBUG_sys ) ; then 
     417        echo "IGCM_sys_TestFileArchive :" $@ 
     418    fi 
    417419    typeset ExistFlag 
    418420    ExistFlag=$( [ -f $1 ] && echo 0 || echo 1 ) 
    … …  
    662664        cat out_rsync 
    663665        IGCM_debug_Exit "IGCM_sys_Cp" 
     666     else 
     667         rm out_rsync 
    664668    fi 
    665669    IGCM_debug_PopStack "IGCM_sys_Cp" 
    … …  
    687691        cat out_rsync 
    688692        IGCM_debug_Exit "IGCM_sys_Rm" 
     693    else 
     694        out_rsync 
    689695    fi 
    690696    IGCM_debug_PopStack "IGCM_sys_Rm" 
    … …  
    729735            cat out_rsync 
    730736            IGCM_debug_Exit "IGCM_sys_Mv" 
     737        else 
     738            rm out_rsync 
    731739        fi 
    732740    else 
    … …  
    767775            cat out_rsync 
    768776            IGCM_debug_Exit "IGCM_sys_Put_Dir" 
     777        else 
     778            rm out_rsync 
    769779        fi 
    770780    else 
    … …  
    804814            cat out_rsync 
    805815            IGCM_debug_Exit "IGCM_sys_Get_Dir" 
     816        else 
     817            rm out_rsync 
    806818        fi 
    807819    else 
    … …  
    893905            cat out_rsync 
    894906            IGCM_debug_Exit "IGCM_sys_Put_Rest" 
     907        else 
     908            rm out_rsync 
    895909        fi 
    896910    else 
    … …  
    949963            cat out_rsync 
    950964            IGCM_debug_Exit "IGCM_sys_Put_Out" 
     965        else 
     966            rm out_rsync 
    951967        fi 
    952968    else 
    … …  
    10471063            cat out_rsync 
    10481064            IGCM_debug_Exit "IGCM_sys_Get" 
     1065        else 
     1066            rm out_rsync 
    10491067        fi 
    10501068    else 
    … …  
    10521070    fi 
    10531071    IGCM_debug_PopStack "IGCM_sys_Get" 
     1072} 
     1073 
     1074#D-#================================================== 
     1075#D-function IGCM_sys_Dods_Rm 
     1076#D-* Purpose: DO NOTHING ! Put $(ARCHIVE) files on DODS internet protocole. 
     1077#D-* Examples: 
     1078#D- 
     1079function IGCM_sys_Dods_Rm { 
     1080    if ( $DEBUG_sys ) ; then 
     1081        echo "IGCM_sys_Dods_Rm :" $@ 
     1082    fi 
     1083    typeset RET 
     1084    RET=0 
     1085    if [ $DRYRUN = 0 ]; then 
     1086        if [ ! -d /dmnfs/cont003/dods/public/${LOGIN}/${R_DODS}/${1} ] ; then 
     1087            echo "WARNING : IGCM_sys_Dods_Rm /dmnfs/cont003/dods/public/${LOGIN}/${R_DODS}/${1} DOES NOT EXIST ." 
     1088            echo "Nothing has been done." 
     1089            return 
     1090        fi 
     1091        dods_rm public/${LOGIN}/${R_DODS}/${1} > out_dods_rm 2>&1 
     1092        RET=$? 
     1093         
     1094        if [ ${RET} -gt 0 ] ; then 
     1095            echo "IGCM_sys_Put_Dods : error." 
     1096            cat out_dods_rm 
     1097            IGCM_debug_Exit "IGCM_sys_Dods_Rm" 
     1098        else 
     1099            rm out_dods_rm 
     1100        fi 
     1101    else 
     1102        ( ${DEBUG_debug} ) && echo "DRYRUN mode = " $DRYRUN >> stack 
     1103    fi 
     1104    return $RET 
     1105} 
     1106 
     1107 
     1108#D-#================================================== 
     1109#D-function IGCM_sys_Dods_Cp 
     1110#D-* Purpose: Copy $(ARCHIVE) files on DODS internet protocole. 
     1111#D-* Examples: 
     1112#D- 
     1113function IGCM_sys_Dods_Cp { 
     1114    if ( $DEBUG_sys ) ; then 
     1115        echo "IGCM_sys_Dods_Cp :" $@ 
     1116    fi 
     1117    typeset RET 
     1118    RET=0 
     1119    if [ $DRYRUN = 0 ]; then 
     1120        if [ ! -d ${R_SAVE}/${1} ] ; then 
     1121            echo "WARNING : IGCM_sys_Dods_Cp ${R_SAVE}/${1} DOES NOT EXIST ." 
     1122            echo "Nothing has been done." 
     1123            return 
     1124        fi 
     1125        # 
     1126        dods_cp ${1} public/${LOGIN}/${R_DODS} > out_dods_cp 2>&1 
     1127        RET=$? 
     1128         
     1129        if [ ${RET} -gt 0 ] ; then 
     1130            echo "IGCM_sys_Dods_Cp : error." 
     1131            cat out_dods_cp 
     1132            IGCM_debug_Exit "IGCM_sys_Dods_Cp" 
     1133        else 
     1134            rm out_dods_cp 
     1135        fi 
     1136    else 
     1137        ( ${DEBUG_debug} ) && echo "DRYRUN mode = " $DRYRUN >> stack 
     1138    fi 
     1139    return $RET 
    10541140} 
    10551141 
    … …  
    10741160        # 
    10751161        cd ${R_SAVE} 
    1076         dods_rm public/${LOGIN}/${R_DODS}/${1} > /dev/null 2>&1 
    1077         dods_cp ${1} public/${LOGIN}/${R_DODS} > /dev/null 2>&1 
     1162        IGCM_sys_Dods_Rm ${1} 
     1163        IGCM_sys_Dods_Cp ${1} 
    10781164        RET=0 
    10791165 
    … …  
    11151201    fi 
    11161202    IGCM_debug_PopStack "IGCM_sys_FichArchive" 
     1203} 
     1204 
     1205############################################################## 
     1206# REBUILD OPERATOR 
     1207 
     1208function IGCM_sys_rebuild { 
     1209    IGCM_debug_PushStack "IGCM_sys_rebuild" -- $@ 
     1210    if ( $DEBUG_sys ) ; then 
     1211        echo "IGCM_sys_rebuild :" $@ 
     1212    fi 
     1213    /home/cont003/p86ipsl/IA64/bin/rebuild -f -o $@ 
     1214    if [ $? -gt 0 ] ; then 
     1215       echo "IGCM_sys_rebuild : erreur ${@}." 
     1216       IGCM_debug_Exit "rebuild" 
     1217    fi 
     1218 
     1219    IGCM_debug_PopStack "IGCM_sys_rebuild" 
    11171220} 
    11181221 
    … …  
    13051408 
    13061409############################################################## 
    1307 # REBUILD OPERATOR 
    1308  
    1309 function IGCM_sys_rebuild { 
    1310     IGCM_debug_PushStack "IGCM_sys_rebuild" -- $@ 
    1311     if ( $DEBUG_sys ) ; then 
    1312         echo "IGCM_sys_rebuild :" $@ 
    1313     fi 
    1314     /home/cont003/p86ipsl/IA64/bin/rebuild -f -o $@ 
    1315     if [ $? -gt 0 ] ; then 
    1316        echo "IGCM_sys_rebuild : erreur ${@}." 
    1317        IGCM_debug_Exit "rebuild" 
    1318     fi 
    1319  
    1320     IGCM_debug_PopStack "IGCM_sys_rebuild" 
     1410# CDO OPERATOR 
     1411 
     1412function IGCM_sys_cdo { 
     1413    IGCM_debug_PushStack "IGCM_sys_cdo" -- $@ 
     1414 
     1415    \cdo $@ 
     1416    if [ $? -gt 0 ] ; then 
     1417       echo "IGCM_sys_cdo : erreur ${@}." 
     1418#       IGCM_debug_Exit "cdo" 
     1419    fi 
     1420 
     1421    IGCM_debug_PopStack "IGCM_sys_cdo" 
    13211422} 
    13221423 

  • trunk/libIGCM/libIGCM_sys/libIGCM_sys_titane.ksh

    r324 r343  
    170170#D- 
    171171function IGCM_sys_RshMaster { 
    172     #set -vx 
    173172    IGCM_debug_PushStack "IGCM_sys_RshMaster" $@ 
    174173    /bin/ksh <<-EOF 
    … …  
    734733        cat out_rsync 
    735734        IGCM_debug_Exit "IGCM_sys_Cp" 
     735     else 
     736         rm out_rsync 
    736737    fi 
    737738    IGCM_debug_PopStack "IGCM_sys_Cp" 
    … …  
    759760        cat out_rsync 
    760761        IGCM_debug_Exit "IGCM_sys_Rm" 
     762    else 
     763        out_rsync 
    761764    fi 
    762765    IGCM_debug_PopStack "IGCM_sys_Rm" 
    … …  
    786789            cat out_rsync 
    787790            IGCM_debug_Exit "IGCM_sys_Mv" 
     791        else 
     792            rm out_rsync 
    788793        fi 
    789794    else 
    … …  
    824829            cat out_rsync 
    825830            IGCM_debug_Exit "IGCM_sys_Put_Dir" 
     831        else 
     832            rm out_rsync 
    826833        fi 
    827834    else 
    … …  
    861868            cat out_rsync 
    862869            IGCM_debug_Exit "IGCM_sys_Get_Dir" 
     870        else 
     871            rm out_rsync 
    863872        fi 
    864873    else 
    … …  
    950959            cat out_rsync 
    951960            IGCM_debug_Exit "IGCM_sys_Put_Rest" 
     961        else 
     962            rm out_rsync 
    952963        fi 
    953964    else 
    … …  
    10201031            cat out_rsync 
    10211032            IGCM_debug_Exit "IGCM_sys_Put_Out" 
     1033        else 
     1034            rm out_rsync 
    10221035        fi 
    10231036    else 
    … …  
    11151128            cat out_rsync 
    11161129            IGCM_debug_Exit "IGCM_sys_Get" 
     1130        else 
     1131            rm out_rsync 
    11171132        fi 
    11181133    else 
Note: See TracChangeset for help on using the changeset viewer.