Searched refs:veloMag (Results 1 – 1 of 1) sorted by relevance
| /phasta/phSolver/common/ |
| H A D | setBlowing_Duct3.f | 14 real Temp,veloMag,xcoor,ycoor,zcoor,rz,ratio_s local
66 veloMag=200.0*max(0.0,min(1.0,ratio_s))
69 BC(nn,3) = veloMag*jetnx ! set x velocity
70 BC(nn,4) = veloMag*jetny ! set y velocity
|