Home
last modified time | relevance | path

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

/phasta/phSolver/incompressible/
H A Dgetdiff.f15 real*8 epsilon_ls, kay, epsilon
351 double precision eviscKE, kay, epsilon, dw, CmuKE
356 kay = 0.0
360 kay = kay + shape(e,n)*yl(e,n,6)
364 kay = abs(kay)
365 if(kay.lt.1.0e-32) kay=0.0
371 Rey = sqrt(kay) * dw * rho(e) / rmu(e)
372 Ret = kay*kay * epsInv * rho(e) / rmu(e)
378 eviscKE=rho(e)*ke_C_mu*fmuKE*kay*kay*epsInv
H A De3source.f265 & kay(npro), epsilon(npro), fmu(npro), fmui(npro), local
480 kay(:)=zero
484 kay(ii) = kay(ii) + shape_funct(ii,jj) * yl(ii,jj,6)
492 call elm3keps (kay, epsilon,
/phasta/phSolver/common/
H A Delm3keps.f110 subroutine elm3keps (kay, epsilon, argument
117 real*8 kay(npro), epsilon(npro), local
175 k = abs(kay(e))
/phasta/phSolver/incompressible/e3source/
H A De3source.fRHSonly261 & kay(npro), epsilon(npro), fmu(npro), fmui(npro),
442 kay(:)=zero
446 kay(ii) = kay(ii) + shape_funct(ii,jj) * yl(ii,jj,6)
454 call elm3keps (kay, epsilon,
H A De3source.fimplicit261 & kay(npro), epsilon(npro), fmu(npro), fmui(npro),
456 kay(:)=zero
460 kay(ii) = kay(ii) + shape_funct(ii,jj) * yl(ii,jj,6)
468 call elm3keps (kay, epsilon,