GetSatAirEnthalpy Function

  1. psychrolib.f90
  2. psychrolib
  3. GetSatAirEnthalpy

public function GetSatAirEnthalpy(TDryBulb, Pressure) result(SatAirEnthalpy)

Return saturated air enthalpy given dry-bulb temperature and pressure. Reference: ASHRAE Handbook - Fundamentals (2017) ch. 1

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

Saturated air enthalpy in Btu lb⁻¹ [IP] or J kg⁻¹ [SI]


Calls

proc~~getsatairenthalpy~~CallsGraph proc~getsatairenthalpy GetSatAirEnthalpy proc~getsathumratio GetSatHumRatio proc~getsatairenthalpy->proc~getsathumratio proc~getmoistairenthalpy GetMoistAirEnthalpy proc~getsatairenthalpy->proc~getmoistairenthalpy proc~getsatvappres GetSatVapPres proc~getsathumratio->proc~getsatvappres proc~isip isIP proc~getmoistairenthalpy->proc~isip proc~getsatvappres->proc~isip proc~gettrankinefromtfahrenheit GetTRankineFromTFahrenheit proc~getsatvappres->proc~gettrankinefromtfahrenheit proc~gettkelvinfromtcelsius GetTKelvinFromTCelsius proc~getsatvappres->proc~gettkelvinfromtcelsius

Called by

proc~~getsatairenthalpy~~CalledByGraph proc~getsatairenthalpy GetSatAirEnthalpy proc~psytsatfnhpb PsyTsatFnHPb proc~psytsatfnhpb->proc~getsatairenthalpy proc~calcminimaldxcooling CalcMinimalDXCooling proc~calcminimaldxcooling->proc~psytsatfnhpb proc~calcminimaldxheating CalcMinimalDXHeating proc~calcminimaldxheating->proc~psytsatfnhpb proc~simminimaldxheating SimMinimalDXHeating proc~simminimaldxheating->proc~calcminimaldxheating proc~simminimaldxcooling SimMinimalDXCooling proc~simminimaldxcooling->proc~calcminimaldxcooling

Contents

Source Code

GetSatAirEnthalpy

Source Code

  function GetSatAirEnthalpy(TDryBulb, Pressure) result(SatAirEnthalpy)
    !+ Return saturated air enthalpy given dry-bulb temperature and pressure.
    !+ Reference:
    !+ ASHRAE Handbook - Fundamentals (2017) ch. 1

    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              ::  SatAirEnthalpy
      !+ Saturated air enthalpy in Btu lb⁻¹ [IP] or J kg⁻¹ [SI]

    SatAirEnthalpy = GetMoistAirEnthalpy(TDryBulb, GetSatHumRatio(TDryBulb, Pressure))
  end function GetSatAirEnthalpy