Home
last modified time | relevance | path

Searched refs:bcool (Results 1 – 5 of 5) sorted by relevance

/phasta/phSolver/compressible/
H A De3massl.f1 subroutine e3massl (bcool, shape, WdetJ, A0, argument
25 & shpij(npro), bcool(npro)
30 bcool = WdetJ * bcool ! note that bcool is not used after this
44 fact(:,1) = shpij * (temp + bcool*spongeContinuity)
45 fact(:,2) = shpij * (temp + bcool*spongeMomentum1)
46 fact(:,3) = shpij * (temp + bcool*spongeMomentum2)
47 fact(:,4) = shpij * (temp + bcool*spongeMomentum3)
48 fact(:,5) = shpij * (temp + bcool*spongeEnergy)
H A De3source.f5 & 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))
[all …]
H A De3.f91 dimension x(npro,3), bcool(npro)
193 & xl, shape, bcool)
195 bcool=zero
255 call e3massl (bcool,shape, WdetJ, A0, EGmass)
268 & A0, bcool, tau,
277 & A0, bcool, PTau,
H A De3bdg_nd.f3 & A0, bcool, PTau, argument
13 & shp(npro,nshl), bcool(npro),
224 tmp = WdetJ * (Dtgl * ff + bcool)
H A De3bdg.f3 & A0, bcool, tau, argument
13 & shp(npro,nshl), bcool(npro),
223 tmp = WdetJ * (Dtgl * ff + bcool)