101 |
fi |
fi |
102 |
fi |
fi |
103 |
|
|
104 |
ADJOINT= |
ADJOINT=0 |
105 |
TANGLIN= |
TANGLIN=0 |
106 |
|
OPENAD=0 |
107 |
RESTART=0 |
RESTART=0 |
108 |
EXTRA= |
EXTRA= |
109 |
FAST=0 |
FAST=0 |
112 |
MTH=0 |
MTH=0 |
113 |
UR4=0 |
UR4=0 |
114 |
if test -r $dir/summary.txt ; then |
if test -r $dir/summary.txt ; then |
115 |
comm=`grep 'ADJOINT=true' $dir/summary.txt 2>/dev/null` |
ADJOINT=`grep -c -i '^ADJOINT' $dir/summary.txt` |
116 |
eval $comm |
if test "x$ADJOINT" = x1 ; then |
117 |
comm=`grep 'TANGLIN=true' $dir/summary.txt 2>/dev/null` |
OPENAD=`grep -c '^Adjoint .* OpenAD' $dir/summary.txt` |
118 |
eval $comm |
fi |
119 |
|
TANGLIN=`grep -c -i '^TANGLIN' $dir/summary.txt` |
120 |
|
if test "x$TANGLIN" = x1 ; then |
121 |
|
OPENAD=`grep -c '^TangLin .* OpenAD' $dir/summary.txt` |
122 |
|
fi |
123 |
RESTART=`grep -c 'test 2+2=4 summary' $dir/summary.txt` |
RESTART=`grep -c 'test 2+2=4 summary' $dir/summary.txt` |
124 |
comm=`grep '^run: .*testreport.* ' $dir/summary.txt` |
comm=`grep '^run: .*testreport.* ' $dir/summary.txt` |
125 |
EXTRA=`echo "$comm" | grep " -*-tdir\>" | sed -e "s/^.* -*-tdir\>//" -e "s/ -.*$//"` |
EXTRA=`echo "$comm" | grep " -*-tdir\>" | sed -e "s/^.* -*-tdir\>//" -e "s/ -.*$//"` |
151 |
UR4=`echo "$comm" | grep -c " -*-ur4\>"` |
UR4=`echo "$comm" | grep -c " -*-ur4\>"` |
152 |
fi |
fi |
153 |
fi |
fi |
154 |
if test "x$ADJOINT" = xtrue ; then |
if test "x$ADJOINT" = x1 ; then |
155 |
kind="adjoint" ; order=0 |
kind="adm-TAF" ; order=0 |
156 |
elif test "x$TANGLIN" = xtrue ; then |
if test "x$OPENAD" = x1 ; then kind="adm-OAD" ; order=2 ; fi |
157 |
kind="tanglin" ; order=1 |
elif test "x$TANGLIN" = x1 ; then |
158 |
|
kind="tlm-TAF" ; order=1 |
159 |
|
if test "x$OPENAD" = x1 ; then kind="tlm-OAD" ; order=3 ; fi |
160 |
elif test "x$RESTART" = x0 ; then |
elif test "x$RESTART" = x0 ; then |
161 |
kind="forward" ; order=2 |
kind="forward" ; order=4 |
162 |
else |
else |
163 |
kind="restart" ; order=3 |
kind="restart" ; order=5 |
164 |
fi |
fi |
165 |
order=`expr $order + 10 \* $EXTRA` |
order=`expr $order + 10 \* $EXTRA` |
166 |
order=`printf '%3.3i' $order` |
order=`printf '%3.3i' $order` |