Lines Matching defs:setBlowing_Duct2

6         subroutine setBlowing_Duct2(x,BC,y,iTurbWall,istp)  subroutine
13         integer istp
14         integer i, nn
15         real*8 xcoor,ycoor,zcoor
16         real*8 BC(nshg,ndofBC)
17         real*8 x(nshg,nsd)
18         real*8 y(nshg,ndof)
19         real*8 yVel, Temp, pres, mdot, rho, Area
20         real*8 xminm,xmaxm,zminm,zmaxm,xlm,zlm
21         real rx,rz
22         integer isfID
23         real*8 contraPres, contraTemp, contraXVel, contraRho, 
24      &         contraArea, contraMdot  
25         real*8 blowingPres,blowingTemp,blowingRho,blowingArea,
26      &         MdotRatio,blowingMdot,blowVel
27         integer contraProbeNo,blowingProbeNo        
28         integer iTurbWall(nshg)