Home
last modified time | relevance | path

Searched refs:wallssVecBar (Results 1 – 1 of 1) sorted by relevance

/phasta/phSolver/incompressible/
H A Ditrdrv.f631 & call collectErrorYbar(ybar,yold,wallssVec,wallssVecBar,
696 & wallssVecBar,'d',nshg,3,lstep)
1841 subroutine collectErrorYbar(ybar,yold,wallssVec,wallssVecBar, argument
1846 real*8 wallssvec(nshg,3),wallssVecBar(nshg,3), rerr(nshg,numerr) local
1922 wallssVecBar(:,1) = tfact*wallssVec(:,1)
1923 & +(one-tfact)*wallssVecBar(:,1)
1924 wallssVecBar(:,2) = tfact*wallssVec(:,2)
1925 & +(one-tfact)*wallssVecBar(:,2)
1926 wallssVecBar(:,3) = tfact*wallssVec(:,3)
1927 & +(one-tfact)*wallssVecBar(:,3)