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 |
489 |
if test "x$RETVAL" != x0 ; then |
if test "x$RETVAL" != x0 ; then |
490 |
tail make.tr_log |
tail make.tr_log |
491 |
echo failed |
echo failed |
492 |
cp make.tr_log genmake.log genmake.tr_log $CDIR |
cp genmake.log genmake.tr_log $CDIR |
493 |
|
tail -$NBLINES_MKLOG make.tr_log > $CDIR"/make.tr_log_tail" |
494 |
rm -f $EXECUTABLE |
rm -f $EXECUTABLE |
495 |
mk_fail=1 |
mk_fail=1 |
496 |
else |
else |
514 |
|
|
515 |
mk_mpi_size() |
mk_mpi_size() |
516 |
{ |
{ |
517 |
# mk_mpi_size input_file output_file proc_Nb |
# mk_mpi_size input_file output_file proc_Nb prefer_to_split_X |
518 |
# |
# |
519 |
# make new SIZE.h (=output_file) from SIZE.h_mpi (=input_file) |
# make new SIZE.h (=output_file) from SIZE.h_mpi (=input_file) |
520 |
# for an MPI build with no more than proc_Nb processors ; |
# for an MPI build with no more than proc_Nb processors ; |
523 |
inp=$1 |
inp=$1 |
524 |
out=$2 |
out=$2 |
525 |
np=$3 |
np=$3 |
526 |
|
dirX=$4 |
527 |
tmp=TTT.$$ |
tmp=TTT.$$ |
528 |
|
|
529 |
px=`grep "^ & *nPx *=" $inp | sed "s/^ & *nPx *= *//" | sed 's/, *$//'` |
px=`grep "^ & *nPx *=" $inp | sed "s/^ & *nPx *= *//" | sed 's/, *$//'` |
541 |
if [ `expr $py % $j` -eq 0 ] ; then |
if [ `expr $py % $j` -eq 0 ] ; then |
542 |
ij=`expr $i \* $j` |
ij=`expr $i \* $j` |
543 |
if [ $ij -gt $pp ] ; then |
if [ $ij -gt $pp ] ; then |
544 |
|
flag=1 |
545 |
|
elif [ $ij -eq $pp ] ; then |
546 |
|
flag=$dirX |
547 |
|
else |
548 |
|
flag=0 |
549 |
|
fi |
550 |
|
if test $flag = 1 ; then |
551 |
if [ $ij -le $np ] ; then |
if [ $ij -le $np ] ; then |
552 |
ix=$i ; jy=$j ; pp=$ij |
ix=$i ; jy=$j ; pp=$ij |
553 |
#echo " ix,jy= $ix,$jy" |
#echo " ix,jy= $ix,$jy" |
727 |
else |
else |
728 |
if test ! -f $OUTPUTFILE -o $OUTPUTFILE -ot $EXECUTABLE ; then |
if test ! -f $OUTPUTFILE -o $OUTPUTFILE -ot $EXECUTABLE ; then |
729 |
# output do not exist or is older than executable: |
# output do not exist or is older than executable: |
730 |
rm -f $RUNLOG ; touch $RUNLOG |
rm -f $OUTPUTFILE $RUNLOG ; touch $RUNLOG |
731 |
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 |
732 |
( eval $COMMAND ) >> $RUNLOG 2>&1 |
( eval $COMMAND ) >> $RUNLOG 2>&1 |
733 |
RETVAL=$? |
RETVAL=$? |
872 |
|
|
873 |
check_eedata() |
check_eedata() |
874 |
{ |
{ |
875 |
# check_eedata size.h eedata |
# check_eedata eedata size.h |
876 |
if [ $# -eq 2 ] ; then |
if [ $# -eq 2 ] ; then |
877 |
if test -f $1 -a -f $2 ; then |
if test -f $1 -a -f $2 ; then |
878 |
sx=`grep "^ & *nSx *=" $1 | sed "s/^ & *nSx *=//" | sed 's/, *$//'` |
nx=`grep "^ *nTx *=" $1 | tail -1 | sed 's/^ *nTx *= *//' | sed "s/, *$//"` |
879 |
nx=`grep "^ *nTx *=" $2 | tail -1 | sed 's/^ *nTx *= *//' | sed "s/, *$//"` |
sx=`grep "^ & *nSx *=" $2 | sed "s/^ & *nSx *=//" | sed 's/, *$//'` |
880 |
if test "x$nx" = x ; then |
if test "x$nx" = x ; then |
881 |
rx=10 |
rx=10 |
882 |
else |
else |
883 |
rx=`expr $sx % $nx` |
rx=`expr $sx % $nx` |
884 |
fi |
fi |
885 |
sy=`grep "^ & *nSy *=" $1 | sed "s/^ & *nSy *=//" | sed 's/, *$//'` |
ny=`grep "^ *nTy *=" $1 | tail -1 | sed 's/^ *nTy *= *//' | sed "s/, *$//"` |
886 |
ny=`grep "^ *nTy *=" $2 | tail -1 | sed 's/^ *nTy *= *//' | sed "s/, *$//"` |
sy=`grep "^ & *nSy *=" $2 | sed "s/^ & *nSy *=//" | sed 's/, *$//'` |
887 |
if test "x$ny" = x ; then |
if test "x$ny" = x ; then |
888 |
ry=20 |
ry=20 |
889 |
else |
else |
890 |
ry=`expr $sy % $ny` |
ry=`expr $sy % $ny` |
891 |
fi |
fi |
892 |
echo `expr $rx + $ry` |
echo `expr $rx + $ry` |
893 |
else |
else |
894 |
echo '-1' |
echo '-1' |
895 |
fi |
fi |
896 |
|
elif [ $# -eq 1 ] ; then |
897 |
|
if test -f $1 ; then |
898 |
|
nx=`grep "^ *nTx *=" $1 | tail -1 | sed 's/^ *nTx *= *//' | sed "s/, *$//"` |
899 |
|
if test "x$nx" = x ; then nx=1 ; fi |
900 |
|
ny=`grep "^ *nTy *=" $1 | tail -1 | sed 's/^ *nTy *= *//' | sed "s/, *$//"` |
901 |
|
if test "x$ny" = x ; then ny=1 ; fi |
902 |
|
#echo $nx $ny |
903 |
|
echo $nx |
904 |
|
else |
905 |
|
echo '-1' |
906 |
|
fi |
907 |
else |
else |
908 |
echo '-2' |
echo '-2' |
909 |
fi |
fi |
916 |
# Default properties |
# Default properties |
917 |
debug=0 |
debug=0 |
918 |
verbose=1 |
verbose=1 |
919 |
|
NBLINES_MKLOG=16000 |
920 |
|
|
921 |
IEEE=true |
IEEE=true |
922 |
if test "x$MITGCM_IEEE" != x ; then |
if test "x$MITGCM_IEEE" != x ; then |
1348 |
|
|
1349 |
# Check for specific files for particular type of run |
# Check for specific files for particular type of run |
1350 |
|
|
1351 |
|
if test ! -r $CODE_DIR"/SIZE.h_mpi" -a "x$MPI" != "x0" ; then |
1352 |
|
echo "can't find \"$CODE_DIR/SIZE.h_mpi\" -- skipping $dir" |
1353 |
|
continue |
1354 |
|
fi |
1355 |
|
if test ! -r $dir"/input/eedata.mth" -a "x$MULTI_THREAD" = "xt" ; then |
1356 |
|
echo "can't find \"$dir/input/eedata.mth\" -- skipping $dir" |
1357 |
|
continue |
1358 |
|
fi |
1359 |
|
|
1360 |
if test "x$MPI" != "x0" ; then |
if test "x$MPI" != "x0" ; then |
1361 |
if test -r $CODE_DIR"/SIZE.h_mpi" ; then |
prefer_X=0 |
1362 |
#- create new SIZE.h with no more than '$MPI' Procs |
if test "x$MULTI_THREAD" = "xt" ; then |
1363 |
mk_mpi_size $CODE_DIR"/SIZE.h_mpi" $BUILD_DIR"/tr_size.mpi" $MPI |
retv=`check_eedata $dir"/input/eedata.mth"` |
1364 |
LOC_NPROC=$? |
if test $retv = 1 ; then prefer_X=1 ; fi |
1365 |
( cd $BUILD_DIR |
fi |
1366 |
if test -r SIZE.h.mpi ; then |
#- create new SIZE.h with no more than '$MPI' Procs |
1367 |
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 |
1368 |
else RETVAL=1 |
LOC_NPROC=$? |
1369 |
fi |
( cd $BUILD_DIR |
1370 |
if test "x$RETVAL" = x0 ; then |
if test -r SIZE.h.mpi ; then |
1371 |
rm -f tr_size.mpi |
cmp tr_size.mpi SIZE.h.mpi > /dev/null 2>&1 ; RETVAL=$? |
1372 |
else |
else RETVAL=1 |
1373 |
rm -f SIZE.h.mpi ; mv tr_size.mpi SIZE.h.mpi |
fi |
1374 |
fi |
if test "x$RETVAL" = x0 ; then |
1375 |
) |
rm -f tr_size.mpi |
1376 |
else |
else |
1377 |
echo "can't find \"$CODE_DIR/SIZE.h_mpi\" -- skipping $dir" |
rm -f SIZE.h.mpi ; mv tr_size.mpi SIZE.h.mpi |
1378 |
continue |
fi |
1379 |
fi |
) |
1380 |
if test "x$MPI_MFILE" != x ; then |
if test "x$MPI_MFILE" != x ; then |
1381 |
#- create new MPI machine-file with the right number of Procs |
#- create new MPI machine-file with the right number of Procs |
1382 |
rm -f $LOC_MFILE |
rm -f $LOC_MFILE |
1392 |
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" |
1393 |
fi |
fi |
1394 |
fi |
fi |
1395 |
fi |
if test "x$MULTI_THREAD" = "xt" ; then |
1396 |
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"` |
1397 |
echo "can't find \"$dir/input/eedata.mth\" -- skipping $dir" |
if test $retv != 0 ; then |
1398 |
continue |
echo "input/eedata.mth tiling misfit -- skipping $dir" |
1399 |
fi |
continue |
1400 |
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 |
|
1401 |
fi |
fi |
1402 |
fi |
fi |
1403 |
|
|
1417 |
if test "x$MPI" = "x0" ; then |
if test "x$MPI" = "x0" ; then |
1418 |
extra_runs="$extra_runs $name" |
extra_runs="$extra_runs $name" |
1419 |
else |
else |
1420 |
retv=`check_eedata $BUILD_DIR"/SIZE.h.mpi" $dir"/"$exd"/eedata.mth"` |
retv=`check_eedata $dir"/"$exd"/eedata.mth" $BUILD_DIR"/SIZE.h.mpi"` |
1421 |
if test $retv = 0 ; then |
if test $retv = 0 ; then |
1422 |
extra_runs="$extra_runs $name" |
extra_runs="$extra_runs $name" |
1423 |
else |
else |