38 max(
min((
rho - rholSat)/(rhovSat - rholSat), scalar(1)), scalar(0))
42 Info<<
"Creating compressibilityModel\n" <<
endl;
43 autoPtr<barotropicCompressibilityModel>
psiModel =
44 barotropicCompressibilityModel::New
46 thermodynamicProperties,
56 + ((gamma*psiv + (1.0 - gamma)*psil) - psi)*
pSat,
77 Info<<
"Reading transportProperties\n" <<
endl;
82 autoPtr<incompressible::turbulenceModel>
turbulence