public function GetMoistAirVolume(TDryBulb, HumRatio, Pressure) result(MoistAirVolume)
Return moist air specific volume given dry-bulb temperature, humidity ratio, and pressure.
Reference:
ASHRAE Handbook - Fundamentals (2017) ch. 1 eqn 26
Notes:
In IP units, R_DA_IP / 144 equals 0.370486 which is the coefficient appearing in eqn 26
The factor 144 is for the conversion of Psi = lb in⁻² to lb ft⁻².
Arguments
Type
Intent
Optional
Attributes
Name
real,
intent(in)
::
TDryBulb
Dry-bulb temperature in °F [IP] or °C [SI]
real,
intent(in)
::
HumRatio
Humidity ratio in lb_H₂O lb_Air⁻¹ [IP] or kg_H₂O kg_Air⁻¹ [SI]
real,
intent(in)
::
Pressure
Atmospheric pressure in Psi [IP] or Pa [SI]
Return Value real
Specific volume of moist air in ft³ lb⁻¹ of dry air [IP] or in m³ kg⁻¹ of dry air [SI]
Nodes of different colours represent the following:
Solid arrows point from a procedure to one which it calls. Dashed
arrows point from an interface to procedures which implement that interface.
This could include the module procedures in a generic interface or the
implementation in a submodule of an interface in a parent module. Where possible, edges connecting nodes are given different colours to make them easier to distinguish in large graphs.
Nodes of different colours represent the following:
Solid arrows point from a procedure to one which it calls. Dashed
arrows point from an interface to procedures which implement that interface.
This could include the module procedures in a generic interface or the
implementation in a submodule of an interface in a parent module. Where possible, edges connecting nodes are given different colours to make them easier to distinguish in large graphs.
function GetMoistAirVolume(TDryBulb,HumRatio,Pressure)result(MoistAirVolume)!+ Return moist air specific volume given dry-bulb temperature, humidity ratio, and pressure.!+ Reference:!+ ASHRAE Handbook - Fundamentals (2017) ch. 1 eqn 26!+ Notes:!+ In IP units, R_DA_IP / 144 equals 0.370486 which is the coefficient appearing in eqn 26!+ The factor 144 is for the conversion of Psi = lb in⁻² to lb ft⁻².real,intent(in)::TDryBulb!+ Dry-bulb temperature in °F [IP] or °C [SI]real,intent(in)::HumRatio!+ Humidity ratio in lb_H₂O lb_Air⁻¹ [IP] or kg_H₂O kg_Air⁻¹ [SI]real,intent(in)::Pressure!+ Atmospheric pressure in Psi [IP] or Pa [SI]real::MoistAirVolume!+ Specific volume of moist air in ft³ lb⁻¹ of dry air [IP] or in m³ kg⁻¹ of dry air [SI]real::BoundedHumRatio!+ Humidity ratio bounded to MIN_HUM_RATIOif(HumRatio<0.0)thenerrorstop"Error: humidity ratio is negative"end ifBoundedHumRatio=max(HumRatio,MIN_HUM_RATIO)if(isIP())thenMoistAirVolume=R_DA_IP*GetTRankineFromTFahrenheit(TDryBulb)*(1.0+1.607858*BoundedHumRatio)/(144.0*Pressure)elseMoistAirVolume=R_DA_SI*GetTKelvinFromTCelsius(TDryBulb)*(1.0+1.607858*BoundedHumRatio)/Pressureend if end function GetMoistAirVolume