Home
last modified time | relevance | path

Searched refs:pres (Results 1 – 20 of 20) sorted by relevance

/phasta/phSolver/compressible/
H A Dgetthm.f1 subroutine getthm (pres, T, Sclr, rk, rho, argument
49 dimension pres(npro), Sclr(npro),
76 pres = Rgas * rho * T
111 rho = pres / ( Rgas * T )
135 rsrhog(:) = pres(:) / ( Rgas * T(:))
137 & (1+0.000000000517992*(pres-18.02))
169 betaT = one / pres
187 & (1+0.000000000517992*(pres-18.02))
189 tmpl = T*3.264*1000 + pres/rsrhol ! enthalpy of liquid phase
205 tmpg = one / pres ! betaT for gas phase
[all …]
H A De3qvar.f48 & u3(npro), pres(npro)
60 pres = zero
72 pres = pres + shp(:,n) * ycl(:,n,1)
95 call getthm (pres, T, Sclr,
H A De3conv.f3 & rho, pres, T, argument
53 & rho(npro), pres(npro),
77 ri(:, 2) = (- u1) * rho * u1 - pres
80 ri(:, 5) = (- u1) * rho * (ei + rk) - u1 * pres
84 ri(:, 8) = (- u2) * rho * u2 - pres
86 ri(:,10) = (- u2) * rho * (ei + rk) - u2 * pres
91 ri(:,14) = (- u3) * rho * u3 - pres
92 ri(:,15) = (- u3) * rho * (ei + rk) - u3 * pres
H A De3b.f73 & rho(npro), pres(npro),
131 & bnorm, pres, T,
163 where (.not.btest(iBCB(:,1),1)) p = pres
337 & - ( tau1n(iel) - bnorm(iel,1)*pres(iel))
340 & - ( tau2n(iel) - bnorm(iel,2)*pres(iel))
343 & - ( tau3n(iel) - bnorm(iel,3)*pres(iel))
357 tau1n = ( pres * bnorm(:,1) - tau1n ) * WdetJb
358 tau2n = ( pres * bnorm(:,2) - tau2n ) * WdetJb
359 tau3n = ( pres * bnorm(:,3) - tau3n ) * WdetJb
H A De3bvar.f3 & g3yi, WdetJb, bnorm, pres, T, argument
61 & pres(npro), T(npro),
89 pres = zero
98 pres = pres + shpb(:,nodlcl) * yl(:,nodlcl,1)
121 call getthm (pres, T, temp,
421 & pres(npro), T(npro),
445 pres = zero
458 pres = pres + shpb(:,nodlcl) * ycl(:,nodlcl,1)
474 call getthm (pres, T, Sclr,
H A De3ivar.f6 & rho, pres, T, argument
72 & rho(npro), pres(npro),
142 pres = zero
151 pres = pres + shape(:,n) * ycl(:,n,1)
219 call getthm (pres, T, Sclr,
562 & rho(npro), pres(npro),
588 pres = zero
601 pres = pres + shape(:,n) * ycl( :,n,1)
642 call getthm (pres, T, Sclr,
H A De3.f69 dimension rho(npro), pres(npro),
134 & rho, pres, T,
149 call e3mtrx (rho, pres, T,
165 & rho, pres, T,
191 & u3, pres, sforce,
212 & compK, pres, PTau)
H A DsetBlowing_Duct2.f19 real*8 yVel, Temp, pres, mdot, rho, Area local
H A De3mtrx.f1 subroutine e3mtrx (rho, pres, T, argument
49 dimension rho(npro), pres(npro),
H A De3ls.f12 & compK, pres, PTau) argument
75 & pres(npro)
214 & cv, compK, pres,
H A De3source.f3 & u3, pres, sforce,
31 & pres(npro),
H A De3tau.f290 & cv, compK, pres,
338 & T(npro), pres(npro), alphap(npro),
751 & cv, compK, pres,
800 & T(npro), pres(npro), alphap(npro),
/phasta/phSolver/incompressible/
H A De3b.f67 & unm(npro), pres(npro),
129 & bnorm, pres,
157 & - ( tau1n(iel) - bnorm(iel,1)*pres(iel))
160 & - ( tau2n(iel) - bnorm(iel,2)*pres(iel))
163 & - ( tau3n(iel) - bnorm(iel,3)*pres(iel))
184 pres(iel) = zero
187 pres(iel) = pres(iel)
214 pres(iel) = zero ! to avoid the gauss point loop
270 rNa(:,1) = -WdetJb * ( tau1n - bnorm(:,1) * pres - vdot(:,1))
271 rNa(:,2) = -WdetJb * ( tau2n - bnorm(:,2) * pres - vdot(:,2))
[all …]
H A De3.f55 & pres(npro), u1(npro),
102 & WdetJ, rho, pres,
123 & rl, pres, acl,
H A De3ivar.f5 & WdetJ, rho, pres, argument
62 & rho(npro), pres(npro),
81 pres = zero
87 pres = pres + shpfun(:,n) * yl(:,n,1)
H A De3bvar.f4 & WdetJb, bnorm, pres, argument
57 & pres(npro),
119 pres = zero
128 pres = pres + shpb(:,nodlcl) * yl(:,nodlcl,1)
363 pres = pres - temp1
H A De3res.f7 & rl, pres, acl, argument
47 & pres(npro)
102 tmp = -pres + tauC * (g1yi(:,2) + g2yi(:,3) + g3yi(:,4))
H A DadvLES.f24 & pres(npro), u1(npro),
89 pres = zero
95 pres(:) = pres(:) + shp(n,intp) * yl(:,n,1)
/phasta/phSolver/common/
H A DINIprofile.f177 real*8 xVel, pres, Temp local
H A Dinput.config265 Pressure: 1. #pres This is used in sponge
440 Apply Atmospheric Perturbation: 0 #BCdtKW =0 none, =1 pres, =2 AoA