Lines Matching refs:k
132 real*8 k, kInv, kq, eps, y, epsInv, epsP2, local
175 k = abs(kay(e))
176 if (k.lt.1.e-32) k=0
187 kq = sqrt(k)
193 if ( k .gt.1.e-32 ) then
194 kInv = 1. / k
195 kqInv = 1./sqrt(k)
199 kk = k * k
236 Ret_k = 2. * k * epsInv * nuInv
272 T1st = k * epsInv ! 1st time scale
291 Tscale_eps= -k*epsP2Inv ! AcuSolve's choice
320 mut = rho(e)*CmuKE*fmuKE* k *Tscale
323 & fmuKE_k*k*Tscale
325 & + fmuKE *k*Tscale_k
328 mut_eps = rho(e) * CmuKE *k*(
337 pk2 = rho(e)*two3rdq*k*sqrt(ss)