53        temperature = max(temperature, 1e-9); 
 
   54        temperature = min(temperature, 500.0); 
 
   55        pressure = max(pressure, 0.0); 
 
   56        pressure = min(pressure, 1e8); 
 
   62        const Scalar M_m = 1e3*Mesitylene::molarMass(); 
 
   63        const Scalar M_a = 1e3*Air::molarMass(); 
 
   64        const Scalar Tb_m = 437.9;        
 
   65        const Scalar sigma_a = 3.711;     
 
   66        const Scalar T_scal_a = 78.6;     
 
   67        const Scalar V_B_m = 162.6;       
 
   70        const Scalar sigma_m = 1.18*cbrt(V_B_m);     
 
   71        const Scalar sigma_am = 0.5*(sigma_a + sigma_m);
 
   72        const Scalar T_scal_m = 1.15*Tb_m;
 
   73        const Scalar T_scal_am = sqrt(T_scal_a*T_scal_m);
 
   75        Scalar T_star = temperature/T_scal_am;
 
   76        T_star = max(T_star, 1e-5); 
 
   78        const Scalar Omega = 1.06036/pow(T_star, 0.1561) + 0.193/exp(T_star*0.47635)
 
   79            + 1.03587/exp(T_star*1.52996) + 1.76474/exp(T_star*3.89411);
 
   80        const Scalar B_ = 0.00217 - 0.0005*sqrt(1.0/M_a + 1.0/M_m);
 
   81        const Scalar Mr = (M_a + M_m)/(M_a*M_m);
 
   82        const Scalar D_am = (B_*sqrt(temperature*temperature*temperature*Mr))
 
   83                           /(1e-5*pressure*power(sigma_am, 2) * Omega);