Lines Matching refs:ybar
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
197 ybar(:,1:ndof) = y(:,1:ndof)
199 ybar(:,ndof+idof) = y(:,idof)*y(:,idof)
201 ybar(:,ndof+6) = y(:,1)*y(:,2)
202 ybar(:,ndof+7) = y(:,1)*y(:,3)
203 ybar(:,ndof+8) = y(:,2)*y(:,3)
719 ybar(:,idof) =tfact*yold(:,idof) +
720 & (one-tfact)*ybar(:,idof)
725 ybar(:,ndof+idof) = tfact*yold(:,idof)**2 +
726 & (one-tfact)*ybar(:,ndof+idof)
728 ybar(:,ndof+6) = tfact*yold(:,1)*yold(:,2) + !uv
729 & (one-tfact)*ybar(:,ndof+6)
730 ybar(:,ndof+7) = tfact*yold(:,1)*yold(:,3) + !uw
731 & (one-tfact)*ybar(:,ndof+7)
732 ybar(:,ndof+8) = tfact*yold(:,2)*yold(:,3) + !vw
733 & (one-tfact)*ybar(:,ndof+8)
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
907 & ybar,'d'//char(0),nshg,ndof+8,lstep)