--- MITgcm/verification/testreport 2005/01/26 00:24:06 1.63 +++ MITgcm/verification/testreport 2005/01/31 19:26:24 1.64 @@ -1,6 +1,6 @@ #! /usr/bin/env bash # -# $Header: /home/ubuntu/mnt/e9_copy/MITgcm/verification/testreport,v 1.63 2005/01/26 00:24:06 jmc Exp $ +# $Header: /home/ubuntu/mnt/e9_copy/MITgcm/verification/testreport,v 1.64 2005/01/31 19:26:24 edhill Exp $ # $Name: $ # @@ -529,7 +529,7 @@ abave = 0.5*(fabs(a)+fabs(b)); if (abave > 0.0) { relerr=fabs(a-b)/abave; - if (relerr > 0.0) { linnum = (int)lrint(log10(relerr)); } + if (relerr > 0.0) { linnum = (int)rint(log10(relerr)); } else { linnum = -16 ; } best = (best > linnum) ? best : linnum; }