mode_psychrolib Module

Contents

Variables

ZERO_FAHRENHEIT_AS_RANKINE ZERO_CELSIUS_AS_KELVIN R_DA_IP R_DA_SI IP SI PSYCHROLIB_UNITS PSYCHROLIB_TOLERANCE MAX_ITER_COUNT MIN_HUM_RATIO FREEZING_POINT_WATER_IP FREEZING_POINT_WATER_SI TRIPLE_POINT_WATER_IP TRIPLE_POINT_WATER_SI

Functions

GetUnitSystem isIP GetTRankineFromTFahrenheit GetTFahrenheitFromTRankine GetTKelvinFromTCelsius GetTCelsiusFromTKelvin GetTWetBulbFromTDewPoint GetTWetBulbFromRelHum GetRelHumFromTDewPoint GetRelHumFromTWetBulb GetTDewPointFromRelHum GetTDewPointFromTWetBulb GetVapPresFromRelHum GetRelHumFromVapPres dLnPws_ GetTDewPointFromVapPres GetVapPresFromTDewPoint GetTWetBulbFromHumRatio GetHumRatioFromTWetBulb GetHumRatioFromRelHum GetRelHumFromHumRatio GetHumRatioFromTDewPoint GetTDewPointFromHumRatio GetHumRatioFromVapPres GetVapPresFromHumRatio GetSpecificHumFromHumRatio GetHumRatioFromSpecificHum GetDryAirEnthalpy GetDryAirDensity GetDryAirVolume GetTDryBulbFromEnthalpyAndHumRatio GetHumRatioFromEnthalpyAndTDryBulb GetSatVapPres GetSatHumRatio GetSatAirEnthalpy GetVaporPressureDeficit GetDegreeOfSaturation GetMoistAirEnthalpy GetMoistAirVolume GetTDryBulbFromMoistAirVolumeAndHumRatio GetMoistAirDensity GetStandardAtmPressure GetStandardAtmTemperature GetSeaLevelPressure GetStationPressure

Subroutines

SetUnitSystem CalcPsychrometricsFromTWetBulb CalcPsychrometricsFromTDewPoint CalcPsychrometricsFromRelHum

Variables

Type	Visibility	Attributes		Name		Initial
real,	private,	parameter	::	ZERO_FAHRENHEIT_AS_RANKINE	=	459.67
real,	private,	parameter	::	ZERO_CELSIUS_AS_KELVIN	=	273.15
real,	private,	parameter	::	R_DA_IP	=	53.350
real,	private,	parameter	::	R_DA_SI	=	287.042
integer,	public,	parameter	::	IP	=	1
integer,	public,	parameter	::	SI	=	2
integer,	private		::	PSYCHROLIB_UNITS	=	0
real,	private		::	PSYCHROLIB_TOLERANCE	=	1.0
integer,	private,	parameter	::	MAX_ITER_COUNT	=	100
real,	private,	parameter	::	MIN_HUM_RATIO	=	1e-7
real,	private,	parameter	::	FREEZING_POINT_WATER_IP	=	32.0
real,	private,	parameter	::	FREEZING_POINT_WATER_SI	=	0.0
real,	private,	parameter	::	TRIPLE_POINT_WATER_IP	=	32.018
real,	private,	parameter	::	TRIPLE_POINT_WATER_SI	=	0.01

Functions

public function GetUnitSystem() result(UnitSystem)

Arguments

None

Return Value integer

public function isIP()

Arguments

None

Return Value logical

public function GetTRankineFromTFahrenheit(TFahrenheit) result(TRankine)

Arguments

Type	Intent	Optional	Attributes		Name
real,	intent(in)			::	TFahrenheit

Return Value real

public function GetTFahrenheitFromTRankine(TRankine) result(TFahrenheit)

Arguments

Type	Intent	Optional	Attributes		Name
real,	intent(in)			::	TRankine

Return Value real

public function GetTKelvinFromTCelsius(TCelsius) result(TKelvin)

Arguments

Type	Intent	Optional	Attributes		Name
real,	intent(in)			::	TCelsius

Return Value real

public function GetTCelsiusFromTKelvin(TKelvin) result(TCelsius)

Arguments

Type	Intent	Optional	Attributes		Name
real,	intent(in)			::	TKelvin

Return Value real

public function GetTWetBulbFromTDewPoint(TDryBulb, TDewPoint, Pressure) result(TWetBulb)

Arguments

Type	Intent	Optional	Attributes		Name
real,	intent(in)			::	TDryBulb
real,	intent(in)			::	TDewPoint
real,	intent(in)			::	Pressure

Return Value real

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

Arguments

Type	Intent	Optional	Attributes		Name
real,	intent(in)			::	TDryBulb
real,	intent(in)			::	RelHum
real,	intent(in)			::	Pressure

Return Value real

public function GetRelHumFromTDewPoint(TDryBulb, TDewPoint) result(RelHum)

Arguments

Type	Intent	Optional	Attributes		Name
real,	intent(in)			::	TDryBulb
real,	intent(in)			::	TDewPoint

Return Value real

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

Arguments

Type	Intent	Optional	Attributes		Name
real,	intent(in)			::	TDryBulb
real,	intent(in)			::	TWetBulb
real,	intent(in)			::	Pressure

Return Value real

public function GetTDewPointFromRelHum(TDryBulb, RelHum) result(TDewPoint)

Arguments

Type	Intent	Optional	Attributes		Name
real,	intent(in)			::	TDryBulb
real,	intent(in)			::	RelHum

Return Value real

public function GetTDewPointFromTWetBulb(TDryBulb, TWetBulb, Pressure) result(TDewPoint)

Arguments

Type	Intent	Optional	Attributes		Name
real,	intent(in)			::	TDryBulb
real,	intent(in)			::	TWetBulb
real,	intent(in)			::	Pressure

Return Value real

public function GetVapPresFromRelHum(TDryBulb, RelHum) result(VapPres)

Arguments

Type	Intent	Optional	Attributes		Name
real,	intent(in)			::	TDryBulb
real,	intent(in)			::	RelHum

Return Value real

public function GetRelHumFromVapPres(TDryBulb, VapPres) result(RelHum)

Arguments

Type	Intent	Optional	Attributes		Name
real,	intent(in)			::	TDryBulb
real,	intent(in)			::	VapPres

Return Value real

public function dLnPws_(TDryBulb) result(dLnPws)

Arguments

Type	Intent	Optional	Attributes		Name
real,	intent(in)			::	TDryBulb

Return Value real

public function GetTDewPointFromVapPres(TDryBulb, VapPres) result(TDewPoint)

Arguments

Type	Intent	Optional	Attributes		Name
real,	intent(in)			::	TDryBulb
real,	intent(in)			::	VapPres

Return Value real

public function GetVapPresFromTDewPoint(TDewPoint) result(VapPres)

Arguments

Type	Intent	Optional	Attributes		Name
real,	intent(in)			::	TDewPoint

Return Value real

public function GetTWetBulbFromHumRatio(TDryBulb, HumRatio, Pressure) result(TWetBulb)

Arguments

Type	Intent	Optional	Attributes		Name
real,	intent(in)			::	TDryBulb
real,	intent(in)			::	HumRatio
real,	intent(in)			::	Pressure

Return Value real

public function GetHumRatioFromTWetBulb(TDryBulb, TWetBulb, Pressure) result(HumRatio)

Arguments

Type	Intent	Optional	Attributes		Name
real,	intent(in)			::	TDryBulb
real,	intent(in)			::	TWetBulb
real,	intent(in)			::	Pressure

Return Value real

public function GetHumRatioFromRelHum(TDryBulb, RelHum, Pressure) result(HumRatio)

Arguments

Type	Intent	Optional	Attributes		Name
real,	intent(in)			::	TDryBulb
real,	intent(in)			::	RelHum
real,	intent(in)			::	Pressure

Return Value real

public function GetRelHumFromHumRatio(TDryBulb, HumRatio, Pressure) result(RelHum)

Arguments

Type	Intent	Optional	Attributes		Name
real,	intent(in)			::	TDryBulb
real,	intent(in)			::	HumRatio
real,	intent(in)			::	Pressure

Return Value real

public function GetHumRatioFromTDewPoint(TDewPoint, Pressure) result(HumRatio)

Arguments

Type	Intent	Optional	Attributes		Name
real,	intent(in)			::	TDewPoint
real,	intent(in)			::	Pressure

Return Value real

public function GetTDewPointFromHumRatio(TDryBulb, HumRatio, Pressure) result(TDewPoint)

Arguments

Type	Intent	Optional	Attributes		Name
real,	intent(in)			::	TDryBulb
real,	intent(in)			::	HumRatio
real,	intent(in)			::	Pressure

Return Value real

public function GetHumRatioFromVapPres(VapPres, Pressure) result(HumRatio)

Arguments

Type	Intent	Optional	Attributes		Name
real,	intent(in)			::	VapPres
real,	intent(in)			::	Pressure

Return Value real

public function GetVapPresFromHumRatio(HumRatio, Pressure) result(VapPres)

Arguments

Type	Intent	Optional	Attributes		Name
real,	intent(in)			::	HumRatio
real,	intent(in)			::	Pressure

Return Value real

public function GetSpecificHumFromHumRatio(HumRatio) result(SpecificHum)

Arguments

Type	Intent	Optional	Attributes		Name
real,	intent(in)			::	HumRatio

Return Value real

public function GetHumRatioFromSpecificHum(SpecificHum) result(HumRatio)

Arguments

Type	Intent	Optional	Attributes		Name
real,	intent(in)			::	SpecificHum

Return Value real

public function GetDryAirEnthalpy(TDryBulb) result(DryAirEnthalpy)

Arguments

Type	Intent	Optional	Attributes		Name
real,	intent(in)			::	TDryBulb

Return Value real

public function GetDryAirDensity(TDryBulb, Pressure) result(DryAirDensity)

Arguments

Type	Intent	Optional	Attributes		Name
real,	intent(in)			::	TDryBulb
real,	intent(in)			::	Pressure

Return Value real

public function GetDryAirVolume(TDryBulb, Pressure) result(DryAirVolume)

Arguments

Type	Intent	Optional	Attributes		Name
real,	intent(in)			::	TDryBulb
real,	intent(in)			::	Pressure

Return Value real

public function GetTDryBulbFromEnthalpyAndHumRatio(MoistAirEnthalpy, HumRatio) result(TDryBulb)

Arguments

Type	Intent	Optional	Attributes		Name
real,	intent(in)			::	MoistAirEnthalpy
real,	intent(in)			::	HumRatio

Return Value real

public function GetHumRatioFromEnthalpyAndTDryBulb(MoistAirEnthalpy, TDryBulb) result(HumRatio)

Arguments

Type	Intent	Optional	Attributes		Name
real,	intent(in)			::	MoistAirEnthalpy
real,	intent(in)			::	TDryBulb

Return Value real

public function GetSatVapPres(TDryBulb) result(SatVapPres)

Arguments

Type	Intent	Optional	Attributes		Name
real,	intent(in)			::	TDryBulb

Return Value real

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

Arguments

Type	Intent	Optional	Attributes		Name
real,	intent(in)			::	TDryBulb
real,	intent(in)			::	Pressure

Return Value real

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

Arguments

Type	Intent	Optional	Attributes		Name
real,	intent(in)			::	TDryBulb
real,	intent(in)			::	Pressure

Return Value real

public function GetVaporPressureDeficit(TDryBulb, HumRatio, Pressure) result(VaporPressureDeficit)

Arguments

Type	Intent	Optional	Attributes		Name
real,	intent(in)			::	TDryBulb
real,	intent(in)			::	HumRatio
real,	intent(in)			::	Pressure

Return Value real

public function GetDegreeOfSaturation(TDryBulb, HumRatio, Pressure) result(DegreeOfSaturation)

Arguments

Type	Intent	Optional	Attributes		Name
real,	intent(in)			::	TDryBulb
real,	intent(in)			::	HumRatio
real,	intent(in)			::	Pressure

Return Value real

public function GetMoistAirEnthalpy(TDryBulb, HumRatio) result(MoistAirEnthalpy)

Arguments

Type	Intent	Optional	Attributes		Name
real,	intent(in)			::	TDryBulb
real,	intent(in)			::	HumRatio

Return Value real

public function GetMoistAirVolume(TDryBulb, HumRatio, Pressure) result(MoistAirVolume)

Arguments

Type	Intent	Optional	Attributes		Name
real,	intent(in)			::	TDryBulb
real,	intent(in)			::	HumRatio
real,	intent(in)			::	Pressure

Return Value real

public function GetTDryBulbFromMoistAirVolumeAndHumRatio(MoistAirVolume, HumRatio, Pressure) result(TDryBulb)

Arguments

Type	Intent	Optional	Attributes		Name
real,	intent(in)			::	MoistAirVolume
real,	intent(in)			::	HumRatio
real,	intent(in)			::	Pressure

Return Value real

public function GetMoistAirDensity(TDryBulb, HumRatio, Pressure) result(MoistAirDensity)

Arguments

Type	Intent	Optional	Attributes		Name
real,	intent(in)			::	TDryBulb
real,	intent(in)			::	HumRatio
real,	intent(in)			::	Pressure

Return Value real

public function GetStandardAtmPressure(Altitude) result(StandardAtmPressure)

Arguments

Type	Intent	Optional	Attributes		Name
real,	intent(in)			::	Altitude

Return Value real

public function GetStandardAtmTemperature(Altitude) result(StandardAtmTemperature)

Arguments

Type	Intent	Optional	Attributes		Name
real,	intent(in)			::	Altitude

Return Value real

public function GetSeaLevelPressure(StnPressure, Altitude, TDryBulb) result(SeaLevelPressure)

Arguments

Type	Intent	Optional	Attributes		Name
real,	intent(in)			::	StnPressure
real,	intent(in)			::	Altitude
real,	intent(in)			::	TDryBulb

Return Value real

public function GetStationPressure(SeaLevelPressure, Altitude, TDryBulb) result(StationPressure)

Arguments

Type	Intent	Optional	Attributes		Name
real,	intent(in)			::	SeaLevelPressure
real,	intent(in)			::	Altitude
real,	intent(in)			::	TDryBulb

Return Value real

Subroutines

public subroutine SetUnitSystem(UnitSystem)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	UnitSystem

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

Arguments

Type	Intent	Optional	Attributes		Name
real,	intent(in)			::	TDryBulb
real,	intent(in)			::	TWetBulb
real,	intent(in)			::	Pressure
real,	intent(out)			::	HumRatio
real,	intent(out)			::	TDewPoint
real,	intent(out)			::	RelHum
real,	intent(out)			::	VapPres
real,	intent(out)			::	MoistAirEnthalpy
real,	intent(out)			::	MoistAirVolume
real,	intent(out)			::	DegreeOfSaturation

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

Arguments

Type	Intent	Optional	Attributes		Name
real,	intent(in)			::	TDryBulb
real,	intent(in)			::	TDewPoint
real,	intent(in)			::	Pressure
real,	intent(out)			::	HumRatio
real,	intent(out)			::	TWetBulb
real,	intent(out)			::	RelHum
real,	intent(out)			::	VapPres
real,	intent(out)			::	MoistAirEnthalpy
real,	intent(out)			::	MoistAirVolume
real,	intent(out)			::	DegreeOfSaturation

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

Arguments

Type	Intent	Optional	Attributes		Name
real,	intent(in)			::	TDryBulb
real,	intent(in)			::	RelHum
real,	intent(in)			::	Pressure
real,	intent(out)			::	HumRatio
real,	intent(out)			::	TWetBulb
real,	intent(out)			::	TDewPoint
real,	intent(out)			::	VapPres
real,	intent(out)			::	MoistAirEnthalpy
real,	intent(out)			::	MoistAirVolume
real,	intent(out)			::	DegreeOfSaturation