/[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.10 by jmc, Thu May 21 15:42:46 2009 UTC revision 1.13 by jmc, Sun Jun 28 16:59:59 2009 UTC
# Line 43  NBLDIFF=5 Line 43  NBLDIFF=5
43  ADDRESS='none'  ADDRESS='none'
44  dBug=f  dBug=f
45  sTime=`date`  sTime=`date`
46    #- to get case insensitive "ls" (and order of tested experiments)
47    export LC_ALL="en_US.UTF-8"
48    
49  #  Parse options  #  Parse options
50  ac_prev=  ac_prev=
# Line 308  for mname in $MACHINES ; do Line 310  for mname in $MACHINES ; do
310            num=`grep -c "^$key" ./plist`            num=`grep -c "^$key" ./plist`
311            #- discard unsafe test:            #- discard unsafe test:
312            dd=`echo $optf | grep -c 'gfortran.*mth'`            dd=`echo $optf | grep -c 'gfortran.*mth'`
313            if test $mname = 'lagoon' -a $dd = 1 ; then num=-1 ; fi            #if test $mname = 'lagoon' -a $dd = 1 ; then num=-1 ; fi
314            if test $mname = 'harbor' -a $dd = 1 ; then num=-1 ; fi            #if test $mname = 'harbor' -a $dd = 1 ; then num=-1 ; fi
315            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
316            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
317            if test $num -gt 0 ; then            if test $num -gt 0 ; then
318              pline=`grep "^$key " ./plist | head -1`              pline=`grep "^$key " ./plist | head -1`
319              if test $dBug = 't' ; then              if test $dBug = 't' ; then
# Line 327  for mname in $MACHINES ; do Line 329  for mname in $MACHINES ; do
329              sed -n "5,$ p" $outp | sed '/^[YN] [YN] [YN] [YN]/ s/ \. //g' \              sed -n "5,$ p" $outp | sed '/^[YN] [YN] [YN] [YN]/ s/ \. //g' \
330                                   | sed 's/ OPTFILE=.*\// OPTFILE=/g' \                                   | sed 's/ OPTFILE=.*\// OPTFILE=/g' \
331                                   | grep -v '^[A-S][a-t]* time:  ' > tmpfp                                   | grep -v '^[A-S][a-t]* time:  ' > tmpfp
332                #-- re-order list of exp (according to local "sort" order)
333                listD=`grep '^[YN] [YN] [YN] [YN]' tmpfs \
334                     | sed 's/^[YN] .*pass //' | sed 's/^[YN] .*FAIL //' \
335                     | sed 's/^[YN] .*N\/O  //' | sort`
336                for xx in $listD
337                do
338                    sed "/ $xx\$/d" tmpfs > tmpfn
339                    sed -n "/ $xx\$/p" tmpfs >> tmpfn
340                    mv tmpfn tmpfs
341                done
342                listD=`grep '^[YN] [YN] [YN] [YN]' tmpfp \
343                     | sed 's/^[YN] .*pass //' | sed 's/^[YN] .*FAIL //' \
344                     | sed 's/^[YN] .*N\/O  //' | sort`
345                for xx in $listD
346                do
347                    sed "/ $xx\$/d" tmpfp > tmpfn
348                    sed -n "/ $xx\$/p" tmpfp >> tmpfn
349                    mv tmpfn tmpfp
350                done
351              echo -n "=== diff $sdir $pdir :" | tee -a $OUTPFIL              echo -n "=== diff $sdir $pdir :" | tee -a $OUTPFIL
352              diff tmpfs tmpfp > tmpdf              diff tmpfs tmpfp > tmpdf
353              yy=$?              yy=$?
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.13
  ViewVC Help
Powered by ViewVC 1.1.22