Searched refs:wallssVec (Results 1 – 2 of 2) sorted by relevance
| /phasta/phSolver/incompressible/ |
| H A D | bflux.f | 4 & BC, iper , wallssVec) argument
44 & flxTot(nflow), wallssVec(nshg,3) local
266 wallssVec=rtmp(:,1:ndofwss)
270 wallssVec = zero
314 wallssVec = zero
324 wallssVec(i,1) = flxres(i,1) - tn * flxnrm(i,1)
325 wallssVec(i,2) = flxres(i,2) - tn * flxnrm(i,2)
326 wallssVec(i,3) = flxres(i,3) - tn * flxnrm(i,3)
390 & wallssVec,'d',nshg,ndofwss,lstep)
|
| H A D | itrdrv.f | 98 real*8, allocatable, dimension(:,:) :: wallssVec, wallssVecbar local
181 allocate(wallssVec(nshg,3))
574 & BC, iper, wallssVec)
631 & call collectErrorYbar(ybar,yold,wallssVec,wallssVecBar,
760 deallocate(wallssVec)
1841 subroutine collectErrorYbar(ybar,yold,wallssVec,wallssVecBar, argument
1922 wallssVecBar(:,1) = tfact*wallssVec(:,1)
1924 wallssVecBar(:,2) = tfact*wallssVec(:,2)
1926 wallssVecBar(:,3) = tfact*wallssVec(:,3)
|