Searched refs:nvel_b (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
35 nvel_b = suctionVbottom !normal velocity at the bottom patch
78 else if(abs(nvel_b) > 0 .and. !bottom suction patches
80 BC(nn, 3) = nvel_b*wnorm(nn, 1) ! set xVel using wall normal
81 BC(nn, 4) = nvel_b*wnorm(nn, 2) ! set yVel
82 BC(nn, 5) = nvel_b*wnorm(nn, 3) ! set zVel
|