Lines Matching refs:pres
1 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
215 tmpl = sqrt(pres/rsrhol)
266 rho = pres / ( Rgas * T )
289 rsrhog(:) = pres(:) / ( Rgas * T(:))
291 & (1+0.000000000517992*(pres-18.02))
315 betaT = one / pres