Home
last modified time | relevance | path

Searched refs:stp (Results 1 – 4 of 4) sorted by relevance

/phasta/phSolver/compressible/
H A De3source.f281 & stp (npro), rp (npro),
391 stp = fv2 + sclrm*fv2p
392 stp = stp/(saKappa*dist2w)**2
394 rp(:) = Stilde(:) - sclrm(:)*stp(:)
408 srcp = saCb1*(sclrm*stp+Stilde)
/phasta/phSolver/incompressible/
H A De3source.f256 & fv1p, fv2p, stp, gp, fwp, rp, local
401 stp = ep*k2d2Inv * fv2 + tmp*fv2p
408 rp = k2d2Inv / st**2 * (ep*st - SclrNN*stp)
428 if(stp .lt. zero) tmp=tmp+SaCb1*stp*SclrNN
/phasta/phSolver/incompressible/e3source/
H A De3source.fRHSonly256 & fv1p, fv2p, stp, gp, fwp, rp,
363 stp = ep*k2d2Inv * fv2 + tmp*fv2p
370 rp = k2d2Inv / st**2 * (ep*st - SclrNN*stp)
390 if(stp .lt. zero) tmp=tmp+SaCb1*stp*SclrNN
H A De3source.fimplicit256 & fv1p, fv2p, stp, gp, fwp, rp,
377 stp = ep*k2d2Inv * fv2 *(one-two*SclrNN*dpod) + tmp*fv2p
384 rp = k2d2Inv / st**2 * (ep*st - SclrNN*(stp+st*two*dpod)
404 if(stp .lt. zero) tmp=tmp+SaCb1*stp*SclrNN