Home
last modified time | relevance | path

Searched refs:ycoor (Results 1 – 5 of 5) sorted by relevance

/phasta/phSolver/common/
H A DBCprofile2.f37 real*8 xcoor,ycoor,zcoor local
55 ycoor=x(nn,2)
63 if(ycoor<(-0.587375+1.0e-4))then
64 ry=(ycoor+0.587375)/1.0e-4
65 elseif(ycoor>(0.587375-1.0e-4))then
66 ry=(0.587375-ycoor)/1.0e-4
H A DsetBlowing_Duct3.f14 real Temp,veloMag,xcoor,ycoor,zcoor,rz,ratio_s local
43 ycoor=x(nn,2)
61 $ sqrt(abs((xcoor-x_begin)**2+(ycoor-y_begin)**2))/edge_length
H A DsetSuction_Duct3.f9017 real*8 xcoor,ycoor,zcoor local
50 ycoor = x(nn,2)
61 … if((ycoor > 0) .and. (xcoor .le. xsideTopMax)) then !hack to prevent edges from turning on.
H A DINIprofile.f175 real*8 xcoor,ycoor,zcoor local
204 ycoor=x(nn,2)
293 & ycoor .lt. -0.044449)then ! this is the jet device
/phasta/phSolver/compressible/
H A DsetBlowing_Duct2.f15 real*8 xcoor,ycoor,zcoor local