Symbol Description Uses
maxdiff 6



File Line number Procedure Code
./verification/natl_box/results/comp_orig.F 17 NO PROCEDURE
      real*4 fld1(nx,ny), fld2(nx,ny), maxdiff
./verification/natl_box/results/comp_orig.F 27 NO PROCEDURE
      maxdiff=0.
./verification/natl_box/results/comp_orig.F 34 NO PROCEDURE
               maxdiff=max(maxdiff,abs(fld1(i,j)-fld2(i,j)))
./verification/natl_box/results/comp_orig.F 41 NO PROCEDURE
      if(maxdiff.lt.5e-4) then
./verification/natl_box/results/comp_orig.F 47 NO PROCEDURE
      print*,'Maximum difference is',maxdiff,' m.'