Home
last modified time | relevance | path

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

/phasta/phSolver/common/
H A Delm3keps.f146 & ssq, ssqInv, two3rdq, pk1, pk2, local
337 pk2 = rho(e)*two3rdq*k*sqrt(ss)
340 if (pk1.lt.pk2) then
345 pk = pk2
346 pk_k = kInv*pk2