GetTWetBulbFromRelHum Function

  1. psychrolib.f90
  2. psychrolib
  3. GetTWetBulbFromRelHum

public function GetTWetBulbFromRelHum(TDryBulb, RelHum, Pressure) result(TWetBulb)

Return wet-bulb temperature given dry-bulb temperature, relative humidity, and pressure. References: 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) :: RelHum

Relative humidity in range [0, 1]
real, intent(in) :: Pressure

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

Return Value real

Wet-bulb temperature in °F [IP] or °C [SI]


Calls

proc~~gettwetbulbfromrelhum~~CallsGraph proc~gettwetbulbfromrelhum GetTWetBulbFromRelHum proc~gethumratiofromrelhum GetHumRatioFromRelHum proc~gettwetbulbfromrelhum->proc~gethumratiofromrelhum proc~gettwetbulbfromhumratio GetTWetBulbFromHumRatio proc~gettwetbulbfromrelhum->proc~gettwetbulbfromhumratio proc~gethumratiofromvappres GetHumRatioFromVapPres proc~gethumratiofromrelhum->proc~gethumratiofromvappres proc~getvappresfromrelhum GetVapPresFromRelHum proc~gethumratiofromrelhum->proc~getvappresfromrelhum proc~gethumratiofromtwetbulb GetHumRatioFromTWetBulb proc~gettwetbulbfromhumratio->proc~gethumratiofromtwetbulb proc~gettdewpointfromhumratio GetTDewPointFromHumRatio proc~gettwetbulbfromhumratio->proc~gettdewpointfromhumratio proc~getsatvappres GetSatVapPres proc~getvappresfromrelhum->proc~getsatvappres proc~getsathumratio GetSatHumRatio proc~gethumratiofromtwetbulb->proc~getsathumratio proc~isip isIP proc~gethumratiofromtwetbulb->proc~isip proc~getvappresfromhumratio GetVapPresFromHumRatio proc~gettdewpointfromhumratio->proc~getvappresfromhumratio proc~gettdewpointfromvappres GetTDewPointFromVapPres proc~gettdewpointfromhumratio->proc~gettdewpointfromvappres proc~getsathumratio->proc~getsatvappres proc~gettdewpointfromvappres->proc~isip proc~gettdewpointfromvappres->proc~getsatvappres proc~dlnpws_ dLnPws_ proc~gettdewpointfromvappres->proc~dlnpws_ proc~getsatvappres->proc~isip proc~gettrankinefromtfahrenheit GetTRankineFromTFahrenheit proc~getsatvappres->proc~gettrankinefromtfahrenheit proc~gettkelvinfromtcelsius GetTKelvinFromTCelsius proc~getsatvappres->proc~gettkelvinfromtcelsius proc~dlnpws_->proc~isip proc~dlnpws_->proc~gettrankinefromtfahrenheit proc~dlnpws_->proc~gettkelvinfromtcelsius

Contents

Source Code

GetTWetBulbFromRelHum

Source Code

  function GetTWetBulbFromRelHum(TDryBulb, RelHum, Pressure) result(TWetBulb)
    !+ Return wet-bulb temperature given dry-bulb temperature, relative humidity, and pressure.
    !+ References:
    !+ ASHRAE Handbook - Fundamentals (2017) ch. 1

    real, intent(in)  ::  TDryBulb
      !+ Dry-bulb temperature in °F [IP] or °C [SI]
    real, intent(in)  ::  RelHum
      !+ Relative humidity in range [0, 1]
    real, intent(in)  ::  Pressure
      !+ Atmospheric pressure in Psi [IP] or Pa [SI]
    real              ::  TWetBulb
      !+ Wet-bulb temperature in °F [IP] or °C [SI]
    real              ::  HumRatio
      !+ Humidity ratio in lb_H₂O lb_Air⁻¹ [IP] or kg_H₂O kg_Air⁻¹ [SI]

    if (RelHum < 0.0 .or. RelHum > 1.0) then
      error stop "Error: relative humidity is outside range [0,1]"
    end if

    HumRatio = GetHumRatioFromRelHum(TDryBulb, RelHum, Pressure)
    TWetBulb = GetTWetBulbFromHumRatio(TDryBulb, HumRatio, Pressure)
  end function GetTWetBulbFromRelHum