424 |
find . -name "*.data" -exec rm {} \; |
find . -name "*.data" -exec rm {} \; |
425 |
find . -name "fort.*" -exec rm {} \; |
find . -name "fort.*" -exec rm {} \; |
426 |
find . -type l -exec rm {} \; |
find . -type l -exec rm {} \; |
427 |
rm -f $EXECUTABLE $RUNLOG *.txt STD* *diagnostics.log datetime |
#- should remove executable only if sym-link (alredy done above) |
428 |
|
rm -f $RUNLOG *.txt STD* *diagnostics.log datetime |
429 |
rm -rf mnc_test_* |
rm -rf mnc_test_* |
430 |
rm -f *_MIT_CE_000.opt0000 costfunction*0000 |
rm -f *_MIT_CE_000.opt0000 costfunction*0000 |
431 |
echo successful |
echo successful |
461 |
{ |
{ |
462 |
# makemodel directory |
# makemodel directory |
463 |
( |
( |
464 |
|
mk_fail=0 |
465 |
if test "x$NOMAKE" = xt ; then |
if test "x$NOMAKE" = xt ; then |
466 |
cd $1; |
cd $1; |
467 |
if test -x $EXECUTABLE ; then |
if test -x $EXECUTABLE ; then |
468 |
echo "make skipped!" |
echo "make skipped!" |
469 |
else |
else |
470 |
echo "no executable!" |
echo "no executable!" |
471 |
return 2 |
mk_fail=3 |
472 |
fi |
fi |
473 |
else |
else |
474 |
cd $1; |
cd $1; |
491 |
echo failed |
echo failed |
492 |
cp make.tr_log genmake.log genmake.tr_log $CDIR |
cp make.tr_log genmake.log genmake.tr_log $CDIR |
493 |
rm -f $EXECUTABLE |
rm -f $EXECUTABLE |
494 |
return 1 |
mk_fail=1 |
495 |
else |
else |
496 |
echo successful |
echo successful |
497 |
fi |
fi |
498 |
|
else |
499 |
|
echo "no Makefile !" |
500 |
|
mk_fail=2 |
501 |
fi |
fi |
502 |
fi |
fi |
503 |
if test "x$ADM" = xt -a -f taf_ad.log ; then |
if test "x$ADM" = xt -a -f taf_ad.log ; then |
507 |
echo " TAF reports $nerr Errors and $nwar Recomputation Warnings" \ |
echo " TAF reports $nerr Errors and $nwar Recomputation Warnings" \ |
508 |
>> $CDIR"/summary.txt" |
>> $CDIR"/summary.txt" |
509 |
fi |
fi |
510 |
|
if test $mk_fail != 0 ; then return $mk_fail ; fi |
511 |
) |
) |
512 |
} |
} |
513 |
|
|
514 |
mk_mpi_size() |
mk_mpi_size() |
515 |
{ |
{ |
516 |
# mk_mpi_size input_file output_file proc_Nb |
# mk_mpi_size input_file output_file proc_Nb prefer_to_split_X |
517 |
# |
# |
518 |
# make new SIZE.h (=output_file) from SIZE.h_mpi (=input_file) |
# make new SIZE.h (=output_file) from SIZE.h_mpi (=input_file) |
519 |
# for an MPI build with no more than proc_Nb processors ; |
# for an MPI build with no more than proc_Nb processors ; |
522 |
inp=$1 |
inp=$1 |
523 |
out=$2 |
out=$2 |
524 |
np=$3 |
np=$3 |
525 |
|
dirX=$4 |
526 |
tmp=TTT.$$ |
tmp=TTT.$$ |
527 |
|
|
528 |
px=`grep "^ & *nPx *=" $inp | sed "s/^ & *nPx *= *//" | sed 's/, *$//'` |
px=`grep "^ & *nPx *=" $inp | sed "s/^ & *nPx *= *//" | sed 's/, *$//'` |
540 |
if [ `expr $py % $j` -eq 0 ] ; then |
if [ `expr $py % $j` -eq 0 ] ; then |
541 |
ij=`expr $i \* $j` |
ij=`expr $i \* $j` |
542 |
if [ $ij -gt $pp ] ; then |
if [ $ij -gt $pp ] ; then |
543 |
|
flag=1 |
544 |
|
elif [ $ij -eq $pp ] ; then |
545 |
|
flag=$dirX |
546 |
|
else |
547 |
|
flag=0 |
548 |
|
fi |
549 |
|
if test $flag = 1 ; then |
550 |
if [ $ij -le $np ] ; then |
if [ $ij -le $np ] ; then |
551 |
ix=$i ; jy=$j ; pp=$ij |
ix=$i ; jy=$j ; pp=$ij |
552 |
#echo " ix,jy= $ix,$jy" |
#echo " ix,jy= $ix,$jy" |
726 |
else |
else |
727 |
if test ! -f $OUTPUTFILE -o $OUTPUTFILE -ot $EXECUTABLE ; then |
if test ! -f $OUTPUTFILE -o $OUTPUTFILE -ot $EXECUTABLE ; then |
728 |
# output do not exist or is older than executable: |
# output do not exist or is older than executable: |
729 |
rm -f $RUNLOG ; touch $RUNLOG |
rm -f $OUTPUTFILE $RUNLOG ; touch $RUNLOG |
730 |
if test -f run.log_tmp ; then cat run.log_tmp >> $RUNLOG ; fi |
if test -f run.log_tmp ; then cat run.log_tmp >> $RUNLOG ; fi |
731 |
( eval $COMMAND ) >> $RUNLOG 2>&1 |
( eval $COMMAND ) >> $RUNLOG 2>&1 |
732 |
RETVAL=$? |
RETVAL=$? |
871 |
|
|
872 |
check_eedata() |
check_eedata() |
873 |
{ |
{ |
874 |
# check_eedata size.h eedata |
# check_eedata eedata size.h |
875 |
if [ $# -eq 2 ] ; then |
if [ $# -eq 2 ] ; then |
876 |
if test -f $1 -a -f $2 ; then |
if test -f $1 -a -f $2 ; then |
877 |
sx=`grep "^ & *nSx *=" $1 | sed "s/^ & *nSx *=//" | sed 's/, *$//'` |
nx=`grep "^ *nTx *=" $1 | tail -1 | sed 's/^ *nTx *= *//' | sed "s/, *$//"` |
878 |
nx=`grep "^ *nTx *=" $2 | tail -1 | sed 's/^ *nTx *= *//' | sed "s/, *$//"` |
sx=`grep "^ & *nSx *=" $2 | sed "s/^ & *nSx *=//" | sed 's/, *$//'` |
879 |
if test "x$nx" = x ; then |
if test "x$nx" = x ; then |
880 |
rx=10 |
rx=10 |
881 |
else |
else |
882 |
rx=`expr $sx % $nx` |
rx=`expr $sx % $nx` |
883 |
fi |
fi |
884 |
sy=`grep "^ & *nSy *=" $1 | sed "s/^ & *nSy *=//" | sed 's/, *$//'` |
ny=`grep "^ *nTy *=" $1 | tail -1 | sed 's/^ *nTy *= *//' | sed "s/, *$//"` |
885 |
ny=`grep "^ *nTy *=" $2 | tail -1 | sed 's/^ *nTy *= *//' | sed "s/, *$//"` |
sy=`grep "^ & *nSy *=" $2 | sed "s/^ & *nSy *=//" | sed 's/, *$//'` |
886 |
if test "x$ny" = x ; then |
if test "x$ny" = x ; then |
887 |
ry=20 |
ry=20 |
888 |
else |
else |
889 |
ry=`expr $sy % $ny` |
ry=`expr $sy % $ny` |
890 |
fi |
fi |
891 |
echo `expr $rx + $ry` |
echo `expr $rx + $ry` |
892 |
else |
else |
893 |
echo '-1' |
echo '-1' |
894 |
fi |
fi |
895 |
|
elif [ $# -eq 1 ] ; then |
896 |
|
if test -f $1 ; then |
897 |
|
nx=`grep "^ *nTx *=" $1 | tail -1 | sed 's/^ *nTx *= *//' | sed "s/, *$//"` |
898 |
|
if test "x$nx" = x ; then nx=1 ; fi |
899 |
|
ny=`grep "^ *nTy *=" $1 | tail -1 | sed 's/^ *nTy *= *//' | sed "s/, *$//"` |
900 |
|
if test "x$ny" = x ; then ny=1 ; fi |
901 |
|
#echo $nx $ny |
902 |
|
echo $nx |
903 |
|
else |
904 |
|
echo '-1' |
905 |
|
fi |
906 |
else |
else |
907 |
echo '-2' |
echo '-2' |
908 |
fi |
fi |
1346 |
|
|
1347 |
# Check for specific files for particular type of run |
# Check for specific files for particular type of run |
1348 |
|
|
1349 |
|
if test ! -r $CODE_DIR"/SIZE.h_mpi" -a "x$MPI" != "x0" ; then |
1350 |
|
echo "can't find \"$CODE_DIR/SIZE.h_mpi\" -- skipping $dir" |
1351 |
|
continue |
1352 |
|
fi |
1353 |
|
if test ! -r $dir"/input/eedata.mth" -a "x$MULTI_THREAD" = "xt" ; then |
1354 |
|
echo "can't find \"$dir/input/eedata.mth\" -- skipping $dir" |
1355 |
|
continue |
1356 |
|
fi |
1357 |
|
|
1358 |
if test "x$MPI" != "x0" ; then |
if test "x$MPI" != "x0" ; then |
1359 |
if test -r $CODE_DIR"/SIZE.h_mpi" ; then |
prefer_X=0 |
1360 |
#- create new SIZE.h with no more than '$MPI' Procs |
if test "x$MULTI_THREAD" = "xt" ; then |
1361 |
mk_mpi_size $CODE_DIR"/SIZE.h_mpi" $BUILD_DIR"/tr_size.mpi" $MPI |
retv=`check_eedata $dir"/input/eedata.mth"` |
1362 |
LOC_NPROC=$? |
if test $retv = 1 ; then prefer_X=1 ; fi |
1363 |
( cd $BUILD_DIR |
fi |
1364 |
if test -r SIZE.h.mpi ; then |
#- create new SIZE.h with no more than '$MPI' Procs |
1365 |
cmp tr_size.mpi SIZE.h.mpi > /dev/null 2>&1 ; RETVAL=$? |
mk_mpi_size $CODE_DIR"/SIZE.h_mpi" $BUILD_DIR"/tr_size.mpi" $MPI $prefer_X |
1366 |
else RETVAL=1 |
LOC_NPROC=$? |
1367 |
fi |
( cd $BUILD_DIR |
1368 |
if test "x$RETVAL" = x0 ; then |
if test -r SIZE.h.mpi ; then |
1369 |
rm -f tr_size.mpi |
cmp tr_size.mpi SIZE.h.mpi > /dev/null 2>&1 ; RETVAL=$? |
1370 |
else |
else RETVAL=1 |
1371 |
rm -f SIZE.h.mpi ; mv tr_size.mpi SIZE.h.mpi |
fi |
1372 |
fi |
if test "x$RETVAL" = x0 ; then |
1373 |
) |
rm -f tr_size.mpi |
1374 |
else |
else |
1375 |
echo "can't find \"$CODE_DIR/SIZE.h_mpi\" -- skipping $dir" |
rm -f SIZE.h.mpi ; mv tr_size.mpi SIZE.h.mpi |
1376 |
continue |
fi |
1377 |
fi |
) |
1378 |
if test "x$MPI_MFILE" != x ; then |
if test "x$MPI_MFILE" != x ; then |
1379 |
#- create new MPI machine-file with the right number of Procs |
#- create new MPI machine-file with the right number of Procs |
1380 |
rm -f $LOC_MFILE |
rm -f $LOC_MFILE |
1390 |
echo " new LOC_MFILE=$LOC_MFILE : $nl procs for LOC_NPROC=$LOC_NPROC" |
echo " new LOC_MFILE=$LOC_MFILE : $nl procs for LOC_NPROC=$LOC_NPROC" |
1391 |
fi |
fi |
1392 |
fi |
fi |
1393 |
fi |
if test "x$MULTI_THREAD" = "xt" ; then |
1394 |
if test ! -r $dir"/input/eedata.mth" -a "x$MULTI_THREAD" = "xt" ; then |
retv=`check_eedata $dir"/input/eedata.mth" $BUILD_DIR"/SIZE.h.mpi"` |
1395 |
echo "can't find \"$dir/input/eedata.mth\" -- skipping $dir" |
if test $retv != 0 ; then |
1396 |
continue |
echo "input/eedata.mth tiling misfit -- skipping $dir" |
1397 |
fi |
continue |
1398 |
if test "x$MPI" != "x0" -a "x$MULTI_THREAD" = "xt" ; then |
fi |
|
retv=`check_eedata $BUILD_DIR"/SIZE.h.mpi" $dir"/input/eedata.mth"` |
|
|
if test $retv != 0 ; then |
|
|
echo "input/eedata.mth tiling misfit -- skipping $dir" |
|
|
continue |
|
1399 |
fi |
fi |
1400 |
fi |
fi |
1401 |
|
|
1415 |
if test "x$MPI" = "x0" ; then |
if test "x$MPI" = "x0" ; then |
1416 |
extra_runs="$extra_runs $name" |
extra_runs="$extra_runs $name" |
1417 |
else |
else |
1418 |
retv=`check_eedata $BUILD_DIR"/SIZE.h.mpi" $dir"/"$exd"/eedata.mth"` |
retv=`check_eedata $dir"/"$exd"/eedata.mth" $BUILD_DIR"/SIZE.h.mpi"` |
1419 |
if test $retv = 0 ; then |
if test $retv = 0 ; then |
1420 |
extra_runs="$extra_runs $name" |
extra_runs="$extra_runs $name" |
1421 |
else |
else |