5 double T_1_M[]={-18.0, -6.7, 0.0, 4.4, 15.6, 26.7, 37.8};
6 double RHO_A_M[] = {1.38, 1.32, 1.293, 1.27, 1.22, 1.18, 1.13};
7 double MU_A_M[] = {0.0157E-3, 0.0168E-3, 0.0171E-3, 0.0173E-3, 0.0179E-3, 0.0184E-3, 0.0190E-3};
9 double T_2_M[] = {0.0, 2.0, 4.0, 6.0, 8.0, 10.0, 12.0, 14.0, 16.0, 18.0,
10 20.0, 22.0, 24.0, 26.0, 28.0, 30.0, 35.0, 40.0};
11 double RHO_P_M[] = {999.87, 999.97, 1000.00, 999.97, 999.88, 999.73, 999.52, 999.27, 998.97, 998.62,
12 998.23, 997.80, 997.33, 996.81, 996.26, 995.68, 994.00, 992.00};
14 if (temp_.value()-scalar(273.15) < scalar(-18))
16 Info <<
"Air temperature is too low!";
18 else if (temp_.value()-scalar(273.15) >= scalar(37.8))
20 Info <<
"Air temperature is too high!";
26 if ( (T_1_M[i] <= temp_.value()-scalar(273.15)) && (temp_.value()-scalar(273.15) < T_1_M[i+1]) )
28 mua_.value() = MU_A_M[i] + ( ((MU_A_M[i+1] - MU_A_M[i])/(T_1_M[i+1] - T_1_M[i])) * (temp_.value()-scalar(273.15) - T_1_M[i]));
29 rhoa_.value() = RHO_A_M[i] + ( ((RHO_A_M[i+1] - RHO_A_M[i])/(T_1_M[i+1] - T_1_M[i])) * (temp_.value()-scalar(273.15) - T_1_M[i]));
35 if (temp_.value()-scalar(273.15) <= scalar(0))
37 Info <<
"Air temperature is too low!";
39 else if (temp_.value()-scalar(273.15) >= scalar(40))
41 Info <<
"Air temperature is too high!";
47 if ( (T_2_M[i] <= temp_.value()-scalar(273.15)) && (temp_.value()-scalar(273.15) < T_2_M[i+1]) )
49 rhop_.value() = RHO_P_M[i] + ( ((RHO_P_M[i+1] - RHO_P_M[i])/(T_2_M[i+1] - T_2_M[i])) * (temp_.value()-scalar(273.15) - T_2_M[i]));
66 double Re_M[]={1.80, 9.61, 23.4, 43.2, 68.7, 98.9, 134.0, 175.0, 220.0, 269.0,
67 372.0, 483.0, 603.0, 731.0, 866.0, 1013.0, 1164.0, 1313.0, 1461.0, 1613.0,
68 1764.0, 1915.0, 2066.0, 2211.0, 2357.0, 2500.0, 2636.0, 2772.0, 2905.0, 3033.0,
69 3164.0, 3293.0, 3423.0, 3549.0};
70 double Cd_M[]={15.0, 4.2, 2.4, 1.66, 1.28, 1.07, 0.926, 0.815, 0.729, 0.671,
71 0.607, 0.570, 0.545, 0.528, 0.517, 0.504, 0.495, 0.494, 0.498, 0.503,
72 0.511, 0.520, 0.529, 0.544, 0.559, 0.575, 0.594, 0.615, 0.635, 0.660,
73 0.681, 0.700, 0.727, 0.751};
76 if (Reynolds[celli] < scalar(1.8))
79 CdRe[celli] = ( Cd_M[i] + (((Cd_M[i+1] - Cd_M[i])/(Re_M[i+1] - Re_M[i]))*(Reynolds[celli] - Re_M[i])) ) * Reynolds[celli];
81 else if (Reynolds[celli] >= scalar(3549))
84 CdRe[celli] = ( Cd_M[i] + (((Cd_M[i+1] - Cd_M[i])/(Re_M[i+1] - Re_M[i]))*(Reynolds[celli] - Re_M[i])) ) * Reynolds[celli];
90 if ( (Re_M[i] <= Reynolds[celli]) && (Reynolds[celli] < Re_M[i+1]) )
92 CdRe[celli] = ( Cd_M[i] + (((Cd_M[i+1] - Cd_M[i])/(Re_M[i+1] - Re_M[i]))*(Reynolds[celli] - Re_M[i])) ) * Reynolds[celli];