Lines Matching refs:Tinv
147 & pk, pk_k, pk_eps, Tscale,Tinv, local
280 Tinv = 0
286 if(Tscale.gt.1.e-32) Tinv=1./Tscale
296 Tinv = 0
298 if(Tscale.gt.1.e-32) Tinv=1./Tscale
352 src(e,2) = ff1 * Ce1 * pk * Tinv
353 & -rho(e)* Ce2 * f2 * eps * Tinv
357 & ff1 * Ce1 * pk * Tinv
358 & -rho(e)* Ce2 * f2 * eps * Tinv
364 & ff1_k * Ce1 * pk * Tinv
365 & +ff1 * Ce1 * pk_k * Tinv
366 & -ff1 * Ce1 * pk * Tscale_k * Tinv**2
367 & -rho(e) * Ce2 * f2_k * eps * Tinv
368 & +rho(e) * Ce2 * f2 * eps * Tscale_k * Tinv**2 ! do not touch
371 & ff1_eps * Ce1 * pk * Tinv
372 & +ff1 * Ce1 * pk_eps * Tinv
373 & -ff1 * Ce1 * pk * Tscale_eps * Tinv**2
374 & -rho(e) * Ce2 * f2_eps * eps * Tinv
375 & -rho(e) * Ce2 * f2 * Tinv
376 & +rho(e) * Ce2 * f2* eps * Tscale_eps * Tinv**2