/[MITgcm]/MITgcm/verification/testreport
ViewVC logotype

Diff of /MITgcm/verification/testreport

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

revision 1.63 by jmc, Wed Jan 26 00:24:06 2005 UTC revision 1.65 by jmc, Fri Feb 4 14:43:20 2005 UTC
# Line 529  int main( int argc, char** argv )  { Line 529  int main( int argc, char** argv )  {
529      abave = 0.5*(fabs(a)+fabs(b));      abave = 0.5*(fabs(a)+fabs(b));
530      if (abave > 0.0) {      if (abave > 0.0) {
531        relerr=fabs(a-b)/abave;        relerr=fabs(a-b)/abave;
532        if (relerr > 0.0) { linnum = (int)lrint(log10(relerr)); }        if (relerr > 0.0) { linnum = (int)rint(log10(relerr)); }
533        else { linnum = -16 ; }        else { linnum = -16 ; }
534        best = (best > linnum) ? best : linnum;        best = (best > linnum) ? best : linnum;
535      }      }
# Line 1072  fi Line 1072  fi
1072  rm -f tmp_cmpnum.c tmp_cmpnum  rm -f tmp_cmpnum.c tmp_cmpnum
1073    
1074  if test "x$CLEANUP" != xt ; then  if test "x$CLEANUP" != xt ; then
1075      cat $SUMMARY      cat $SUMMARY | sed 's/ -- -- -- --//g'
1076      if test -e tr_out.txt ; then      if test -e tr_out.txt ; then
1077          mv tr_out.txt tr_out.txt.old          mv tr_out.txt tr_out.txt.old
1078      fi      fi
1079      cat $SUMMARY > tr_out.txt      cat $SUMMARY | sed 's/ -- -- -- --//g' > tr_out.txt
1080  fi  fi
1081    
1082  if test "x$DELDIR" = xt ; then  if test "x$DELDIR" = xt ; then
Legend:
Removed from v.1.63  
changed lines
  Added in v.1.65
  ViewVC Help
Powered by ViewVC 1.1.22