Searched refs:wnrm (Results 1 – 4 of 4) sorted by relevance
| /phasta/phSolver/common/ |
| H A D | genbc.f | 202 allocate ( wnrm(nshg,3) )
209 wnrm = zero
226 wnrm(:,1:3)=zero
265 wnrm(nn,:)=wnrm(nn,:)+elnrm
288 call rotabc(wnrm, iBC, 'in ')
293 call commu (wnrm, ilwork, 3, 'in ')
296 call bc3per(iBC,wnrm, iper,ilwork, 3)
301 wnmdb=wnrm
303 wnrm(i,:) = wnrm(iper(i),:)
305 wnmdb=wnrm
[all …]
|
| H A D | settauw.f | 37 ub=ull(1)*wnrm(nodw,1) !
38 & +ull(2)*wnrm(nodw,2) ! store u.n here for now
39 & +ull(3)*wnrm(nodw,3) !
41 ull(:)=ull(:)-ub*wnrm(nodw,:) ! ull in flow
46 & (x(otwn(nodw),1)-x(nodw,1))*wnrm(nodw,1)
47 & +(x(otwn(nodw),2)-x(nodw,2))*wnrm(nodw,2)
48 & +(x(otwn(nodw),3)-x(nodw,3))*wnrm(nodw,3)
64 ubn=ull(1)*wnrm(nodw,1) !
65 & +ull(2)*wnrm(nodw,2) ! store u.n here for now
66 & +ull(3)*wnrm(nodw,3) !
[all …]
|
| H A D | turbsa.f | 9 real*8, allocatable :: wnrm(:,:) variable
|
| H A D | proces.f | 252 deallocate(wnrm)
|