Lines Matching refs:rerr
61 …real*8 rerr(nshg,10),ybar(nshg,ndof+8) ! 8 is for avg. of square as uu, vv, ww, pp, TT, uv, uw, an… local
196 rerr = zero
322 rerr=zero !extreme limit of 1 step window or error stats....later a variable
471 & rerr, fncorp )
487 & rerr)
505 & rerr)
524 & rerr)
737 errmax=maxval(rerr(:,6))
746 where(rerr(:,6).gt.errswitch)
747 rerr(:,6)=1.0
749 rerr(:,6)=1e-10
751 rerr(:, 7)=rerr(:, 7)+(yold(:,1)-ybar(:,1))**2
752 rerr(:, 8)=rerr(:, 8)+(yold(:,2)-ybar(:,2))**2
753 rerr(:, 9)=rerr(:, 9)+(yold(:,3)-ybar(:,3))**2
754 rerr(:,10)=rerr(:,10)+(yold(:,4)-ybar(:,4))**2
766 call checkpoint (nstp,yold, acold, ybar, rerr, velbar,
771 call checkpoint (nstp,yold, acold, ybar, rerr, velbar,
776 call checkpoint (nstp,yold, acold, ybar, rerr, velbar,
867 subroutine checkpoint (nstp,yold, acold, ybar, rerr, velbar, argument
878 & rerr(nshg,10), ybar(nshg,ndof+8) local
915 call errsmooth( rerr, x, iper, ilwork, shp, shgl, iBC )
919 & rerr, 'd'//char(0), nshg, 10, lstep)