529 |
abave = 0.5*(fabs(a)+fabs(b)); |
abave = 0.5*(fabs(a)+fabs(b)); |
530 |
if (abave > 0.0) { |
if (abave > 0.0) { |
531 |
relerr=fabs(a-b)/abave; |
relerr=fabs(a-b)/abave; |
532 |
if (relerr > 0.0) { linnum = (int)log10(relerr); } |
if (relerr > 0.0) { linnum = (int)lrint(log10(relerr)); } |
533 |
else { linnum = -16 ; } |
else { linnum = -16 ; } |
534 |
best = (best > linnum) ? best : linnum; |
best = (best > linnum) ? best : linnum; |
535 |
} |
} |
875 |
if test -r $dir/input/Makefile ; then |
if test -r $dir/input/Makefile ; then |
876 |
( cd $dir/input ; make CLEAN ) |
( cd $dir/input ; make CLEAN ) |
877 |
fi |
fi |
878 |
|
( |
879 |
|
cd $dir |
880 |
|
rm -rf tr_run.* |
881 |
|
) |
882 |
continue |
continue |
883 |
fi |
fi |
884 |
|
|
976 |
|
|
977 |
for ex in $extra_runs ; do |
for ex in $extra_runs ; do |
978 |
test ! -e "$dir/tr_run.$ex" && mkdir "$dir/tr_run.$ex" |
test ! -e "$dir/tr_run.$ex" && mkdir "$dir/tr_run.$ex" |
979 |
for ldir in build input input.$ex ; do |
for ldir in input.$ex input ; do |
980 |
( |
( |
981 |
cd "$dir/$ldir" > /dev/null 2>&1 |
cd "$dir/$ldir" > /dev/null 2>&1 |
982 |
ls -1 2>/dev/null \ |
ls -1 2>/dev/null \ |
986 |
cd "$dir/tr_run.$ex" |
cd "$dir/tr_run.$ex" |
987 |
cat ../../tr_exrun_links | while read i ; do |
cat ../../tr_exrun_links | while read i ; do |
988 |
if test ! "x$i" = x ; then |
if test ! "x$i" = x ; then |
989 |
test -e $i && rm -f $i |
test ! -r $i && ln -s "../"$ldir"/"$i $i |
|
ln -s "../"$ldir"/"$i $i |
|
990 |
fi |
fi |
991 |
done |
done |
992 |
) |
) |
993 |
test -e tr_exrun_links && rm -f tr_exrun_links |
test -e tr_exrun_links && rm -f tr_exrun_links |
994 |
done |
done |
995 |
|
ldir=build |
996 |
|
( |
997 |
|
cd "$dir/$ldir" > /dev/null 2>&1 |
998 |
|
ls -1 Makefile *.[fFhco]* mitgcmuv 2>/dev/null \ |
999 |
|
| sed -e 's|^CVS$||g' | sed -e 's|^output.txt$||g' |
1000 |
|
) > tr_exrun_links |
1001 |
|
( |
1002 |
|
cd "$dir/tr_run.$ex" |
1003 |
|
cat ../../tr_exrun_links | while read i ; do |
1004 |
|
if test ! "x$i" = x ; then |
1005 |
|
test ! -r $i && ln -s "../"$ldir"/"$i $i |
1006 |
|
fi |
1007 |
|
done |
1008 |
|
) |
1009 |
|
test -e tr_exrun_links && rm -f tr_exrun_links |
1010 |
runmodel $dir/tr_run.$ex && run=Y \ |
runmodel $dir/tr_run.$ex && run=Y \ |
1011 |
&& results=`testoutput $dir tr_run.$ex "."$ex` |
&& results=`testoutput $dir tr_run.$ex "."$ex` |
1012 |
fres=`printf '%s %s %s %s' ${genmake:-N} ${makedepend:-N} ${make:-N} ${run:-N}` |
fres=`printf '%s %s %s %s' ${genmake:-N} ${makedepend:-N} ${make:-N} ${run:-N}` |