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.' |