Lines Matching refs:nodw
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)
48 & +(x(otwn(nodw),3)-x(nodw,3))*wnrm(nodw,3)
54 ut=utau(ub,dw,rm,nodw,x(nodw,:)) ! find utau
63 ull(:)=y(otwn(nodw),1: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
89 trx(nodw,:)=twoub*ull(:)
92 BC(nodw,7)=tauw*dw/ub-rm
100 evisc(nodw)=tauw*dw/ub-rm
104 & y(nodw,1)**2 !
105 & +y(nodw,2)**2 ! flow is auto-|| at boundary
106 & +y(nodw,3)**2 !
108 BC(nodw,7)=savarw(up,rm,saCv1,nodw,x(nodw,:))
185 function utau(u,y,rm,nodw,x)
190 integer nodw local
212 write(*,*)'utau failed to converge at ',nodw,x(1),x(2),x(3)
252 function savarw(up,rm,cv1,nodw,x)
257 integer nodw local
279 write(*,*)'savarw failed to converge at ',nodw,x(1),x(2),x(3)