Searched defs:setSuction_Duct3 (Results 1 – 1 of 1) sorted by relevance
| /phasta/phSolver/common/ |
| H A D | setSuction_Duct3.f90 | 5 subroutine setSuction_Duct3(x,BC,y, ilwork) subroutine
12 integer i, j, k, nn, nL
13 integer ilwork(nlwork)
14 integer nSuctionNode
15 integer, allocatable :: suctionNodeMap(:)
17 real*8 xcoor,ycoor,zcoor
18 real*8 BC(nshg,ndofBC)
19 … real*8 BC3(numnp, 5) !used for hack to get suction right on part boundaries
20 real*8 x(nshg,nsd), y(nshg,ndof)
25 … real*8 nvel_s, nvel_t, nvel_b !normal velocity on the side walls, top, and bottom
|