Lines Matching refs:nn
10 integer i, nn local
38 nn=jetinletf(i)
39 if(iTurbWall(nn).eq.0)then
42 xcoor=x(nn,1)
43 ycoor=x(nn,2)
44 zcoor=x(nn,3)
68 BC(nn,2) = Temp ! Temp
69 BC(nn,3) = veloMag*jetnx ! set x velocity
70 BC(nn,4) = veloMag*jetny ! set y velocity
71 BC(nn,5) = 0 ! set zVel=0
73 BC(nn,2) = qold(nn,5) ! Temp
74 BC(nn,3) = 0 ! set x velocity
75 BC(nn,4) = qold(nn,3) ! set y velocity
76 BC(nn,5) = 0 ! set zVel=0
77 BC(nn,7) = qold(nn,6)
82 BC(nn,2) = 317 ! Temp
83 BC(nn,3) = BlowingVelDuct*0.882947592858928 ! set x velocity
84 BC(nn,4) = BlowingVelDuct*0.46947156278589 ! set y velocity
85 BC(nn,5) = 0 ! set zVel=0
86 BC(nn,7) = 1.825e-5 ! set varSA = 0