Lines Matching refs:bcool
5 & xl, shpfun, bcool)
38 real*8 src(npro,nflow), bcool(npro),
44 bcool=zero
97 bcool(id)=grthOSponge*(rsq-zoutSponge)**2
98 bcool(id)=min(bcool(id),betamax)
112 & src(id,1) = -bcool(id)*(dui(id,1) - duitarg(id,1))
114 & src(id,2) = -bcool(id)*(dui(id,2) - duitarg(id,2))
116 & src(id,3) = -bcool(id)*(dui(id,3) - duitarg(id,3))
118 & src(id,4) = -bcool(id)*(dui(id,4) - duitarg(id,4))
120 & src(id,5) = -bcool(id)*(dui(id,5) - duitarg(id,5))
149 bcool(id)=grthOSponge*((zval-zoutSponge)**2
151 bcool(id)=min(bcool(id),betamax)
165 & src(id,1) = -bcool(id)*(dui(id,1) - duitarg(id,1))
167 & src(id,2) = -bcool(id)*(dui(id,2) - duitarg(id,2))
169 & src(id,3) = -bcool(id)*(dui(id,3) - duitarg(id,3))
171 & src(id,4) = -bcool(id)*(dui(id,4) - duitarg(id,4))
173 & src(id,5) = -bcool(id)*(dui(id,5) - duitarg(id,5))