Lines Matching refs:BC
5 subroutine setSuction_Duct3(x,BC,y, ilwork) argument
18 real*8 BC(nshg,ndofBC) local
62 BC(nn, 3) = nvel_su*wnorm(nn, 1) ! set xVel
63 BC(nn, 4) = nvel_su*wnorm(nn, 2) ! set yVel
64 BC(nn, 5) = nvel_su*wnorm(nn, 3) ! set zVel
66 BC(nn, 3) = nvel_sl*wnorm(nn, 1) ! set xVel
67 BC(nn, 4) = nvel_sl*wnorm(nn, 2) ! set yVel
68 BC(nn, 5) = nvel_sl*wnorm(nn, 3) ! set zVel
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
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
89 BC3(:,1:3)=BC(:,3:5)
97 bcmag=BC(i,3)**2+BC(i,4)**2+BC(i,5)**2
99 …BC(i,3:5)=BC3(i,1:3)/BC3(i,4) !division by BC3 is necessary to account for more than two blocks s…