Lines Matching refs:nn
12 integer i, j, k, nn, nL local
48 nn = suctionNodeMap(i) ! map face node index to global node
49 xcoor = x(nn,1)
50 ycoor = x(nn,2)
54 wnormy = wnorm(nn, 2)
55 wnormz = wnorm(nn, 3)
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