/[MITgcm]/mitgcm.org/scripts/check_outp
ViewVC logotype

Diff of /mitgcm.org/scripts/check_outp

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.16 by jmc, Thu Jul 9 19:12:56 2009 UTC revision 1.19 by jmc, Tue Sep 1 20:27:24 2009 UTC
# Line 308  for mname in $MACHINES ; do Line 308  for mname in $MACHINES ; do
308            ctot=`expr $ctot + 1`            ctot=`expr $ctot + 1`
309            sline=`grep "^$key " ./slist | head -1`            sline=`grep "^$key " ./slist | head -1`
310            sdir=`echo $sline | cut -d " " -f 5`            sdir=`echo $sline | cut -d " " -f 5`
311            kind=`echo $sline | cut -d " " -f 4`            type=`echo $sline | cut -d " " -f 4`
312            optf=`echo $sline | cut -d " " -f 3`            optf=`echo $sline | cut -d " " -f 3`
313            num=`grep -c "^$key" ./plist`            num=`grep -c "^$key" ./plist`
314            if test $num = 0 -a $monthDir = 1 ; then            if test $num = 0 -a $monthDir = 1 ; then
# Line 318  for mname in $MACHINES ; do Line 318  for mname in $MACHINES ; do
318              num=`grep -c "^$key" ./plist`              num=`grep -c "^$key" ./plist`
319            fi            fi
320            #- discard unsafe test:            #- discard unsafe test:
321            dd=`echo $optf | grep -c 'gfortran.*mth'`            dd=`echo $optf | grep -c 'gfortran+mth'`
322            #if test $mname = 'lagoon' -a $dd = 1 ; then num=-1 ; fi            #if test $mname = 'lagoon' -a $dd = 1 ; then num=-1 ; fi
323            #if test $mname = 'harbor' -a $dd = 1 ; then num=-1 ; fi            #if test $mname = 'harbor' -a $dd = 1 ; then num=-1 ; fi
324            #if test $mname = 'aces' -a $optf = 'linux_ia32_open64' ; then num=-1 ; fi            #if test $mname = 'aces' -a $optf = 'linux_ia32_open64' ; then num=-1 ; fi
325            #if test $mname = 'aces' -a $optf = 'linux_ia32_g95' ; then num=-1 ; fi            #if test $mname = 'aces' -a $optf = 'linux_ia32_g95' ; then num=-1 ; fi
326            if test $num -gt 0 ; then            dd=`echo $optf | grep -c 'bigred.*+mth'`
327              #if test $mname = 'bigred' -a $dd = 1 ; then num=-1 ; fi
328              if test $num -lt 0 ; then
329                echo "  discard $sdir : $type , of='$optf'" | tee -a $OUTPFIL
330                cmis=`expr $cmis + 1`
331              elif test $num = '0' ; then
332                echo "no previous test for:" $key | tee -a $OUTPFIL
333                cmis=`expr $cmis + 1`
334              else
335              pline=`grep "^$key " ./plist | head -1`              pline=`grep "^$key " ./plist | head -1`
336              if test $dBug = 't' ; then              if test $dBug = 't' ; then
337                  echo "s='$sline'" | tee -a $OUTPFIL                  echo "s='$sline'" | tee -a $OUTPFIL
# Line 339  for mname in $MACHINES ; do Line 347  for mname in $MACHINES ; do
347                                   | sed 's/ OPTFILE=.*\// OPTFILE=/g' \                                   | sed 's/ OPTFILE=.*\// OPTFILE=/g' \
348                                   | grep -v '^[A-S][a-t]* time:  ' > tmpfp                                   | grep -v '^[A-S][a-t]* time:  ' > tmpfp
349              #-- re-order list of exp (according to local "sort" order)              #-- re-order list of exp (according to local "sort" order)
350              listD=`grep '^[YN] [YN] [YN] [YN]' tmpfs \              listD=`grep '^[YN] [YN] [YN] [YN]' tmpfs | awk '{print $NF}' | sort`
                  | sed 's/^[YN] .*pass //' | sed 's/^[YN] .*FAIL //' \  
                  | sed 's/^[YN] .*N\/O  //' | sort`  
351              for xx in $listD              for xx in $listD
352              do              do
353                  sed "/ $xx\$/d" tmpfs > tmpfn                  sed "/ $xx\$/d" tmpfs > tmpfn
354                  sed -n "/ $xx\$/p" tmpfs >> tmpfn                  sed -n "/ $xx\$/p" tmpfs >> tmpfn
355                  mv tmpfn tmpfs                  mv tmpfn tmpfs
356              done              done
357              listD=`grep '^[YN] [YN] [YN] [YN]' tmpfp \              listD=`grep '^[YN] [YN] [YN] [YN]' tmpfp | awk '{print $NF}' | sort`
                  | sed 's/^[YN] .*pass //' | sed 's/^[YN] .*FAIL //' \  
                  | sed 's/^[YN] .*N\/O  //' | sort`  
358              for xx in $listD              for xx in $listD
359              do              do
360                  sed "/ $xx\$/d" tmpfp > tmpfn                  sed "/ $xx\$/d" tmpfp > tmpfn
# Line 361  for mname in $MACHINES ; do Line 365  for mname in $MACHINES ; do
365              diff tmpfs tmpfp > tmpdf              diff tmpfs tmpfp > tmpdf
366              yy=$?              yy=$?
367              if test $yy != '0' ; then              if test $yy != '0' ; then
368                  echo " $kind , of='$optf'" | tee -a $OUTPFIL                  echo " $type , of='$optf'" | tee -a $OUTPFIL
369                  #grep '^run: ' $outp                  #grep '^run: ' $outp
370                  #grep '^run: ' $outs                  #grep '^run: ' $outs
371                  #-- score for each test:                  #-- score for each test:
# Line 395  for mname in $MACHINES ; do Line 399  for mname in $MACHINES ; do
399                  cdif=`expr $cdif + 1`                  cdif=`expr $cdif + 1`
400                  echo '----------------------------------------' | tee -a $OUTPFIL                  echo '----------------------------------------' | tee -a $OUTPFIL
401              else              else
402                  echo "" | tee -a $OUTPFIL                  echo " $type , of='$optf'" | tee -a $OUTPFIL
403              fi              fi
404              rm -f tmpfs tmpfp tmpdf              rm -f tmpfs tmpfp tmpdf
           elif test $num = '0' ; then  
             echo "no previous test for:" $key | tee -a $OUTPFIL  
             cmis=`expr $cmis + 1`  
           else  
             cmis=`expr $cmis + 1`  
405            fi            fi
406          done          done
407          if [ $cmis -gt 0 ] ; then tmis='(-'$cmis')' ; else tmis='(--)' ; fi          if [ $cmis -gt 0 ] ; then tmis='(-'$cmis')' ; else tmis='(--)' ; fi
Legend:
Removed from v.1.16  
changed lines
  Added in v.1.19
  ViewVC Help
Powered by ViewVC 1.1.22