Home
last modified time | relevance | path

Searched refs:qfac (Results 1 – 3 of 3) sorted by relevance

/phasta/phSolver/incompressible/
H A De3source.f260 real*8 SclrNN,qfac,dx,dy,dz,dmax local
359 qfac = sqrt(
369 dwallsqqfact = max(dwall(e)**2*qfac,1.0d-12)
/phasta/phSolver/incompressible/e3source/
H A De3source.fimplicit333 qfac = sqrt(gradV(e,1,1)**2+gradV(e,1,2)**2+gradV(e,1,3)**2
336 qfac = max(qfac,1.0e-10)
337 rd=SclrNN*saKappaP2Inv/(dwall(e)**2*qfac)
344 & rdp = saKappaP2Inv /(qfac * dwall(e)**2)
H A De3source.fRHSonly331 qfac = sqrt(gradV(e,1,1)**2+gradV(e,1,2)**2+gradV(e,1,3)**2