Changeset 926
- Timestamp:
- 08/20/13 12:44:26 (11 years ago)
- Location:
- trunk/libIGCM
- Files:
-
- 8 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/libIGCM/libIGCM_card/libIGCM_card.ksh
r898 r926 311 311 312 312 #--------------------- 313 ${libIGCM}/libIGCM_card/IGCM_card_Test.ksh > IGCM_card_Test.ref.failed 2>&1313 ${libIGCM}/libIGCM_card/IGCM_card_Test.ksh > /tmp/IGCM_card_Test.ref.failed 2>&1 314 314 sleep 2 315 315 316 if diff IGCM_card_Test.ref.failed ${libIGCM}/libIGCM_card/IGCM_card_Test.ref > /dev/null 2>&1 ; then316 if diff /tmp/IGCM_card_Test.ref.failed ${libIGCM}/libIGCM_card/IGCM_card_Test.ref > /dev/null 2>&1 ; then 317 317 echo "Check libIGCM_card ...............................................[ OK ]" 318 rm -f IGCM_card_Test.ref.failed318 rm -f /tmp/IGCM_card_Test.ref.failed 319 319 else 320 320 echo "Check libIGCM_card ...........................................[ FAILED ]" … … 324 324 echo " diff IGCM_card_Test.ref.failed ${libIGCM}/libIGCM_card/IGCM_card_Test.ref" 325 325 echo " Report errors to the author: Patrick.Brockmann@cea.fr" 326 cat /tmp/IGCM_card_Test.ref.failed 326 327 IGCM_debug_Exit "IGCM_card_Check" 327 328 fi -
trunk/libIGCM/libIGCM_date/IGCM_date_Test.ksh
r373 r926 19 19 #================================================= 20 20 libIGCM=`dirname $0`/.. 21 typeset TaskType=checking 21 22 . ${libIGCM}/libIGCM_debug/libIGCM_debug.ksh 22 23 . ${libIGCM}/libIGCM_date/libIGCM_date.ksh -
trunk/libIGCM/libIGCM_date/libIGCM_date.ksh
r921 r926 1036 1036 1037 1037 #--------------------- 1038 ${libIGCM}/libIGCM_date/IGCM_date_Test.ksh > IGCM_date_Test.ref.failed 2>&11039 1040 if diff IGCM_date_Test.ref.failed ${libIGCM}/libIGCM_date/IGCM_date_Test${dY}.ref > /dev/null 2>&1 ; then1038 ${libIGCM}/libIGCM_date/IGCM_date_Test.ksh > /tmp/IGCM_date_Test.ref.failed 2>&1 1039 1040 if diff /tmp/IGCM_date_Test.ref.failed ${libIGCM}/libIGCM_date/IGCM_date_Test${dY}.ref > /dev/null 2>&1 ; then 1041 1041 echo "Check libIGCM_date ...............................................[ OK ]" 1042 rm -f IGCM_date_Test.ref.failed1042 rm -f /tmp/IGCM_date_Test.ref.failed 1043 1043 else 1044 1044 echo "Check libIGCM_date ...........................................[ FAILED ]" … … 1048 1048 echo " diff IGCM_date_Test.ref.failed ${libIGCM}/libIGCM_date/IGCM_date_Test${dY}.ref" 1049 1049 echo " Report errors to the author: Sebastien.Denvil@ipsl.jussieu.fr" 1050 cat /tmp/IGCM_date_Test.ref.failed 1050 1051 IGCM_debug_Exit "IGCM_date_Check" 1051 1052 fi -
trunk/libIGCM/libIGCM_debug/IGCM_debug_Test.ksh
r373 r926 19 19 #================================================= 20 20 libIGCM=`dirname $0`/.. 21 typeset TaskType=checking 21 22 . ${libIGCM}/libIGCM_debug/libIGCM_debug.ksh 22 23 … … 47 48 48 49 IGCM_debug_PrintVariables 1 Option 49 -
trunk/libIGCM/libIGCM_debug/libIGCM_debug.ksh
r925 r926 31 31 typeset RandomError=false 32 32 33 # Where the stack file containing call tree will be stored. 34 typeset StackFileLocation=${StackFileLocation:=${PWD}} 35 33 # Stack file containing call tree will be stored there. 36 34 if ( $DEBUG_debug ) ; then 37 if [ -f ${StackFileLocation}/stack ] ; 35 if [ X${TaskType} = Xcomputing ]; then 36 typeset StackFileLocation=${StackFileLocation:=${PWD}} 37 typeset StackFileName=computing.stack.$$ 38 elif [ X${TaskType} = Xpost-processing ]; then 39 typeset StackFileLocation=${POST_DIR:=${StackFileLocation}} 40 typeset StackFileName=post-processing.stack.$$ 41 elif [ X${TaskType} = Xchecking ]; then 42 typeset StackFileLocation=${POST_DIR:=${PWD}} 43 typeset StackFileName=checking.stack.$$ 44 fi 45 if [ -f ${StackFileLocation}/${StackFileName} ] ; 38 46 then 39 echo "Stack of an libIGCM job :" >> ${StackFileLocation}/ stack47 echo "Stack of an libIGCM job :" >> ${StackFileLocation}/${StackFileName} 40 48 else 41 echo "Stack of an libIGCM job :" > ${StackFileLocation}/ stack49 echo "Stack of an libIGCM job :" > ${StackFileLocation}/${StackFileName} 42 50 fi 43 51 fi … … 73 81 function IGCM_debug_getDate_ms 74 82 { 75 typeset nanosecs testnum83 typeset nanosecs ms 76 84 # nano secondes since 01-jan-1970 77 85 nanosecs=$( date +%s%N ) … … 119 127 iEntity=${destination} 120 128 fi 121 sizeKo=$( du --apparent-size - k ${iEntity} | awk {'print $1'} )129 sizeKo=$( du --apparent-size -sk ${iEntity} | awk {'print $1'} ) 122 130 sumSizeKo=$(( $sumSizeKo + $sizeKo )) 123 131 done 124 132 sumSizeMo=$( echo "scale=6;${sumSizeKo}/1024" | bc ) 125 133 echo "${sumSizeKo}|${sumSizeMo}" 134 126 135 } 127 136 … … 149 158 decal=0 150 159 while [ ${decal} -lt ${IGCM_debug_LenStack} ]; do 151 printf ' ' >> ${StackFileLocation}/ stack160 printf ' ' >> ${StackFileLocation}/${StackFileName} 152 161 (( decal = decal + 1 )) 153 162 done 154 163 # Log to stack file 155 echo sendAMQPMsg -h localhost -p 5672 ${additionnalOption} -b "${Body}" >> ${StackFileLocation}/ stack164 echo sendAMQPMsg -h localhost -p 5672 ${additionnalOption} -b "${Body}" >> ${StackFileLocation}/${StackFileName} 156 165 157 166 # Log separately AMQP send message command … … 196 205 if ( $DEBUG_debug ) ; then 197 206 typeset decal inputs startTime_ms 198 echo >> ${StackFileLocation}/stack199 207 200 208 # Only cosmetics : stack file 209 echo >> ${StackFileLocation}/${StackFileName} 201 210 decal=0 202 211 while [ ${decal} -lt ${IGCM_debug_LenStack} ]; do 203 printf ' ' >> ${StackFileLocation}/ stack212 printf ' ' >> ${StackFileLocation}/${StackFileName} 204 213 (( decal = decal + 1 )) 205 214 done 215 216 # Fill the stack file 217 echo "> ${IGCM_debug_LenStack} : ${@}" >> ${StackFileLocation}/${StackFileName} 206 218 207 219 # Save input list in an indexed array … … 224 236 IGCM_debug_StackArgs[0]=$(echo ${INPUTS[*]:1} | sed -e "s/\ /,/g" ) 225 237 fi 226 227 # Fill the stack file228 echo "> ${IGCM_debug_LenStack} : ${@}" >> ${StackFileLocation}/stack229 238 230 239 if [ X${ActivateBigBro} = Xtrue ] ; then … … 250 259 function IGCM_debug_PopStack { 251 260 if ( $DEBUG_debug ) ; then 252 typeset decal command arguments startTime_ms endTime_ms 253 typeset instrumentation source dest 261 typeset i decal command arguments startTime_ms endTime_ms 262 typeset instrumentation dest 263 # they are not typeset because they are send "by adress" to son functions 264 # we unset them to avoid "memory effect" 265 unset fileList source 254 266 255 267 # INTRODUCE SIMPLE ERROR GENERATOR TO TEST SUPERVISOR … … 259 271 if [ $((RANDOM%10000)) -le 10 ] ; then 260 272 IGCM_debug_Print 1 "Random error has been triggered" 261 echo "RANDOM ERROR" >> ${StackFileLocation}/ stack273 echo "RANDOM ERROR" >> ${StackFileLocation}/${StackFileName} 262 274 ExitFlag=true 263 275 fi … … 362 374 entitySize=$( IGCM_debug_sizeOfTabContent fileList ${dest} ) 363 375 ;; 376 377 # NCO commands 378 IGCM_sys_ncrcat|IGCM_sys_ncecat|IGCM_sys_ncra|IGCM_sys_ncks|IGCM_sys_cdo) 379 # Example of what we want to catch : only filenames in those command lines 380 # IGCM_sys_ncrcat -O -v ${list_var_final_ncrcat} ${OUT_SE[*]} ${RESULT_SE} 381 # IGCM_sys_ncrcat --hst -v ${liste_coord}${var} ${file1} ${liste_file_tmp[*]} ${file_out} 382 # IGCM_sys_ncrcat -p ${dir} ${liste_file_tmp} --output ${output} 383 # IGCM_sys_ncrcat -x -v ${list_var} -p ${dir} ${liste_file_tmp} --output ${output} 384 instrumentation=true 385 # All files that are not the latest argument (only input files) 386 i=0 387 keepGoing=true 388 while ( ${keepGoing} ) ; do 389 if [ -f ${arguments[${#arguments[*]}-2-${i}]} ] ; then 390 fileList="${fileList} ${arguments[${#arguments[*]}-2-${i}]}" 391 ((i = i + 1)) 392 elif [ ${i} -ge 1 ] ; then 393 keepGoing=false 394 else 395 ((i = i + 1)) 396 fi 397 done 398 # i value is at least 1 399 # just need one file to get the directory 400 source=${arguments[${#arguments[*]}-1-${i}]} 401 # Nothing but the latest 402 dest=${arguments[${#arguments[*]}-1]} 403 # Size of file whose name are stored in a list 404 entitySize=$( IGCM_debug_sizeOfTabContent fileList ${dest} ) 405 ;; 364 406 esac 365 407 … … 370 412 decal=0 371 413 while [ ${decal} -lt ${IGCM_debug_LenStack} ]; do 372 printf ' ' >> ${StackFileLocation}/ stack414 printf ' ' >> ${StackFileLocation}/${StackFileName} 373 415 (( decal = decal + 1 )) 374 416 done … … 376 418 if ( ${ExitFlag} ) ; then 377 419 # Inform the stack file 378 echo '!!! ExitFlag has been activated !!!' >> ${StackFileLocation}/ stack420 echo '!!! ExitFlag has been activated !!!' >> ${StackFileLocation}/${StackFileName} 379 421 380 422 if [ X${ActivateBigBro} = Xtrue ] ; then … … 388 430 else 389 431 # Inform the stack file 390 echo "< ${IGCM_debug_LenStack} : ${@}" >> ${StackFileLocation}/ stack432 echo "< ${IGCM_debug_LenStack} : ${@}" >> ${StackFileLocation}/${StackFileName} 391 433 if [ X${ActivateBigBro} = Xtrue ] ; then 392 434 # RabbitMQ message code … … 652 694 653 695 #--------------------- 654 ${libIGCM}/libIGCM_debug/IGCM_debug_Test.ksh > IGCM_debug_Test.ref.failed 2>&1696 ${libIGCM}/libIGCM_debug/IGCM_debug_Test.ksh > /tmp/IGCM_debug_Test.ref.failed 2>&1 655 697 sleep 2 656 698 657 699 # Remove date stamp. 658 sed -e "s:[0-9][0-9][0-9][0-9]-[0-9][0-9]-[0-9][0-9] [0-9][0-9]\:[0-9][0-9]\:[0-9][0-9] ::g" IGCM_debug_Test.ref.failed >IGCM_debug_Test.ref.failed.nodate659 mv IGCM_debug_Test.ref.failed.nodateIGCM_debug_Test.ref.failed660 661 if diff IGCM_debug_Test.ref.failed ${libIGCM}/libIGCM_debug/IGCM_debug_Test.ref > /dev/null 2>&1 ; then700 sed -e "s:[0-9][0-9][0-9][0-9]-[0-9][0-9]-[0-9][0-9] [0-9][0-9]\:[0-9][0-9]\:[0-9][0-9] ::g" /tmp/IGCM_debug_Test.ref.failed > /tmp/IGCM_debug_Test.ref.failed.nodate 701 mv /tmp/IGCM_debug_Test.ref.failed.nodate /tmp/IGCM_debug_Test.ref.failed 702 703 if diff /tmp/IGCM_debug_Test.ref.failed ${libIGCM}/libIGCM_debug/IGCM_debug_Test.ref > /dev/null 2>&1 ; then 662 704 echo "Check libIGCM_debug ..............................................[ OK ]" 663 rm -f IGCM_debug_Test.ref.failed705 rm -f /tmp/IGCM_debug_Test.ref.failed 664 706 else 665 707 echo "Check libIGCM_debug ..........................................[ FAILED ]" … … 669 711 echo " diff IGCM_debug_Test.ref.failed ${libIGCM}/libIGCM_debug/IGCM_debug_Test.ref" 670 712 echo " Report errors to the author: Patrick.Brockmann@cea.fr" 713 cat /tmp/IGCM_debug_Test.ref.failed 671 714 exit 4 672 715 fi -
trunk/libIGCM/libIGCM_sys/libIGCM_sys.ksh
r912 r926 52 52 [ ! X${TaskType} = Xchecking ] && echo "sys source ada Intel X-64 lib." 53 53 . ${libIGCM}/libIGCM_sys/libIGCM_sys_ada.ksh;; 54 55 mercure0?)56 [ ! X${TaskType} = Xchecking ] && echo "sys source mercure frontend X-64 lib."57 . ${libIGCM}/libIGCM_sys/libIGCM_sys_mercure.ksh;;58 59 mercure2?)60 [ ! X${TaskType} = Xchecking ] && echo "sys source mercure Nec SX9 lib."61 . ${libIGCM}/libIGCM_sys/libIGCM_sys_mercurex9.ksh;;62 63 54 curie*) 64 [ ! X${TaskType} = Xchecking ] && echo "sys source curie Intel X-64 lib." 65 . ${libIGCM}/libIGCM_sys/libIGCM_sys_curie.ksh;; 66 67 titane*) 68 [ ! X${TaskType} = Xchecking ] && echo "sys source titane Intel X-64 lib." 69 . ${libIGCM}/libIGCM_sys/libIGCM_sys_titane.ksh;; 70 55 [ ! X${TaskType} = Xchecking ] && echo "sys source curie Intel X-64 lib." 56 . ${libIGCM}/libIGCM_sys/libIGCM_sys_curie.ksh;; 71 57 asterix*|obelix*) 72 58 [ ! X${TaskType} = Xchecking ] && echo "sys source obelix or asterix lib." -
trunk/libIGCM/libIGCM_sys/libIGCM_sys_ada.ksh
r922 r926 1561 1561 #D- 1562 1562 function IGCM_sys_GetDate_Monitoring { 1563 #set -vx1564 1563 IGCM_debug_PushStack "IGCM_sys_GetDate_Monitoring" $@ 1565 1564 if ( $DEBUG_sys ) ; then … … 1572 1571 IGCM_sys_Cd - 1573 1572 1574 #set +vx1575 1573 IGCM_debug_PopStack "IGCM_sys_GetDate_Monitoring" 1576 1574 } -
trunk/libIGCM/libIGCM_sys/libIGCM_sys_curie.ksh
r923 r926 358 358 IGCM_debug_PushStack "IGCM_sys_SendMail" $@ 359 359 360 set -vx361 362 360 if ( $DEBUG_sys ) ; then 363 361 echo "IGCM_sys_SendMail :" $@ … … 388 386 sleep 10 389 387 rm -f mail.txt 390 391 set +vx392 388 393 389 IGCM_debug_PopStack "IGCM_sys_SendMail"
Note: See TracChangeset
for help on using the changeset viewer.