CalcPsychrometricsFromRelHum Subroutine

  1. psychrolib.f90
  2. psychrolib
  3. CalcPsychrometricsFromRelHum

public subroutine CalcPsychrometricsFromRelHum(TDryBulb, RelHum, Pressure, HumRatio, TWetBulb, TDewPoint, VapPres, MoistAirEnthalpy, MoistAirVolume, DegreeOfSaturation)

Utility function to calculate humidity ratio, wet-bulb temperature, dew-point temperature, vapour pressure, moist air enthalpy, moist air volume, and degree of saturation of air given dry-bulb temperature, relative humidity and pressure.

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]
real, intent(out) :: HumRatio

Humidity ratio in lb_H₂O lb_Air⁻¹ [IP] or kg_H₂O kg_Air⁻¹ [SI]
real, intent(out) :: TWetBulb

Wet-bulb temperature in °F [IP] or °C [SI]
real, intent(out) :: TDewPoint

Dew-point temperature in °F [IP] or °C [SI]
real, intent(out) :: VapPres

Partial pressure of water vapor in moist air in Psi [IP] or Pa [SI]
real, intent(out) :: MoistAirEnthalpy

Moist air enthalpy in Btu lb⁻¹ [IP] or J kg⁻¹ [SI]
real, intent(out) :: MoistAirVolume

Specific volume of moist air in ft³ lb⁻¹ [IP] or in m³ kg⁻¹ [SI]
real, intent(out) :: DegreeOfSaturation

Degree of saturation [unitless]

Calls

proc~~calcpsychrometricsfromrelhum~~CallsGraph proc~calcpsychrometricsfromrelhum CalcPsychrometricsFromRelHum proc~gethumratiofromrelhum GetHumRatioFromRelHum proc~calcpsychrometricsfromrelhum->proc~gethumratiofromrelhum proc~gettdewpointfromhumratio GetTDewPointFromHumRatio proc~calcpsychrometricsfromrelhum->proc~gettdewpointfromhumratio proc~getvappresfromhumratio GetVapPresFromHumRatio proc~calcpsychrometricsfromrelhum->proc~getvappresfromhumratio proc~getmoistairvolume GetMoistAirVolume proc~calcpsychrometricsfromrelhum->proc~getmoistairvolume proc~getmoistairenthalpy GetMoistAirEnthalpy proc~calcpsychrometricsfromrelhum->proc~getmoistairenthalpy proc~getdegreeofsaturation GetDegreeOfSaturation proc~calcpsychrometricsfromrelhum->proc~getdegreeofsaturation proc~gettwetbulbfromhumratio GetTWetBulbFromHumRatio proc~calcpsychrometricsfromrelhum->proc~gettwetbulbfromhumratio proc~gethumratiofromvappres GetHumRatioFromVapPres proc~gethumratiofromrelhum->proc~gethumratiofromvappres proc~getvappresfromrelhum GetVapPresFromRelHum proc~gethumratiofromrelhum->proc~getvappresfromrelhum proc~gettdewpointfromhumratio->proc~getvappresfromhumratio proc~gettdewpointfromvappres GetTDewPointFromVapPres proc~gettdewpointfromhumratio->proc~gettdewpointfromvappres proc~isip isIP proc~getmoistairvolume->proc~isip proc~gettrankinefromtfahrenheit GetTRankineFromTFahrenheit proc~getmoistairvolume->proc~gettrankinefromtfahrenheit proc~gettkelvinfromtcelsius GetTKelvinFromTCelsius proc~getmoistairvolume->proc~gettkelvinfromtcelsius proc~getmoistairenthalpy->proc~isip proc~getsathumratio GetSatHumRatio proc~getdegreeofsaturation->proc~getsathumratio proc~gettwetbulbfromhumratio->proc~gettdewpointfromhumratio proc~gethumratiofromtwetbulb GetHumRatioFromTWetBulb proc~gettwetbulbfromhumratio->proc~gethumratiofromtwetbulb proc~getsatvappres GetSatVapPres proc~getsathumratio->proc~getsatvappres proc~getvappresfromrelhum->proc~getsatvappres proc~gettdewpointfromvappres->proc~isip proc~dlnpws_ dLnPws_ proc~gettdewpointfromvappres->proc~dlnpws_ proc~gettdewpointfromvappres->proc~getsatvappres proc~gethumratiofromtwetbulb->proc~getsathumratio proc~gethumratiofromtwetbulb->proc~isip proc~dlnpws_->proc~isip proc~dlnpws_->proc~gettrankinefromtfahrenheit proc~dlnpws_->proc~gettkelvinfromtcelsius proc~getsatvappres->proc~isip proc~getsatvappres->proc~gettrankinefromtfahrenheit proc~getsatvappres->proc~gettkelvinfromtcelsius

Contents

Source Code

CalcPsychrometricsFromRelHum

Source Code

  subroutine CalcPsychrometricsFromRelHum(TDryBulb,           &
                                          RelHum,             &
                                          Pressure,           &
                                          HumRatio,           &
                                          TWetBulb,           &
                                          TDewPoint,          &
                                          VapPres,            &
                                          MoistAirEnthalpy,   &
                                          MoistAirVolume,     &
                                          DegreeOfSaturation)

    !+ Utility function to calculate humidity ratio, wet-bulb temperature, dew-point temperature,
    !+ vapour pressure, moist air enthalpy, moist air volume, and degree of saturation of air given
    !+ dry-bulb temperature, relative humidity and pressure.

    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, intent(out)   ::  HumRatio
      !+ Humidity ratio in lb_H₂O lb_Air⁻¹ [IP] or kg_H₂O kg_Air⁻¹ [SI]
    real, intent(out)   ::  TWetBulb
      !+ Wet-bulb temperature in °F [IP] or °C [SI]
    real, intent(out)   ::  TDewPoint
      !+ Dew-point temperature in °F [IP] or °C [SI]
    real, intent(out)   ::  VapPres
      !+ Partial pressure of water vapor in moist air in Psi [IP] or Pa [SI]
    real, intent(out)   ::  MoistAirEnthalpy
      !+ Moist air enthalpy in Btu lb⁻¹ [IP] or J kg⁻¹ [SI]
    real, intent(out)   ::  MoistAirVolume
      !+ Specific volume of moist air in ft³ lb⁻¹ [IP] or in m³ kg⁻¹ [SI]
    real, intent(out)   ::  DegreeOfSaturation
      !+ Degree of saturation [unitless]

    HumRatio            = GetHumRatioFromRelHum(TDryBulb, RelHum, Pressure)
    TWetBulb            = GetTWetBulbFromHumRatio(TDryBulb, HumRatio, Pressure)
    TDewPoint           = GetTDewPointFromHumRatio(TDryBulb, HumRatio, Pressure)
    VapPres             = GetVapPresFromHumRatio(HumRatio, Pressure)
    MoistAirEnthalpy    = GetMoistAirEnthalpy(TDryBulb, HumRatio)
    MoistAirVolume      = GetMoistAirVolume(TDryBulb, HumRatio, Pressure)
    DegreeOfSaturation  = GetDegreeOfSaturation(TDryBulb, HumRatio, Pressure)
  end subroutine CalcPsychrometricsFromRelHum