GetSatHumRatio Function

  1. psychrolib.f90
  2. psychrolib
  3. GetSatHumRatio

public function GetSatHumRatio(TDryBulb, Pressure) result(SatHumRatio)

Return humidity ratio of saturated air given dry-bulb temperature and pressure. Reference: ASHRAE Handbook - Fundamentals (2017) ch. 1 eqn 36, solved for W

Arguments

Type IntentOptional AttributesName
real, intent(in) :: TDryBulb

Dry-bulb temperature in °F [IP] or °C [SI]
real, intent(in) :: Pressure

Atmospheric pressure in Psi [IP] or Pa [SI]

Return Value real

Humidity ratio of saturated air in lb_H₂O lb_Air⁻¹ [IP] or kg_H₂O kg_Air⁻¹ [SI]


Calls

proc~~getsathumratio~~CallsGraph proc~getsathumratio GetSatHumRatio proc~getsatvappres GetSatVapPres proc~getsathumratio->proc~getsatvappres proc~isip isIP proc~getsatvappres->proc~isip proc~gettrankinefromtfahrenheit GetTRankineFromTFahrenheit proc~getsatvappres->proc~gettrankinefromtfahrenheit proc~gettkelvinfromtcelsius GetTKelvinFromTCelsius proc~getsatvappres->proc~gettkelvinfromtcelsius

Called by

proc~~getsathumratio~~CalledByGraph proc~getsathumratio GetSatHumRatio proc~getsatairenthalpy GetSatAirEnthalpy proc~getsatairenthalpy->proc~getsathumratio proc~gethumratiofromtwetbulb GetHumRatioFromTWetBulb proc~gethumratiofromtwetbulb->proc~getsathumratio proc~getdegreeofsaturation GetDegreeOfSaturation proc~getdegreeofsaturation->proc~getsathumratio proc~calcpsychrometricsfromrelhum CalcPsychrometricsFromRelHum proc~calcpsychrometricsfromrelhum->proc~getdegreeofsaturation proc~gettwetbulbfromhumratio GetTWetBulbFromHumRatio proc~calcpsychrometricsfromrelhum->proc~gettwetbulbfromhumratio proc~psytsatfnhpb PsyTsatFnHPb proc~psytsatfnhpb->proc~getsatairenthalpy proc~calcpsychrometricsfromtdewpoint CalcPsychrometricsFromTDewPoint proc~calcpsychrometricsfromtdewpoint->proc~getdegreeofsaturation proc~calcpsychrometricsfromtdewpoint->proc~gettwetbulbfromhumratio proc~getrelhumfromtwetbulb GetRelHumFromTWetBulb proc~getrelhumfromtwetbulb->proc~gethumratiofromtwetbulb proc~calcpsychrometricsfromtwetbulb CalcPsychrometricsFromTWetBulb proc~calcpsychrometricsfromtwetbulb->proc~gethumratiofromtwetbulb proc~calcpsychrometricsfromtwetbulb->proc~getdegreeofsaturation proc~gettdewpointfromtwetbulb GetTDewPointFromTWetBulb proc~gettdewpointfromtwetbulb->proc~gethumratiofromtwetbulb proc~gettwetbulbfromhumratio->proc~gethumratiofromtwetbulb proc~calcminimaldxcooling CalcMinimalDXCooling proc~calcminimaldxcooling->proc~psytsatfnhpb proc~calcminimaldxcooling->proc~gettwetbulbfromhumratio proc~calcminimaldxheating CalcMinimalDXHeating proc~calcminimaldxheating->proc~psytsatfnhpb proc~calcminimaldxheating->proc~gettwetbulbfromhumratio proc~gettwetbulbfromrelhum GetTWetBulbFromRelHum proc~gettwetbulbfromrelhum->proc~gettwetbulbfromhumratio proc~gettwetbulbfromtdewpoint GetTWetBulbFromTDewPoint proc~gettwetbulbfromtdewpoint->proc~gettwetbulbfromhumratio proc~simminimaldxheating SimMinimalDXHeating proc~simminimaldxheating->proc~calcminimaldxheating proc~simminimaldxcooling SimMinimalDXCooling proc~simminimaldxcooling->proc~calcminimaldxcooling

Contents

Source Code

GetSatHumRatio

Source Code

  function GetSatHumRatio(TDryBulb, Pressure) result(SatHumRatio)
    !+ Return humidity ratio of saturated air given dry-bulb temperature and pressure.
    !+ Reference:
    !+ ASHRAE Handbook - Fundamentals (2017) ch. 1 eqn 36, solved for W

    real, intent(in)  ::  TDryBulb
      !+ Dry-bulb temperature in °F [IP] or °C [SI]
    real, intent(in)  ::  Pressure
      !+ Atmospheric pressure in Psi [IP] or Pa [SI]
    real              ::  SatHumRatio
      !+ Humidity ratio of saturated air in lb_H₂O lb_Air⁻¹ [IP] or kg_H₂O kg_Air⁻¹ [SI]
    real              ::  SatVaporPres
      !+ Vapor pressure of saturated air in in lb_H₂O lb_Air⁻¹ [IP] or kg_H₂O kg_Air⁻¹ [SI]

    SatVaporPres  = GetSatVapPres(TDryBulb)
    SatHumRatio   = 0.621945 * SatVaporPres / (Pressure-SatVaporPres)

    ! Validity check.
    SatHumRatio = max(SatHumRatio, MIN_HUM_RATIO)
  end function GetSatHumRatio