HeatRecovery Module

Used By

Derived Types

Functions

SafeDiv GetNTUforCrossFlowBothUnmixed GetResidCrossFlowBothUnmixed GetSupplyInletNode GetSupplyOutletNode GetSecondaryInletNode GetSecondaryOutletNode GetSupplyAirFlowRate GetHeatExchangerObjectTypeNum

Variables

Type	Visibility	Attributes		Name		Initial
real(kind=r64),	private,	parameter	::	KELVZERO	=	273.16d0
real(kind=r64),	private,	parameter	::	SMALL	=	1.d-10
integer,	private,	parameter	::	BALANCEDHX_PERFDATATYPE1	=	1
integer,	private,	parameter	::	Counter_Flow	=	1
integer,	private,	parameter	::	Parallel_Flow	=	2
integer,	private,	parameter	::	Cross_Flow_Both_Unmixed	=	3
integer,	private,	parameter	::	Cross_Flow_Other	=	4
integer,	private,	parameter	::	Plate	=	1
integer,	private,	parameter	::	Rotary	=	2
integer,	private,	parameter	::	EconoLockOut_No	=	0
integer,	private,	parameter	::	EconoLockOut_Yes	=	1
integer,	private		::	NumHeatExchangers	=	0
integer,	private		::	NumAirToAirPlateExchs	=	0
integer,	private		::	NumAirToAirGenericExchs	=	0
integer,	private		::	NumDesiccantBalancedExchs	=	0
integer,	private		::	NumDesBalExchsPerfDataType1	=	0
real(kind=r64),	private		::	FullLoadOutAirTemp	=	0.0d0
real(kind=r64),	private		::	FullLoadOutAirHumRat	=	0.0d0
logical,	private		::	GetInputFlag	=	.TRUE.
logical,	private		::	CalledFromParentObject	=	.TRUE.
logical,	private,	ALLOCATABLE, DIMENSION(:)	::	CheckEquipName
type(HeatExchCond),	private,	ALLOCATABLE, DIMENSION(:)	::	ExchCond
type(BalancedDesDehumPerfData),	private,	ALLOCATABLE, DIMENSION(:)	::	BalDesDehumPerfData

Derived Types

type, private :: HeatExchCond

Components

Type	Visibility		Name		Initial
character(len=MaxNameLength),	public	::	Name	=	' '
integer,	public	::	ExchTypeNum	=	0
integer,	public	::	HeatExchPerfTypeNum	=	0
character(len=MaxNameLength),	public	::	HeatExchPerfName	=	' '
integer,	public	::	SchedPtr	=	0
integer,	public	::	FlowArr	=	0
integer,	public	::	EconoLockOut	=	0
real(kind=r64),	public	::	hARatio	=	0.0d0
real(kind=r64),	public	::	NomSupAirVolFlow	=	0.0d0
real(kind=r64),	public	::	NomSupAirInTemp	=	0.0d0
real(kind=r64),	public	::	NomSupAirOutTemp	=	0.0d0
real(kind=r64),	public	::	NomSecAirVolFlow	=	0.0d0
real(kind=r64),	public	::	NomSecAirInTemp	=	0.0d0
real(kind=r64),	public	::	NomElecPower	=	0.0d0
real(kind=r64),	public	::	UA0	=	0.0d0
real(kind=r64),	public	::	mTSup0	=	0.0d0
real(kind=r64),	public	::	mTSec0	=	0.0d0
real(kind=r64),	public	::	NomSupAirMassFlow	=	0.0d0
real(kind=r64),	public	::	NomSecAirMassFlow	=	0.0d0
integer,	public	::	SupInletNode	=	0
integer,	public	::	SupOutletNode	=	0
integer,	public	::	SecInletNode	=	0
integer,	public	::	SecOutletNode	=	0
real(kind=r64),	public	::	SupInTemp	=	0.0d0
real(kind=r64),	public	::	SupInHumRat	=	0.0d0
real(kind=r64),	public	::	SupInEnth	=	0.0d0
real(kind=r64),	public	::	SupInMassFlow	=	0.0d0
real(kind=r64),	public	::	SecInTemp	=	0.0d0
real(kind=r64),	public	::	SecInHumRat	=	0.0d0
real(kind=r64),	public	::	SecInEnth	=	0.0d0
real(kind=r64),	public	::	SecInMassFlow	=	0.0d0
integer,	public	::	PerfDataIndex	=	0
real(kind=r64),	public	::	FaceArea	=	0.0d0
logical,	public	::	UnbalancedWarningFlag	=	.TRUE.
real(kind=r64),	public	::	HeatEffectSensible100	=	0.0d0
real(kind=r64),	public	::	HeatEffectSensible75	=	0.0d0
real(kind=r64),	public	::	HeatEffectLatent100	=	0.0d0
real(kind=r64),	public	::	HeatEffectLatent75	=	0.0d0
real(kind=r64),	public	::	CoolEffectSensible100	=	0.0d0
real(kind=r64),	public	::	CoolEffectSensible75	=	0.0d0
real(kind=r64),	public	::	CoolEffectLatent100	=	0.0d0
real(kind=r64),	public	::	CoolEffectLatent75	=	0.0d0
integer,	public	::	HeatExchEconoMode	=	0
integer,	public	::	ExchConfigNum	=	0
character(len=MaxNameLength),	public	::	FrostControlType	=	' '
real(kind=r64),	public	::	ThresholdTemperature	=	0.0d0
real(kind=r64),	public	::	InitialDefrostTime	=	0.0d0
real(kind=r64),	public	::	RateofDefrostTimeIncrease	=	0.0d0
real(kind=r64),	public	::	DefrostFraction	=	0.0d0
logical,	public	::	ControlToTemperatureSetpoint	=	.FALSE.
real(kind=r64),	public	::	SupOutTemp	=	0.0d0
real(kind=r64),	public	::	SupOutHumRat	=	0.0d0
real(kind=r64),	public	::	SupOutEnth	=	0.0d0
real(kind=r64),	public	::	SupOutMassFlow	=	0.0d0
real(kind=r64),	public	::	SecOutTemp	=	0.0d0
real(kind=r64),	public	::	SecOutHumRat	=	0.0d0
real(kind=r64),	public	::	SecOutEnth	=	0.0d0
real(kind=r64),	public	::	SecOutMassFlow	=	0.0d0
real(kind=r64),	public	::	SensHeatingRate	=	0.0d0
real(kind=r64),	public	::	SensHeatingEnergy	=	0.0d0
real(kind=r64),	public	::	LatHeatingRate	=	0.0d0
real(kind=r64),	public	::	LatHeatingEnergy	=	0.0d0
real(kind=r64),	public	::	TotHeatingRate	=	0.0d0
real(kind=r64),	public	::	TotHeatingEnergy	=	0.0d0
real(kind=r64),	public	::	SensCoolingRate	=	0.0d0
real(kind=r64),	public	::	SensCoolingEnergy	=	0.0d0
real(kind=r64),	public	::	LatCoolingRate	=	0.0d0
real(kind=r64),	public	::	LatCoolingEnergy	=	0.0d0
real(kind=r64),	public	::	TotCoolingRate	=	0.0d0
real(kind=r64),	public	::	TotCoolingEnergy	=	0.0d0
real(kind=r64),	public	::	ElecUseEnergy	=	0.0d0
real(kind=r64),	public	::	ElecUseRate	=	0.0d0
real(kind=r64),	public	::	SensEffectiveness	=	0.0d0
real(kind=r64),	public	::	LatEffectiveness	=	0.0d0
real(kind=r64),	public	::	SupBypassMassFlow	=	0.0d0
real(kind=r64),	public	::	SecBypassMassFlow	=	0.0d0
integer,	public	::	LowFlowErrCount	=	0
integer,	public	::	LowFlowErrIndex	=	0
integer,	public	::	UnBalancedErrCount	=	0
integer,	public	::	UnBalancedErrIndex	=	0

type, private :: BalancedDesDehumPerfData

Components

Type	Visibility		Name		Initial
character(len=MaxNameLength),	public	::	Name	=	' '
character(len=MaxNameLength),	public	::	PerfType	=	' '
real(kind=r64),	public	::	NomSupAirVolFlow	=	0.0d0
real(kind=r64),	public	::	NomProcAirFaceVel	=	0.0d0
real(kind=r64),	public	::	NomElecPower	=	0.0d0
real(kind=r64),	public	::	B1	=	0.0d0
real(kind=r64),	public	::	B2	=	0.0d0
real(kind=r64),	public	::	B3	=	0.0d0
real(kind=r64),	public	::	B4	=	0.0d0
real(kind=r64),	public	::	B5	=	0.0d0
real(kind=r64),	public	::	B6	=	0.0d0
real(kind=r64),	public	::	B7	=	0.0d0
real(kind=r64),	public	::	B8	=	0.0d0
real(kind=r64),	public	::	T_MinRegenAirInTemp	=	0.0d0
real(kind=r64),	public	::	T_MaxRegenAirInTemp	=	0.0d0
real(kind=r64),	public	::	T_MinRegenAirInHumRat	=	0.0d0
real(kind=r64),	public	::	T_MaxRegenAirInHumRat	=	0.0d0
real(kind=r64),	public	::	T_MinProcAirInTemp	=	0.0d0
real(kind=r64),	public	::	T_MaxProcAirInTemp	=	0.0d0
real(kind=r64),	public	::	T_MinProcAirInHumRat	=	0.0d0
real(kind=r64),	public	::	T_MaxProcAirInHumRat	=	0.0d0
real(kind=r64),	public	::	T_MinFaceVel	=	0.0d0
real(kind=r64),	public	::	T_MaxFaceVel	=	0.0d0
real(kind=r64),	public	::	MinRegenAirOutTemp	=	0.0d0
real(kind=r64),	public	::	MaxRegenAirOutTemp	=	0.0d0
real(kind=r64),	public	::	T_MinRegenAirInRelHum	=	0.0d0
real(kind=r64),	public	::	T_MaxRegenAirInRelHum	=	0.0d0
real(kind=r64),	public	::	T_MinProcAirInRelHum	=	0.0d0
real(kind=r64),	public	::	T_MaxProcAirInRelHum	=	0.0d0
real(kind=r64),	public	::	C1	=	0.0d0
real(kind=r64),	public	::	C2	=	0.0d0
real(kind=r64),	public	::	C3	=	0.0d0
real(kind=r64),	public	::	C4	=	0.0d0
real(kind=r64),	public	::	C5	=	0.0d0
real(kind=r64),	public	::	C6	=	0.0d0
real(kind=r64),	public	::	C7	=	0.0d0
real(kind=r64),	public	::	C8	=	0.0d0
real(kind=r64),	public	::	H_MinRegenAirInTemp	=	0.0d0
real(kind=r64),	public	::	H_MaxRegenAirInTemp	=	0.0d0
real(kind=r64),	public	::	H_MinRegenAirInHumRat	=	0.0d0
real(kind=r64),	public	::	H_MaxRegenAirInHumRat	=	0.0d0
real(kind=r64),	public	::	H_MinProcAirInTemp	=	0.0d0
real(kind=r64),	public	::	H_MaxProcAirInTemp	=	0.0d0
real(kind=r64),	public	::	H_MinProcAirInHumRat	=	0.0d0
real(kind=r64),	public	::	H_MaxProcAirInHumRat	=	0.0d0
real(kind=r64),	public	::	H_MinFaceVel	=	0.0d0
real(kind=r64),	public	::	H_MaxFaceVel	=	0.0d0
real(kind=r64),	public	::	MinRegenAirOutHumRat	=	0.0d0
real(kind=r64),	public	::	MaxRegenAirOutHumRat	=	0.0d0
real(kind=r64),	public	::	H_MinRegenAirInRelHum	=	0.0d0
real(kind=r64),	public	::	H_MaxRegenAirInRelHum	=	0.0d0
real(kind=r64),	public	::	H_MinProcAirInRelHum	=	0.0d0
real(kind=r64),	public	::	H_MaxProcAirInRelHum	=	0.0d0
logical,	public	::	PrintRegenInRelHumTempMess	=	.FALSE.
integer,	public	::	RegenInRelHumTempErrIndex	=	0
integer,	public	::	RegenInRelHumTempErrorCount	=	0
character(len=400),	public	::	RegenInRelHumTempBuffer1	=	' '
character(len=400),	public	::	RegenInRelHumTempBuffer2	=	' '
character(len=400),	public	::	RegenInRelHumTempBuffer3	=	' '
real(kind=r64),	public	::	RegenInRelHumTempLast	=	0.0d0
logical,	public	::	PrintProcInRelHumTempMess	=	.FALSE.
integer,	public	::	ProcInRelHumTempErrIndex	=	0
integer,	public	::	ProcInRelHumTempErrorCount	=	0
character(len=400),	public	::	ProcInRelHumTempBuffer1	=	' '
character(len=400),	public	::	ProcInRelHumTempBuffer2	=	' '
character(len=400),	public	::	ProcInRelHumTempBuffer3	=	' '
real(kind=r64),	public	::	ProcInRelHumTempLast	=	0.0d0
logical,	public	::	PrintRegenInRelHumHumRatMess	=	.FALSE.
integer,	public	::	RegenInRelHumHumRatErrIndex	=	0
integer,	public	::	RegenInRelHumHumRatErrorCount	=	0
character(len=400),	public	::	RegenInRelHumHumRatBuffer1	=	' '
character(len=400),	public	::	RegenInRelHumHumRatBuffer2	=	' '
character(len=400),	public	::	RegenInRelHumHumRatBuffer3	=	' '
real(kind=r64),	public	::	RegenInRelHumHumRatLast	=	0.0d0
logical,	public	::	PrintProcInRelHumHumRatMess	=	.FALSE.
integer,	public	::	ProcInRelHumHumRatErrIndex	=	0
integer,	public	::	ProcInRelHumHumRatErrorCount	=	0
character(len=400),	public	::	ProcInRelHumHumRatBuffer1	=	' '
character(len=400),	public	::	ProcInRelHumHumRatBuffer2	=	' '
character(len=400),	public	::	ProcInRelHumHumRatBuffer3	=	' '
real(kind=r64),	public	::	ProcInRelHumHumRatLast	=	0.0d0
logical,	public	::	PrintT_RegenInTempMessage	=	.FALSE.
logical,	public	::	PrintT_RegenInHumRatMessage	=	.FALSE.
logical,	public	::	PrintT_ProcInTempMessage	=	.FALSE.
logical,	public	::	PrintT_ProcInHumRatMessage	=	.FALSE.
logical,	public	::	PrintT_FaceVelMessage	=	.FALSE.
logical,	public	::	PrintRegenOutTempMessage	=	.FALSE.
logical,	public	::	PrintRegenOutTempFailedMessage	=	.FALSE.
logical,	public	::	PrintH_RegenInTempMessage	=	.FALSE.
logical,	public	::	PrintH_RegenInHumRatMessage	=	.FALSE.
logical,	public	::	PrintH_ProcInTempMessage	=	.FALSE.
logical,	public	::	PrintH_ProcInHumRatMessage	=	.FALSE.
logical,	public	::	PrintH_FaceVelMessage	=	.FALSE.
logical,	public	::	PrintRegenOutHumRatMessage	=	.FALSE.
logical,	public	::	PrintRegenInHumRatMessage	=	.FALSE.
logical,	public	::	PrintRegenOutHumRatFailedMess	=	.FALSE.
integer,	public	::	RegenOutHumRatFailedErrIndex	=	0
integer,	public	::	RegenOutHumRatFailedErrorCount	=	0
character(len=400),	public	::	RegenOutHumRatFailedBuffer1	=	' '
character(len=400),	public	::	RegenOutHumRatFailedBuffer2	=	' '
character(len=400),	public	::	RegenOutHumRatFailedBuffer3	=	' '
real(kind=r64),	public	::	RegenOutHumRatFailedLast	=	0.0d0
logical,	public	::	PrintImbalancedMassFlowMess	=	.FALSE.
integer,	public	::	ImbalancedFlowErrIndex	=	0
integer,	public	::	ImbalancedMassFlowErrorCount	=	0
character(len=400),	public	::	ImbalancedMassFlowBuffer1	=	' '
character(len=400),	public	::	ImbalancedMassFlowBuffer2	=	' '
character(len=400),	public	::	ImbalancedMassFlowBuffer3	=	' '
real(kind=r64),	public	::	ABSImbalancedFlow	=	0.0d0
integer,	public	::	T_RegenInTempErrorCount	=	0
integer,	public	::	T_RegenInHumRatErrorCount	=	0
integer,	public	::	T_ProcInTempErrorCount	=	0
integer,	public	::	T_ProcInHumRatErrorCount	=	0
integer,	public	::	T_FaceVelErrorCount	=	0
integer,	public	::	T_RegenInTempErrIndex	=	0
integer,	public	::	T_RegenInHumRatErrIndex	=	0
integer,	public	::	T_ProcInTempErrIndex	=	0
integer,	public	::	T_ProcInHumRatErrIndex	=	0
integer,	public	::	T_FaceVelocityErrIndex	=	0
integer,	public	::	RegenOutTempErrorCount	=	0
integer,	public	::	RegenOutTempErrIndex	=	0
integer,	public	::	RegenOutTempFailedErrorCount	=	0
integer,	public	::	RegenOutTempFailedErrIndex	=	0
character(len=400),	public	::	RegenOutTempFailedBuffer1	=	' '
character(len=400),	public	::	RegenOutTempFailedBuffer2	=	' '
character(len=400),	public	::	RegenOutTempFailedBuffer3	=	' '
real(kind=r64),	public	::	RegenOutTempFailedLast	=	0.0d0
integer,	public	::	H_RegenInTempErrorCount	=	0
integer,	public	::	H_RegenInHumRatErrorCount	=	0
integer,	public	::	H_ProcInTempErrorCount	=	0
integer,	public	::	H_ProcInHumRatErrorCount	=	0
integer,	public	::	H_FaceVelErrorCount	=	0
integer,	public	::	H_RegenInTempErrIndex	=	0
integer,	public	::	H_RegenInHumRatErrIndex	=	0
integer,	public	::	H_ProcInTempErrIndex	=	0
integer,	public	::	H_ProcInHumRatErrIndex	=	0
integer,	public	::	H_FaceVelocityErrIndex	=	0
integer,	public	::	RegenOutHumRatErrorCount	=	0
integer,	public	::	RegenOutHumRatErrIndex	=	0
integer,	public	::	RegenInHumRatErrorCount	=	0
integer,	public	::	RegenInHumRatErrIndex	=	0
character(len=400),	public	::	T_RegenInTempBuffer1	=	' '
character(len=400),	public	::	T_RegenInTempBuffer2	=	' '
character(len=400),	public	::	T_RegenInTempBuffer3	=	' '
real(kind=r64),	public	::	T_RegenInTempLast	=	0.0d0
character(len=400),	public	::	T_RegenInHumRatBuffer1	=	' '
character(len=400),	public	::	T_RegenInHumRatBuffer2	=	' '
character(len=400),	public	::	T_RegenInHumRatBuffer3	=	' '
real(kind=r64),	public	::	T_RegenInHumRatLast	=	0.0d0
character(len=400),	public	::	T_ProcInTempBuffer1	=	' '
character(len=400),	public	::	T_ProcInTempBuffer2	=	' '
character(len=400),	public	::	T_ProcInTempBuffer3	=	' '
real(kind=r64),	public	::	T_ProcInTempLast	=	0.0d0
character(len=400),	public	::	T_ProcInHumRatBuffer1	=	' '
character(len=400),	public	::	T_ProcInHumRatBuffer2	=	' '
character(len=400),	public	::	T_ProcInHumRatBuffer3	=	' '
real(kind=r64),	public	::	T_ProcInHumRatLast	=	0.0d0
character(len=400),	public	::	T_FaceVelBuffer1	=	' '
character(len=400),	public	::	T_FaceVelBuffer2	=	' '
character(len=400),	public	::	T_FaceVelBuffer3	=	' '
real(kind=r64),	public	::	T_FaceVelLast	=	0.0d0
character(len=400),	public	::	RegenOutTempBuffer1	=	' '
character(len=400),	public	::	RegenOutTempBuffer2	=	' '
character(len=400),	public	::	RegenOutTempBuffer3	=	' '
real(kind=r64),	public	::	RegenOutTempLast	=	0.0d0
character(len=400),	public	::	H_RegenInTempBuffer1	=	' '
character(len=400),	public	::	H_RegenInTempBuffer2	=	' '
character(len=400),	public	::	H_RegenInTempBuffer3	=	' '
real(kind=r64),	public	::	H_RegenInTempLast	=	0.0d0
character(len=400),	public	::	H_RegenInHumRatBuffer1	=	' '
character(len=400),	public	::	H_RegenInHumRatBuffer2	=	' '
character(len=400),	public	::	H_RegenInHumRatBuffer3	=	' '
real(kind=r64),	public	::	H_RegenInHumRatLast	=	0.0d0
character(len=400),	public	::	H_ProcInTempBuffer1	=	' '
character(len=400),	public	::	H_ProcInTempBuffer2	=	' '
character(len=400),	public	::	H_ProcInTempBuffer3	=	' '
real(kind=r64),	public	::	H_ProcInTempLast	=	0.0d0
character(len=400),	public	::	H_ProcInHumRatBuffer1	=	' '
character(len=400),	public	::	H_ProcInHumRatBuffer2	=	' '
character(len=400),	public	::	H_ProcInHumRatBuffer3	=	' '
real(kind=r64),	public	::	H_ProcInHumRatLast	=	0.0d0
character(len=400),	public	::	H_FaceVelBuffer1	=	' '
character(len=400),	public	::	H_FaceVelBuffer2	=	' '
character(len=400),	public	::	H_FaceVelBuffer3	=	' '
real(kind=r64),	public	::	H_FaceVelLast	=	0.0d0
character(len=400),	public	::	RegenOutHumRatBuffer1	=	' '
character(len=400),	public	::	RegenOutHumRatBuffer2	=	' '
character(len=400),	public	::	RegenOutHumRatBuffer3	=	' '
real(kind=r64),	public	::	RegenOutHumRatLast	=	0.0d0

Functions

private function SafeDiv(a, b) result(c)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=r64),	intent(in)			::	a
real(kind=r64),	intent(in)			::	b

Return Value real(kind=r64)

private function GetNTUforCrossFlowBothUnmixed(Eps, Z) result(NTU)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=r64),	intent(in)			::	Eps
real(kind=r64),	intent(in)			::	Z

Return Value real(kind=r64)

private function GetResidCrossFlowBothUnmixed(NTU, Par) result(Residuum)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=r64),	intent(in)			::	NTU
real(kind=r64),	intent(in),	optional	DIMENSION(:)	::	Par

Return Value real(kind=r64)

public function GetSupplyInletNode(HXName, ErrorsFound)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=MaxNameLength),	intent(in)			::	HXName
logical,	intent(inout)			::	ErrorsFound

Return Value integer

public function GetSupplyOutletNode(HXName, ErrorsFound)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=MaxNameLength),	intent(in)			::	HXName
logical,	intent(inout)			::	ErrorsFound

Return Value integer

public function GetSecondaryInletNode(HXName, ErrorsFound)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=MaxNameLength),	intent(in)			::	HXName
logical,	intent(inout)			::	ErrorsFound

Return Value integer

public function GetSecondaryOutletNode(HXName, ErrorsFound)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=MaxNameLength),	intent(in)			::	HXName
logical,	intent(inout)			::	ErrorsFound

Return Value integer

public function GetSupplyAirFlowRate(HXName, ErrorsFound)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=MaxNameLength),	intent(in)			::	HXName
logical,	intent(inout)			::	ErrorsFound

Return Value real(kind=r64)

public function GetHeatExchangerObjectTypeNum(HXName, ErrorsFound)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=MaxNameLength),	intent(in)			::	HXName
logical,	intent(inout)			::	ErrorsFound

Return Value integer

Subroutines

public subroutine SimHeatRecovery(CompName, FirstHVACIteration, CompIndex, FanOpMode, HXPartLoadRatio, HXUnitEnable, CompanionCoilIndex, RegenInletIsOANode, EconomizerFlag, HighHumCtrlFlag)

Arguments

Type	Intent	Optional		Name
character(len=*),	intent(in)		::	CompName
logical,	intent(in)		::	FirstHVACIteration
integer,	intent(inout)		::	CompIndex
integer,	intent(in)		::	FanOpMode
real(kind=r64),	intent(in),	optional	::	HXPartLoadRatio
logical,	intent(in),	optional	::	HXUnitEnable
integer,	intent(in),	optional	::	CompanionCoilIndex
logical,	intent(in),	optional	::	RegenInletIsOANode
logical,	intent(in),	optional	::	EconomizerFlag
logical,	intent(in),	optional	::	HighHumCtrlFlag

private subroutine GetHeatRecoveryInput()

Arguments

None

private subroutine InitHeatRecovery(ExchNum, CompanionCoilIndex)

Arguments

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

private subroutine SizeHeatRecovery(ExchNum)

Arguments

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

private subroutine CalcAirToAirPlateHeatExch(ExNum, HXUnitOn, EconomizerFlag, HighHumCtrlFlag)

Arguments

Type	Intent	Optional		Name
integer,	intent(in)		::	ExNum
logical,	intent(in)		::	HXUnitOn
logical,	intent(in),	optional	::	EconomizerFlag
logical,	intent(in),	optional	::	HighHumCtrlFlag

private subroutine CalcAirToAirGenericHeatExch(ExNum, HXUnitOn, FirstHVACIteration, EconomizerFlag, HighHumCtrlFlag)

Economizer is active, so bypass heat exchange calcs. This applies to both flat plate and rotary HX's

Arguments

Type	Intent	Optional		Name
integer,	intent(in)		::	ExNum
logical,	intent(in)		::	HXUnitOn
logical,	intent(in)		::	FirstHVACIteration
logical,	intent(in),	optional	::	EconomizerFlag
logical,	intent(in),	optional	::	HighHumCtrlFlag

private subroutine CalcDesiccantBalancedHeatExch(ExNum, HXUnitOn, FirstHVACIteration, FanOpMode, PartLoadRatio, CompanionCoilIndex, RegenInletIsOANode, EconomizerFlag, HighHumCtrlFlag)

Arguments

Type	Intent	Optional		Name
integer,	intent(in)		::	ExNum
logical,	intent(in)		::	HXUnitOn
logical,	intent(in)		::	FirstHVACIteration
integer,	intent(in)		::	FanOpMode
real(kind=r64),	intent(in)		::	PartLoadRatio
integer,	intent(in)		::	CompanionCoilIndex
logical,	intent(in)		::	RegenInletIsOANode
logical,	intent(in),	optional	::	EconomizerFlag
logical,	intent(in),	optional	::	HighHumCtrlFlag

private subroutine FrostControl(ExNum)

Arguments

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

private subroutine UpdateHeatRecovery(ExNum)

Arguments

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

private subroutine ReportHeatRecovery(ExNum)

Arguments

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

private subroutine CalculateEpsFromNTUandZ(NTU, Z, FlowArr, Eps)

Arguments

Type	Intent		Name
real(kind=r64),	intent(in)	::	NTU
real(kind=r64),	intent(in)	::	Z
integer,	intent(in)	::	FlowArr
real(kind=r64),	intent(out)	::	Eps

private subroutine CalculateNTUfromEpsAndZ(NTU, Err, Z, FlowArr, Eps)

Arguments

Type	Intent		Name
real(kind=r64),	intent(out)	::	NTU
integer,	intent(inout)	::	Err
real(kind=r64),	intent(in)	::	Z
integer,	intent(in)	::	FlowArr
real(kind=r64),	intent(in)	::	Eps

private subroutine CheckModelBoundsTempEq(ExchNum, T_RegenInTemp, T_RegenInHumRat, T_ProcInTemp, T_ProcInHumRat, T_FaceVel, FirstHVACIteration)

Arguments

Type	Intent		Name
integer,	intent(in)	::	ExchNum
real(kind=r64),	intent(inout)	::	T_RegenInTemp
real(kind=r64),	intent(inout)	::	T_RegenInHumRat
real(kind=r64),	intent(inout)	::	T_ProcInTemp
real(kind=r64),	intent(inout)	::	T_ProcInHumRat
real(kind=r64),	intent(inout)	::	T_FaceVel
logical,	intent(in)	::	FirstHVACIteration

private subroutine CheckModelBoundsHumRatEq(ExchNum, H_RegenInTemp, H_RegenInHumRat, H_ProcInTemp, H_ProcInHumRat, H_FaceVel, FirstHVACIteration)

Arguments

Type	Intent		Name
integer,	intent(in)	::	ExchNum
real(kind=r64),	intent(inout)	::	H_RegenInTemp
real(kind=r64),	intent(inout)	::	H_RegenInHumRat
real(kind=r64),	intent(inout)	::	H_ProcInTemp
real(kind=r64),	intent(inout)	::	H_ProcInHumRat
real(kind=r64),	intent(inout)	::	H_FaceVel
logical,	intent(in)	::	FirstHVACIteration

private subroutine CheckModelBoundOutput_Temp(ExchNum, RegenInTemp, RegenOutTemp, FirstHVACIteration)

Arguments

Type	Intent		Name
integer,	intent(in)	::	ExchNum
real(kind=r64),	intent(in)	::	RegenInTemp
real(kind=r64),	intent(inout)	::	RegenOutTemp
logical,	intent(in)	::	FirstHVACIteration

private subroutine CheckModelBoundOutput_HumRat(ExchNum, RegenInHumRat, RegenOutHumRat, FirstHVACIteration)

Arguments

Type	Intent		Name
integer,	intent(in)	::	ExchNum
real(kind=r64),	intent(in)	::	RegenInHumRat
real(kind=r64),	intent(inout)	::	RegenOutHumRat
logical,	intent(in)	::	FirstHVACIteration

private subroutine CheckModelBoundsRH_TempEq(ExchNum, T_RegenInTemp, T_RegenInHumRat, T_ProcInTemp, T_ProcInHumRat, FirstHVACIteration)

Arguments

Type	Intent		Name
integer,	intent(in)	::	ExchNum
real(kind=r64),	intent(in)	::	T_RegenInTemp
real(kind=r64),	intent(in)	::	T_RegenInHumRat
real(kind=r64),	intent(in)	::	T_ProcInTemp
real(kind=r64),	intent(in)	::	T_ProcInHumRat
logical,	intent(in)	::	FirstHVACIteration

private subroutine CheckModelBoundsRH_HumRatEq(ExchNum, H_RegenInTemp, H_RegenInHumRat, H_ProcInTemp, H_ProcInHumRat, FirstHVACIteration)

Arguments

Type	Intent		Name
integer,	intent(in)	::	ExchNum
real(kind=r64),	intent(in)	::	H_RegenInTemp
real(kind=r64),	intent(in)	::	H_RegenInHumRat
real(kind=r64),	intent(in)	::	H_ProcInTemp
real(kind=r64),	intent(in)	::	H_ProcInHumRat
logical,	intent(in)	::	FirstHVACIteration

private subroutine CheckForBalancedFlow(ExchNum, ProcessInMassFlow, RegenInMassFlow, FirstHVACIteration)

Arguments

Type	Intent		Name
integer,	intent(in)	::	ExchNum
real(kind=r64),	intent(in)	::	ProcessInMassFlow
real(kind=r64),	intent(in)	::	RegenInMassFlow
logical,	intent(in)	::	FirstHVACIteration

public subroutine SetHeatExchangerData(HXNum, ErrorsFound, HXName, SupplyAirVolFlow, SecondaryAirVolFlow)

Arguments

Type	Intent	Optional		Name
integer,	intent(in)		::	HXNum
logical,	intent(inout)		::	ErrorsFound
character(len=*),	intent(in)		::	HXName
real(kind=r64),		optional	::	SupplyAirVolFlow
real(kind=r64),		optional	::	SecondaryAirVolFlow

All Modules

AirflowNetworkBalanceManager AirflowNetworkSolver BaseboardElectric BaseboardRadiator Boilers BoilerSteam BranchInputManager BranchNodeConnections ChillerAbsorption ChillerElectricEIR ChillerExhaustAbsorption ChillerGasAbsorption ChillerIndirectAbsorption ChillerReformulatedEIR CondenserLoopTowers ConductionTransferFunctionCalc ConvectionCoefficients CoolTower CostEstimateManager CrossVentMgr CTElectricGenerator CurveManager DataAirflowNetwork DataAirLoop DataAirSystems DataBranchAirLoopPlant DataBranchNodeConnections DataBSDFWindow DataComplexFenestration DataContaminantBalance DataConvergParams DataConversions DataCostEstimate DataDaylighting DataDaylightingDevices DataDefineEquip DataDElight DataEnvironment DataErrorTracking DataGenerators DataGlobalConstants DataGlobals DataHeatBalance DataHeatBalFanSys DataHeatBalSurface DataHVACControllers DataHVACGlobals DataInterfaces DataIPShortCuts DataLoopNode DataMoistureBalance DataMoistureBalanceEMPD DataOutputs DataPhotovoltaics DataPlant DataPlantPipingSystems DataPrecisionGlobals DataReportingFlags DataRoomAirModel DataRootFinder DataRuntimeLanguage DataShadowingCombinations DataSizing DataStringGlobals DataSurfaceColors DataSurfaceLists DataSurfaces DataSystemVariables DataTimings DataUCSDSharedData DataVectorTypes DataViewFactorInformation DataWater DataWindowEquivalentLayer DataZoneControls DataZoneEnergyDemands DataZoneEquipment DaylightingDevices DaylightingManager DELIGHTMANAGERF DELIGHTMANAGERF DemandManager DesiccantDehumidifiers DirectAirManager DisplacementVentMgr DualDuct DXCoils DXFEarClipping EarthTube EconomicLifeCycleCost EconomicTariff EcoRoofManager ElectricBaseboardRadiator EMSManager EvaporativeCoolers EvaporativeFluidCoolers ExteriorEnergyUse ExternalInterface FanCoilUnits Fans FaultsManager FluidCoolers FluidProperties FuelCellElectricGenerator Furnaces General GeneratorDynamicsManager GeneratorFuelSupply GlobalNames GroundHeatExchangers HeatBalanceAirManager HeatBalanceHAMTManager HeatBalanceIntRadExchange HeatBalanceManager HeatBalanceMovableInsulation HeatBalanceSurfaceManager HeatBalFiniteDiffManager HeatingCoils HeatPumpWaterToWaterCOOLING HeatPumpWaterToWaterHEATING HeatPumpWaterToWaterSimple HeatRecovery HighTempRadiantSystem Humidifiers HVACControllers HVACCooledBeam HVACDuct HVACDXHeatPumpSystem HVACDXSystem HVACHXAssistedCoolingCoil HVACInterfaceManager HVACManager HVACMultiSpeedHeatPump HVACSingleDuctInduc HVACStandAloneERV HVACUnitaryBypassVAV HVACUnitarySystem HVACVariableRefrigerantFlow HWBaseboardRadiator ICEngineElectricGenerator IceThermalStorage InputProcessor InternalHeatGains ISO_C_FUNCTION_BINDING ISO_C_FUNCTION_BINDING LowTempRadiantSystem ManageElectricPower MatrixDataManager MicroCHPElectricGenerator MicroturbineElectricGenerator MixedAir MixerComponent MoistureBalanceEMPDManager MundtSimMgr NodeInputManager NonZoneEquipmentManager OutAirNodeManager OutdoorAirUnit OutputProcessor OutputReportPredefined OutputReportTabular OutsideEnergySources PackagedTerminalHeatPump PackagedThermalStorageCoil Photovoltaics PhotovoltaicThermalCollectors PipeHeatTransfer Pipes PlantCentralGSHP PlantChillers PlantComponentTemperatureSources PlantCondLoopOperation PlantHeatExchangerFluidToFluid PlantLoadProfile PlantLoopEquip PlantLoopSolver PlantManager PlantPipingSystemsManager PlantPressureSystem PlantUtilities PlantValves PollutionModule PondGroundHeatExchanger PoweredInductionUnits Psychrometrics Pumps PurchasedAirManager RefrigeratedCase ReportSizingManager ReturnAirPathManager RoomAirModelManager RoomAirModelUserTempPattern RootFinder RuntimeLanguageProcessor ScheduleManager SetPointManager SimAirServingZones SimulationManager SingleDuct SizingManager SolarCollectors SolarReflectionManager SolarShading SortAndStringUtilities SplitterComponent SQLiteProcedures SQLiteProcedures StandardRatings SteamBaseboardRadiator SteamCoils SurfaceGeometry SurfaceGroundHeatExchanger SystemAvailabilityManager SystemReports TARCOGArgs TARCOGCommon TARCOGDeflection TARCOGGasses90 TARCOGGassesParams TARCOGMain TARCOGOutput TARCOGParams TarcogShading ThermalChimney ThermalComfort ThermalEN673Calc ThermalISO15099Calc TranspiredCollector UFADManager UnitHeater UnitVentilator UserDefinedComponents VariableSpeedCoils vectors VentilatedSlab WaterCoils WaterManager WaterThermalTanks WatertoAirHeatPump WatertoAirHeatPumpSimple WaterUse WeatherManager WindowAC WindowComplexManager WindowEquivalentLayer WindowManager WindTurbine ZoneAirLoopEquipmentManager ZoneContaminantPredictorCorrector ZoneDehumidifier ZoneEquipmentManager ZonePlenum ZoneTempPredictorCorrector

HeatRecovery Module

Uses:

Used By

Variables

Derived Types

type, private :: HeatExchCond

Components

type, private :: BalancedDesDehumPerfData

Components

Functions

private function SafeDiv(a, b) result(c)

Arguments

Return Value real(kind=r64)

private function GetNTUforCrossFlowBothUnmixed(Eps, Z) result(NTU)

Arguments

Return Value real(kind=r64)

private function GetResidCrossFlowBothUnmixed(NTU, Par) result(Residuum)

Arguments

Return Value real(kind=r64)

public function GetSupplyInletNode(HXName, ErrorsFound)

Arguments

Return Value integer

public function GetSupplyOutletNode(HXName, ErrorsFound)

Arguments

Return Value integer

public function GetSecondaryInletNode(HXName, ErrorsFound)

Arguments

Return Value integer

public function GetSecondaryOutletNode(HXName, ErrorsFound)

Arguments

Return Value integer

public function GetSupplyAirFlowRate(HXName, ErrorsFound)

Arguments

Return Value real(kind=r64)

public function GetHeatExchangerObjectTypeNum(HXName, ErrorsFound)

Arguments

Return Value integer

Subroutines

public subroutine SimHeatRecovery(CompName, FirstHVACIteration, CompIndex, FanOpMode, HXPartLoadRatio, HXUnitEnable, CompanionCoilIndex, RegenInletIsOANode, EconomizerFlag, HighHumCtrlFlag)

Arguments

private subroutine GetHeatRecoveryInput()

Arguments

private subroutine InitHeatRecovery(ExchNum, CompanionCoilIndex)

Arguments

private subroutine SizeHeatRecovery(ExchNum)

Arguments

private subroutine CalcAirToAirPlateHeatExch(ExNum, HXUnitOn, EconomizerFlag, HighHumCtrlFlag)

Arguments

private subroutine CalcAirToAirGenericHeatExch(ExNum, HXUnitOn, FirstHVACIteration, EconomizerFlag, HighHumCtrlFlag)

Arguments

private subroutine CalcDesiccantBalancedHeatExch(ExNum, HXUnitOn, FirstHVACIteration, FanOpMode, PartLoadRatio, CompanionCoilIndex, RegenInletIsOANode, EconomizerFlag, HighHumCtrlFlag)

Arguments

private subroutine FrostControl(ExNum)

Arguments

private subroutine UpdateHeatRecovery(ExNum)

Arguments

private subroutine ReportHeatRecovery(ExNum)

Arguments

private subroutine CalculateEpsFromNTUandZ(NTU, Z, FlowArr, Eps)

Arguments

private subroutine CalculateNTUfromEpsAndZ(NTU, Err, Z, FlowArr, Eps)

Arguments

private subroutine CheckModelBoundsTempEq(ExchNum, T_RegenInTemp, T_RegenInHumRat, T_ProcInTemp, T_ProcInHumRat, T_FaceVel, FirstHVACIteration)

Arguments

private subroutine CheckModelBoundsHumRatEq(ExchNum, H_RegenInTemp, H_RegenInHumRat, H_ProcInTemp, H_ProcInHumRat, H_FaceVel, FirstHVACIteration)

Arguments

private subroutine CheckModelBoundOutput_Temp(ExchNum, RegenInTemp, RegenOutTemp, FirstHVACIteration)

Arguments

private subroutine CheckModelBoundOutput_HumRat(ExchNum, RegenInHumRat, RegenOutHumRat, FirstHVACIteration)

Arguments

private subroutine CheckModelBoundsRH_TempEq(ExchNum, T_RegenInTemp, T_RegenInHumRat, T_ProcInTemp, T_ProcInHumRat, FirstHVACIteration)

Arguments

private subroutine CheckModelBoundsRH_HumRatEq(ExchNum, H_RegenInTemp, H_RegenInHumRat, H_ProcInTemp, H_ProcInHumRat, FirstHVACIteration)

Arguments

private subroutine CheckForBalancedFlow(ExchNum, ProcessInMassFlow, RegenInMassFlow, FirstHVACIteration)

Arguments

public subroutine SetHeatExchangerData(HXNum, ErrorsFound, HXName, SupplyAirVolFlow, SecondaryAirVolFlow)

Arguments