/[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.8 by jmc, Thu Apr 16 14:45:53 2009 UTC revision 1.11 by jmc, Tue Jun 16 20:27:39 2009 UTC
# Line 286  for mname in $MACHINES ; do Line 286  for mname in $MACHINES ; do
286                  cat ./slist | tee -a $OUTPFIL                  cat ./slist | tee -a $OUTPFIL
287            fi            fi
288            echo   ".... previous list (n=$n):" | tee -a $OUTPFIL            echo   ".... previous list (n=$n):" | tee -a $OUTPFIL
289                  cat ./plist | tee -a $OUTPFIL                  cat ./plist | tee -a $OUTPFIL | head -20
290          fi          fi
291    
292        fi        fi
# Line 308  for mname in $MACHINES ; do Line 308  for mname in $MACHINES ; do
308            num=`grep -c "^$key" ./plist`            num=`grep -c "^$key" ./plist`
309            #- discard unsafe test:            #- discard unsafe test:
310            dd=`echo $optf | grep -c 'gfortran.*mth'`            dd=`echo $optf | grep -c 'gfortran.*mth'`
311            if test $dd = 1 -a $mname = lagoon ; then num=-1 ; fi            if test $mname = 'lagoon' -a $dd = 1 ; then num=-1 ; fi
312              if test $mname = 'harbor' -a $dd = 1 ; then num=-1 ; fi
313              if test $mname = 'aces' -a $optf = 'linux_ia32_open64' ; then num=-1 ; fi
314              if test $mname = 'aces' -a $optf = 'linux_ia32_g95' ; then num=-1 ; fi
315            if test $num -gt 0 ; then            if test $num -gt 0 ; then
316              pline=`grep "^$key " ./plist | head -1`              pline=`grep "^$key " ./plist | head -1`
317              if test $dBug = 't' ; then              if test $dBug = 't' ; then
# Line 324  for mname in $MACHINES ; do Line 327  for mname in $MACHINES ; do
327              sed -n "5,$ p" $outp | sed '/^[YN] [YN] [YN] [YN]/ s/ \. //g' \              sed -n "5,$ p" $outp | sed '/^[YN] [YN] [YN] [YN]/ s/ \. //g' \
328                                   | sed 's/ OPTFILE=.*\// OPTFILE=/g' \                                   | sed 's/ OPTFILE=.*\// OPTFILE=/g' \
329                                   | grep -v '^[A-S][a-t]* time:  ' > tmpfp                                   | grep -v '^[A-S][a-t]* time:  ' > tmpfp
330                #-- re-order list of exp (according to local "sort" order)
331                listD=`grep '^[YN] [YN] [YN] [YN]' tmpfs \
332                     | sed 's/^[YN] .*pass //' | sed 's/^[YN] .*FAIL //' \
333                     | sed 's/^[YN] .*N\/O  //' | sort`
334                for xx in $listD
335                do
336                    sed "/ $xx\$/d" tmpfs > tmpfn
337                    sed -n "/ $xx\$/p" tmpfs >> tmpfn
338                    mv tmpfn tmpfs
339                done
340                listD=`grep '^[YN] [YN] [YN] [YN]' tmpfp \
341                     | sed 's/^[YN] .*pass //' | sed 's/^[YN] .*FAIL //' \
342                     | sed 's/^[YN] .*N\/O  //' | sort`
343                for xx in $listD
344                do
345                    sed "/ $xx\$/d" tmpfp > tmpfn
346                    sed -n "/ $xx\$/p" tmpfp >> tmpfn
347                    mv tmpfn tmpfp
348                done
349              echo -n "=== diff $sdir $pdir :" | tee -a $OUTPFIL              echo -n "=== diff $sdir $pdir :" | tee -a $OUTPFIL
350              diff tmpfs tmpfp > tmpdf              diff tmpfs tmpfp > tmpdf
351              yy=$?              yy=$?
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.22