Lines Matching refs:BC
3 subroutine setBlowing_Duct3(x,BC,iTurbWall) argument
11 real*8 BC(nshg,ndofBC) local
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