Searched refs:prop_blend (Results 1 – 3 of 3) sorted by relevance
| /phasta/phSolver/compressible/ |
| H A D | getthm.f | 60 real*8 prop_blend(npro),test_it(npro) local
123 prop_blend(i) = zero
125 prop_blend(i) = 0.5*(one + Sclr(i)/epsilon_ls +
128 prop_blend(i) = one
138 rho(:) = rsrhol(:)*prop_blend(:)+rsrhog(:)
139 & *(1-prop_blend(:))
153 ei(:) = tmpl(:)*prop_blend(:)+tmpg*(1-prop_blend(:))
178 prop_blend(i) = zero
180 prop_blend(i) = 0.5*(one + Sclr(i)/epsilon_ls +
183 prop_blend(i) = one
[all …]
|
| H A D | getdiff.f | 49 real*8 prop_blend(npro),test_it(npro) local
73 prop_blend = max( min(test_it(:), one ), zero )
75 & *prop_blend
|
| /phasta/phSolver/incompressible/ |
| H A D | getdiff.f | 16 & h_param, prop_blend(npro),test_it(npro)
55 prop_blend(i) = zero
57 prop_blend(i) = 0.5*(one + Sclr(i)/epsilon_ls +
60 prop_blend(i) = one
64 rho = datmat(1,1,2) + (datmat(1,1,1)-datmat(1,1,2))*prop_blend
65 rmu = datmat(1,2,2) + (datmat(1,2,1)-datmat(1,2,2))*prop_blend
|