Lines Matching refs:wnrm
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) !
70 ull(:)=ull(:)-ubn*wnrm(nodw,:) ! ull in flow