Home
last modified time | relevance | path

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

/phasta/phSolver/common/
H A Delm3keps.f138 & Ret_k, Ret_eps, ff1, f2, kkInv, local
257 ff1 = 1. + ( 0.05*fmuKEInv) ** 3 ! f1 as in Lam-Bremhorst
262 if(ff1.gt.1.0e-32) ff1Inv=1./ff1
352 src(e,2) = ff1 * Ce1 * pk * Tinv
357 & ff1 * Ce1 * pk * Tinv
365 & +ff1 * Ce1 * pk_k * Tinv
366 & -ff1 * Ce1 * pk * Tscale_k * Tinv**2
372 & +ff1 * Ce1 * pk_eps * Tinv
373 & -ff1 * Ce1 * pk * Tscale_eps * Tinv**2