/[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.25 by jmc, Fri Oct 29 20:18:55 2010 UTC revision 1.33 by jmc, Tue Sep 4 20:34:31 2012 UTC
# Line 6  Line 6 
6  #  the latest output with the previous one (from the same platform with  #  the latest output with the previous one (from the same platform with
7  #    same optfile)  #    same optfile)
8    
   
9  usage()  usage()
10  {  {
11      echo      echo
# Line 70  make_resdir_list() Line 69  make_resdir_list()
69              if test "x$sUser" != x ; then              if test "x$sUser" != x ; then
70                  tUser=                  tUser=
71                  if test -f $dir/genmake_state ; then                  if test -f $dir/genmake_state ; then
72                     nn=`sed -n '/^# executed by:/=' $dir/genmake_state`                     nn=`sed -n '/^# executed by:/=' $dir/genmake_state`
73                     if test "x$nn" != x ; then                     if test "x$nn" != x ; then
74                       nn=`expr $nn + 1`                       nn=`expr $nn + 1`
75                       tUser=`sed -n "$nn s/^# *// p" $dir/genmake_state | sed 's/@.*$//'`                       tUser=`sed -n "$nn s/^# *// p" $dir/genmake_state | sed 's/@.*$//'`
# Line 101  make_resdir_list() Line 100  make_resdir_list()
100              fi              fi
101    
102              ADJOINT=              ADJOINT=
103                TANGLIN=
104              RESTART=0              RESTART=0
105              NOI3E=0              EXTRA=0
106                FAST=0
107                DVLP=0
108                MPI=0
109              MTH=0              MTH=0
110                UR4=0
111              if test -r $dir/summary.txt ; then              if test -r $dir/summary.txt ; then
112                  comm=`grep 'ADJOINT=true' $dir/summary.txt 2>/dev/null`                  comm=`grep 'ADJOINT=true' $dir/summary.txt 2>/dev/null`
113                  eval $comm                  eval $comm
114                    comm=`grep 'TANGLIN=true' $dir/summary.txt 2>/dev/null`
115                    eval $comm
116                  RESTART=`grep -c 'test 2+2=4 summary' $dir/summary.txt`                  RESTART=`grep -c 'test 2+2=4 summary' $dir/summary.txt`
117                  NOI3E=`grep -c "^run: .*testreport.* '*-noieee'*" $dir/summary.txt`                  comm=`grep '^run: .*testreport.* ' $dir/summary.txt`
118                  MTH=`grep -c "^run: .*testreport.* -mth" $dir/summary.txt`                  EXTRA=`echo "$comm" | grep -c " -*-tdir\>"`
119                    if test "x$EXTRA" = x0 ; then
120                       EXTRA=`echo "$comm" | grep -c " -*-t\>"`
121                    fi
122                    FAST=`echo "$comm" | grep -c " -*-fast\>"`
123                    if test "x$FAST" = x0 ; then
124                       FAST=`echo "$comm" | grep -c " '*-noieee'*"`
125                    fi
126                    DVLP=`echo "$comm" | grep -c " -*-devel\>"`
127                    MPI=`echo "$comm" | grep -c " -*-mpi\>"`
128                    if test "x$MPI" = x0 ; then
129                       MPI=`echo "$comm" | grep -c " -*-MPI\>"`
130                    fi
131                    MTH=`echo "$comm" | grep -c " -*-mth\>"`
132                    UR4=`echo "$comm" | grep -c " -*-use_r4\>"`
133                    if test "x$UR4" = x0 ; then
134                       UR4=`echo "$comm" | grep -c " -*-ur4\>"`
135                    fi
136              fi              fi
137              if test "x$RESTART" = x0 ; then              if test "x$ADJOINT" = xtrue ; then
138                  kind="forward"                  kind="adjoint" ; order=0
139                  test "x$ADJOINT" = xtrue  &&  kind="adjoint"              elif test "x$TANGLIN" = xtrue ; then
140                    kind="tanglin" ; order=1
141                elif test "x$RESTART" = x0 ; then
142                    kind="forward" ; order=2
143              else              else
144                  kind="restart"                  kind="restart" ; order=3
145                fi
146                if test "x$EXTRA" != x0 ; then
147                    order=`expr $order + 4`
148                fi
149                order=`printf '%3.3i' $order`
150                if test "x$UR4" = x1 ; then
151                    OPTFILE="${OPTFILE}.use_r4"
152                fi
153                if test "x$MPI" = x1 ; then
154                    yy=`echo $OPTFILE | grep -c '+mpi'`
155                    if test $yy = 0 ; then OPTFILE="${OPTFILE}+mpi" ; fi
156              fi              fi
157              if test "x$MTH" = x1 ; then              if test "x$MTH" = x1 ; then
158                  yy=`echo $OPTFILE | grep -c '+mth$'`                  yy=`echo $OPTFILE | grep -c '+mth$'`
159                  if test $yy = 0 ; then OPTFILE="${OPTFILE}+mth" ; fi                  if test $yy = 0 ; then OPTFILE="${OPTFILE}+mth" ; fi
160              fi              fi
161              if test "x$NOI3E" = x1 ; then              if test "x$FAST" = x1 ; then
162                  OPTFILE="${OPTFILE}.noieee"                  OPTFILE="${OPTFILE}.fast"
163              fi              fi
164              day=`echo $i   | sed -e 's/_[0-9]$//' | sed -e 's/_[0-9][0-9]$//'`              if test "x$DVLP" = x1 ; then
165              ttt=`echo $day | sed -e 's/_[0-9]$//' | sed -e 's/_[0-9][0-9]$//'`                  OPTFILE="${OPTFILE}.dvlp"
166              day=`echo $ttt | sed -e 's|_| |g' |awk '{print $NF}'`              fi
167                day=`echo $i   | sed -e 's/_[0-9]$//' | sed -e 's/_[0-9][0-9]$//'`
168              if [ $day -lt $BEFORE ] ; then              ttt=`echo $day | sed -e 's/_[0-9]$//' | sed -e 's/_[0-9][0-9]$//'`
169                  echo "$OPTFILE$kind $day $OPTFILE $kind $i" >> ./plist              day=`echo $ttt | sed -e 's|_| |g' |awk '{print $NF}'`
170              elif [ $day -ge $FIRSTDAY -a $day -le $LASTDAY ] ; then  
171                  echo "$OPTFILE$kind $day $OPTFILE $kind $i" >> ./slist              if [ $day -lt $BEFORE ] ; then
172                    echo "$OPTFILE$order $day $OPTFILE $kind $i" >> ./plist
173                elif [ $day -ge $FIRSTDAY -a $day -le $LASTDAY ] ; then
174                    echo "$OPTFILE$order $day $OPTFILE $kind $i" >> ./slist
175              else              else
176                  if test $dBug = 't' ; then                  if test $dBug = 't' ; then
177                     echo "discard day='$day' from: $i" | tee -a $OUTPFIL                     echo "discard day='$day' from: $i" | tee -a $OUTPFIL
# Line 177  for ac_option ; do Line 217  for ac_option ; do
217    
218      # If the previous option needs an argument, assign it.      # If the previous option needs an argument, assign it.
219      if test -n "$ac_prev"; then      if test -n "$ac_prev"; then
220          eval "$ac_prev=\$ac_option"          eval "$ac_prev=\$ac_option"
221          ac_prev=          ac_prev=
222          continue          continue
223      fi      fi
224    
225      ac_optarg=`expr "x$ac_option" : 'x[^=]*=\(.*\)'`      ac_optarg=`expr "x$ac_option" : 'x[^=]*=\(.*\)'`
226    
227      case $ac_option in      case $ac_option in
228                    
229          -help | --help | -h | --h)          -help | --help | -h | --h) usage ;;
230              usage ;;          -verbose | --verbose | -v | --v) dBug=t ;;
         -verbose | --verbose | -v | --v)  
             dBug=t ;;  
231                    
232          -list  | --list  | -l | --l)          -list  | --list  | -l | --l) ac_prev=MACHINES ;;
233              ac_prev=MACHINES ;;          -list=* | --list=*) MACHINES=$ac_optarg ;;
234          -list=* | --list=*)  
235              MACHINES=$ac_optarg ;;          -day  | --day  | -d | --d) ac_prev=FIRSTDAY ;;
236            -day=* | --day=*) FIRSTDAY=$ac_optarg ;;
237          -day  | --day  | -d | --d)  
238              ac_prev=FIRSTDAY ;;          -upto | --upto | -u | --u) ac_prev=LASTDAY ;;
239          -day=* | --day=*)          -upto=* | --upto=*) LASTDAY=$ac_optarg ;;
240              FIRSTDAY=$ac_optarg ;;  
241            -before | --before | -b | --b) ac_prev=BEFORE ;;
242          -upto | --upto | -u | --u)          -before=* | --before=*) BEFORE=$ac_optarg ;;
243              ac_prev=LASTDAY ;;  
244          -upto=* | --upto=*)          -outp | --outp | -o | --o) ac_prev=OUTPFIL ;;
245              LASTDAY=$ac_optarg ;;          -outp=* | --outp=*) OUTPFIL=$ac_optarg ;;
246    
247          -before | --before | -b | --b)          -nldf | --nldf | -n | --n) ac_prev=NBLDIFF ;;
248              ac_prev=BEFORE ;;          -nldf=* | --nldf=*) NBLDIFF=$ac_optarg ;;
249          -before=* | --before=*)  
250              BEFORE=$ac_optarg ;;          -addr | --addr | -a | --a) ac_prev=ADDRESS ;;
251            -addr=* | --addr=*) ADDRESS=$ac_optarg ;;
252          -outp | --outp | -o | --o)  
253              ac_prev=OUTPFIL ;;          *) echo "Error: don't understand argument \"$ac_option\""
254          -outp=* | --outp=*)             usage ;;
             OUTPFIL=$ac_optarg ;;  
   
         -nldf | --nldf | -n | --n)  
             ac_prev=NBLDIFF ;;  
         -nldf=* | --nldf=*)  
             NBLDIFF=$ac_optarg ;;  
   
         -addr | --addr | -a | --a)  
             ac_prev=ADDRESS ;;  
         -addr=* | --addr=*)  
             ADDRESS=$ac_optarg ;;  
   
         *)  
             echo "Error: don't understand argument \"$ac_option\""  
             usage  
             ;;  
255    
256       esac       esac
257    
# Line 314  echo "     name     checked   comp    Di Line 336  echo "     name     checked   comp    Di
336  ( cd $INDIR ; ls -1 -t */summary.txt | sed 's/\/summary.txt//' ) > ./dir_all  ( cd $INDIR ; ls -1 -t */summary.txt | sed 's/\/summary.txt//' ) > ./dir_all
337    
338  if test "x$MACHINES" = "x_All_" ; then  if test "x$MACHINES" = "x_All_" ; then
339    MACHINES="faulks meander aces.jmc aces.ce107 baudelaire dickens danton beagle harbor"    MACHINES="faulks meander aces- acesgrid baudelaire dickens danton beagle harbor"
340    MACHINES="$MACHINES columbia pleiades iblade rays solssrv solasrv sx8"    MACHINES="$MACHINES pleiades iblade rays solasrv sx8"
341    MACHINES="$MACHINES trane dodongo dokdo bigred"    MACHINES="$MACHINES trane dodongo dokdo stomp bigred"
342    
343    MALL=`cat ./dir_all | sed -e 's|_| |g' | awk '{print $2}' | sort | uniq`    MALL=`cat ./dir_all | sed -e 's|_| |g' | awk '{print $2}' | sort | uniq`
344    for madd in $MALL ; do    for madd in $MALL ; do
345      present=0      present=0
346      for m in $MACHINES ; do      for m in $MACHINES ; do
347          mm=`echo $m | sed 's/\./ /g' | awk '{print $1}'`          mm=`echo $m | sed 's/\./ /g' | awk '{print $1}'`
348          echo $madd | grep $mm > /dev/null 2>&1          echo $madd | grep $mm > /dev/null 2>&1
349          RETVAL=$?          RETVAL=$?
350          test $RETVAL = 0  &&  present=1          test $RETVAL = 0  &&  present=1
351          continue          continue
352      done      done
353      test $present = 0  &&  MACHINES="$MACHINES $madd"      test $present = 0  &&  MACHINES="$MACHINES $madd"
354    done    done
# Line 335  fi Line 357  fi
357    
358  for pname in $MACHINES ; do  for pname in $MACHINES ; do
359    
360        sname=`echo $pname | sed 's/-$//'`
361      mname=`echo $pname | sed 's/\./ /g' | awk '{print $1}'`      mname=`echo $pname | sed 's/\./ /g' | awk '{print $1}'`
362      sUser=      sUser=
363      if test $mname != $pname ; then      if test $mname != $pname ; then
# Line 363  for pname in $MACHINES ; do Line 386  for pname in $MACHINES ; do
386          for key in $keys ; do          for key in $keys ; do
387            ctot=`expr $ctot + 1`            ctot=`expr $ctot + 1`
388            sline=`grep "^$key " ./slist | head -1`            sline=`grep "^$key " ./slist | head -1`
389            sdir=`echo $sline | cut -d " " -f 5`            sdir=`echo $sline | cut -d " " -f 5`
390            type=`echo $sline | cut -d " " -f 4`            type=`echo $sline | cut -d " " -f 4`
391            optf=`echo $sline | cut -d " " -f 3`            optf=`echo $sline | cut -d " " -f 3`
392            num=`grep -c "^$key" ./plist`            num=`grep -c "^$key" ./plist`
393            if test $num = 0 -a $monthDir = 1 ; then            if test $num = 0 -a $monthDir = 1 ; then
394            #- add results from previous month directory to "plist".            #- add results from previous month directory to "plist".
395              monthDir=2              monthDir=2
396              make_resdir_list              make_resdir_list
397              num=`grep -c "^$key" ./plist`              num=`grep -c "^$key" ./plist`
398            fi            fi
399            #- discard unsafe test:            #- discard unsafe test:
400            dd=`echo $optf | grep -c 'gfortran+mth'`            dd=`echo $optf | grep -c 'gfortran+mth'`
401            if test $mname = 'lagoon' -a $dd = 1 ; then num=-1 ; fi            if test $mname = 'lagoon' -a $dd = 1 ; then num=-1 ; fi
# Line 380  for pname in $MACHINES ; do Line 403  for pname in $MACHINES ; do
403            #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
404            #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
405            dd=`echo $optf | grep -c 'bigred.*noieee'`            dd=`echo $optf | grep -c 'bigred.*noieee'`
406            if test $mname = 'bigred' -a $dd = 1 ; then num=-1 ; fi            #if test $mname = 'bigred' -a $dd = 1 ; then num=-1 ; fi
407            if test $num -lt 0 ; then            if test $num -lt 0 ; then
408              echo "  discard $sdir : $type , of='$optf'" | tee -a $OUTPFIL              echo "  discard $sdir : $type , of='$optf'" | tee -a $OUTPFIL
409              cmis=`expr $cmis + 1`              cmis=`expr $cmis + 1`
410            elif test $num = '0' ; then            elif test $num = '0' ; then
411              echo "no previous test for:" $key | tee -a $OUTPFIL              echo "no previous test for:" $key | tee -a $OUTPFIL
412              cmis=`expr $cmis + 1`              cmis=`expr $cmis + 1`
413            else            else
414              pline=`grep "^$key " ./plist | head -1`              pline=`grep "^$key " ./plist | head -1`
415              if test $dBug = 't' ; then              if test $dBug = 't' ; then
416                  echo "s='$sline'" | tee -a $OUTPFIL                  echo "s='$sline'" | tee -a $OUTPFIL
417                  echo "p='$pline'" | tee -a $OUTPFIL                  echo "p='$pline'" | tee -a $OUTPFIL
418              fi              fi
419              pdir=`echo $pline | cut -d " " -f 5`              pdir=`echo $pline | cut -d " " -f 5`
420              outs="$INDIR/$sdir/summary.txt"              outs="$INDIR/$sdir/summary.txt"
421              sed -n "5,$ p" $outs | sed '/^[YN] [YN] [YN] [YN]/ s/ \. //g' \              xx=`( echo 5 ; sed -n '/^  OPTFILE=/=' $outs ) | tail -1`
422                                   | sed 's/ OPTFILE=.*\// OPTFILE=/g' \              sed "1,$xx d" $outs | sed '/^[YN] [YN] [YN] [YN]/ s/ \. //g' \
423                                   | grep -v '^[A-S][a-t]* time:  ' > tmpfs                                  | grep -v '^[A-S][a-t]* time:  ' > tmpfs
424              outp="$INDIR/$pdir/summary.txt"              outp="$INDIR/$pdir/summary.txt"
425              sed -n "5,$ p" $outp | sed '/^[YN] [YN] [YN] [YN]/ s/ \. //g' \              xx=`( echo 5 ; sed -n '/^  OPTFILE=/=' $outp ) | tail -1`
426                                   | sed 's/ OPTFILE=.*\// OPTFILE=/g' \              sed "1,$xx d" $outp | sed '/^[YN] [YN] [YN] [YN]/ s/ \. //g' \
427                                   | grep -v '^[A-S][a-t]* time:  ' > tmpfp                                  | grep -v '^[A-S][a-t]* time:  ' > tmpfp
428              #-- re-order list of exp (according to local "sort" order)              #-- re-order list of exp (according to local "sort" order)
429              listD=`grep '^[YN] [YN] [YN] [YN]' tmpfs | awk '{print $NF}' | sort`              listD=`grep '^[YN] [YN] [YN] [YN]' tmpfs | awk '{print $NF}' | sort`
430              for xx in $listD              for xx in $listD
# Line 421  for pname in $MACHINES ; do Line 444  for pname in $MACHINES ; do
444              diff tmpfs tmpfp > tmpdf              diff tmpfs tmpfp > tmpdf
445              yy=$?              yy=$?
446              if test $yy != '0' ; then              if test $yy != '0' ; then
447                  echo " $type , of='$optf'" | tee -a $OUTPFIL                  echo " $type , of='$optf'" | tee -a $OUTPFIL
448                  #grep '^run: ' $outp                  #grep '^run: ' $outp
449                  #grep '^run: ' $outs                  #grep '^run: ' $outs
450                  #-- score for each test:                  #-- score for each test:
# Line 439  for pname in $MACHINES ; do Line 462  for pname in $MACHINES ; do
462                  ndf=`expr $ndf / 2`                  ndf=`expr $ndf / 2`
463                  nn=`grep -c '^---' tmpdf`                  nn=`grep -c '^---' tmpdf`
464                  ndf=`expr $ndf - $nn`                  ndf=`expr $ndf - $nn`
465                  if [ $ndf -le $NBLDIFF ] ; then                  if [ $ndf -le $NBLDIFF ] ; then
466                    cat tmpdf                    cat tmpdf
467                  else                  else
468                    echo " $ndf lines differ ( $score_s , $score_p )"                    echo " $ndf lines differ ( $score_s , $score_p )"
# Line 447  for pname in $MACHINES ; do Line 470  for pname in $MACHINES ; do
470                  echo "< "`head -1 $outs`" ( $score_s )" >> $OUTPFIL                  echo "< "`head -1 $outs`" ( $score_s )" >> $OUTPFIL
471                  echo "> "`head -1 $outp`" ( $score_p )" >> $OUTPFIL                  echo "> "`head -1 $outp`" ( $score_p )" >> $OUTPFIL
472                  cat tmpdf >> $OUTPFIL                  cat tmpdf >> $OUTPFIL
473                  if [ $cdif -eq 0 ] ; then                  if [ $cdif -eq 0 ] ; then
474                    clin=`printf '%3i (%5s,%5s)' $ndf $score_s $score_p`                    clin=`printf '%3i (%5s,%5s)' $ndf $score_s $score_p`
475                  else                  else
476                    clin="$clin,"`printf '%3i (%5s,%5s)' $ndf $score_s $score_p`                    clin="$clin,"`printf '%3i (%5s,%5s)' $ndf $score_s $score_p`
477                  fi                  fi
478                  cdif=`expr $cdif + 1`                  cdif=`expr $cdif + 1`
479                  echo '----------------------------------------' | tee -a $OUTPFIL                  echo '----------------------------------------' | tee -a $OUTPFIL
480              else              else
481                  echo " $type , of='$optf'" | tee -a $OUTPFIL                  echo " $type , of='$optf'" | tee -a $OUTPFIL
482              fi              fi
483              rm -f tmpfs tmpfp tmpdf              rm -f tmpfs tmpfp tmpdf
484            fi            fi
485          done          done
486          if [ $cmis -gt 0 ] ; then tmis='(-'$cmis')' ; else tmis='(--)' ; fi          if [ $cmis -gt 0 ] ; then tmis='(-'$cmis')' ; else tmis='(--)' ; fi
487          printf '%11s :  %3i      %4s   %3i  ' $pname $ctot $tmis $cdif >> $OUTPSUM          printf '%11s :  %3i      %4s   %3i  ' $sname $ctot $tmis $cdif >> $OUTPSUM
488          if [ $cdif -gt 0 ] ; then          if [ $cdif -gt 0 ] ; then
489            echo "   $clin" >> $OUTPSUM            echo "   $clin" >> $OUTPSUM
490         else echo "" >> $OUTPSUM ; fi          else echo "" >> $OUTPSUM ; fi
491      fi      fi
492    
493  done  done
Legend:
Removed from v.1.25  
changed lines
  Added in v.1.33
  ViewVC Help
Powered by ViewVC 1.1.22