Lines Matching refs:prop_blend
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
191 h = tmpl(:)*prop_blend(:)+tmpg*(1-prop_blend(:))
195 cv = tmpl(:)*prop_blend(:)+tmpg*(1-prop_blend(:))
199 cp = tmpl(:)*prop_blend(:)+tmpg*(1-prop_blend(:))
203 alfap = tmpl(:)*prop_blend(:)+tmpg*(1-prop_blend(:))
207 betaT = tmpl(:)*prop_blend(:)+tmpg*(1-prop_blend(:))
211 gamb = tmpl(:)*prop_blend(:)+tmpg*(1-prop_blend(:))
216 c = tmpl(:)*prop_blend(:)+tmpg*(1-prop_blend(:))
277 prop_blend(i) = zero
279 prop_blend(i) = 0.5*(one + Sclr(i)/epsilon_ls +
282 prop_blend(i) = one
292 rho(:)=rsrhol(:)*prop_blend(:)
293 & +rsrhog(:)*(1-prop_blend(:))