1*59599516SKenneth E. Jansenc----------------------------------------------------------------------- 2*59599516SKenneth E. Jansenc 3*59599516SKenneth E. Jansenc Lam-Bremhorst Kay-Epsilon turbulence model constants 4*59599516SKenneth E. Jansenc 5*59599516SKenneth E. Jansenc----------------------------------------------------------------------- 6*59599516SKenneth E. Jansen module turbKE 7*59599516SKenneth E. Jansen 8*59599516SKenneth E. Jansen real*8 ke_C_mu, ke_C_eps1, ke_C_eps2 9*59599516SKenneth E. Jansen real*8 ke_sigma, ke_otherstuff 10*59599516SKenneth E. Jansen parameter ( 11*59599516SKenneth E. Jansen & ke_C_mu = 0.09, 12*59599516SKenneth E. Jansen & ke_C_eps1 = 1.44, 13*59599516SKenneth E. Jansen & ke_C_eps2 = 1.92, 14*59599516SKenneth E. Jansen & ke_sigma = 1.3, 15*59599516SKenneth E. Jansen & ke_otherstuff = 1.50d0 16*59599516SKenneth E. Jansen & ) 17*59599516SKenneth E. Jansen 18*59599516SKenneth E. Jansen 19*59599516SKenneth E. Jansen end module 20*59599516SKenneth E. Jansen 21