Searched refs:nvel_t (Results 1 – 1 of 1) sorted by relevance
| /phasta/phSolver/common/ |
| H A D | setSuction_Duct3.f90 | 25 … real*8 nvel_s, nvel_t, nvel_b !normal velocity on the side walls, top, and bottom local
38 nvel_t = suctionVtop !normal velocity at the top patch
72 else if(abs(nvel_t) > 0 .and. !top suction patch
74 BC(nn, 3) = nvel_t*wnorm(nn, 1) ! set xVel using wall normal
75 BC(nn, 4) = nvel_t*wnorm(nn, 2) ! set yVel
76 BC(nn, 5) = nvel_t*wnorm(nn, 3) ! set zVel
|