Searched refs:nodw (Results 1 – 1 of 1) sorted by relevance
| /phasta/phSolver/common/ |
| H A D | settauw.f | 29 do nodw = 1, numnp ! loop over nodes
30 if ( otwn(nodw).ne.nodw ) then ! wall node check
32 ull(:)=velbar(ifath(otwn(nodw)),2:4) ! recall old #ing
35 ull(:)=y(otwn(nodw),1:3)
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)
[all …]
|