Searched refs:RetInv (Results 1 – 2 of 2) sorted by relevance
139 & RetInv, fmukeInv, fmukeP2Inv local229 RetInv = 0233 if(Ret.lt.1.d100.AND.Ret.gt.zero) RetInv=1./Ret241 fmuKE = (1. -tmp1) ** 2 * (1.+20.5*RetInv) ! fmu of Lam-Bremhorst252 fmuKE_k = 0.033*(1.-tmp1)*(1.+20.5*RetInv)*Rey_k*tmp1253 & -20.5 *(1.-tmp1)**2 * Ret_k*RetInv**2255 fmuKE_eps= -20.5*(1.-tmp1)**2* Ret_eps*RetInv**2
352 double precision epsInv, Rey, Ret, RetInv, tmp1, fmuKE373 RetInv = 0374 if(Ret.lt.1.d100.AND.Ret.gt.zero) RetInv=1./Ret376 fmuKE = (1. -tmp1) ** 2 * (1.+20.5*RetInv) ! fmu of Lam-Bremhorst