Nodes of different colours represent the following:
Solid arrows point from a parent (sub)module to the submodule which is descended from it. Dashed arrows point from a module being used to the module or program unit using it. Where possible, edges connecting nodes are given different colours to make them easier to distinguish in large graphs.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
integer, | intent(in) | :: | UnitarySysNum | |||
logical, | intent(in) | :: | FirstHVACIteration | |||
real(kind=R64), | intent(in) | :: | PartLoadFrac | |||
integer, | intent(in) | :: | CoilType |
Nodes of different colours represent the following:
Solid arrows point from a procedure to one which it calls. Dashed arrows point from an interface to procedures which implement that interface. This could include the module procedures in a generic interface or the implementation in a submodule of an interface in a parent module. Where possible, edges connecting nodes are given different colours to make them easier to distinguish in large graphs.
Nodes of different colours represent the following:
Solid arrows point from a procedure to one which it calls. Dashed arrows point from an interface to procedures which implement that interface. This could include the module procedures in a generic interface or the implementation in a submodule of an interface in a parent module. Where possible, edges connecting nodes are given different colours to make them easier to distinguish in large graphs.
SUBROUTINE SimWaterCoils(UnitarySysNum, FirstHVACIteration,PartLoadFrac, CoilType)
! SUBROUTINE INFORMATION:
! AUTHOR Chandan Sharma, FSEC
! DATE WRITTEN March 2013
! MODIFIED na
! RE-ENGINEERED na
! PURPOSE OF THIS SUBROUTINE:
! This subroutine manages water cooling/heating coil simulation.
! METHODOLOGY EMPLOYED:
! na
! REFERENCES:
! na
! USE STATEMENTS:
USE WaterCoils, ONLY: SimulateWaterCoilComponents
IMPLICIT NONE ! Enforce explicit typing of all variables in this routine
! SUBROUTINE ARGUMENT DEFINITIONS:
INTEGER, INTENT(IN) :: UnitarySysNum ! Index of AirloopHVAC:UnitarySystem object
INTEGER, INTENT(IN) :: CoilType
LOGICAL, INTENT(IN) :: FirstHVACIteration ! True when first HVAC iteration
REAL(R64), INTENT(IN) :: PartLoadFrac
! SUBROUTINE PARAMETER DEFINITIONS:
! na
! INTERFACE BLOCK SPECIFICATIONS
! na
! DERIVED TYPE DEFINITIONS
! na
! SUBROUTINE LOCAL VARIABLE DECLARATIONS:
CHARACTER(len=MaxNameLength) :: CompName ! Name of Unitary System object
REAL(R64) :: mdot
IF (CoilType == CoolingCoil) THEN
CompName = UnitarySystem(UnitarySysNum)%CoolingCoilName
mdot = MIN(Node(UnitarySystem(UnitarySysNum)%CoolCoilFluidOutletNodeNum)%MassFlowRateMaxAvail, &
UnitarySystem(UnitarySysNum)%MaxCoolCoilFluidFlow * PartLoadFrac)
Node(UnitarySystem(UnitarySysNum)%CoolCoilFluidInletNode)%MassFlowRate = mdot
CALL SimulateWaterCoilComponents(CompName,FirstHVACIteration,UnitarySystem(UnitarySysNum)%CoolingCoilIndex, &
FanOpMode = UnitarySystem(UnitarySysNum)%FanOpMode, &
PartLoadRatio = PartLoadFrac)
ELSEIF (CoilType == HeatingCoil) THEN
CompName = UnitarySystem(UnitarySysNum)%HeatingCoilName
mdot = MIN(Node(UnitarySystem(UnitarySysNum)%HeatCoilFluidOutletNodeNum)%MassFlowRateMaxAvail, &
UnitarySystem(UnitarySysNum)%MaxHeatCoilFluidFlow * PartLoadFrac)
Node(UnitarySystem(UnitarySysNum)%HeatCoilFluidInletNode)%MassFlowRate = mdot
CALL SimulateWaterCoilComponents(CompName,FirstHVACIteration,UnitarySystem(UnitarySysNum)%HeatingCoilIndex, &
FanOpMode = UnitarySystem(UnitarySysNum)%FanOpMode, &
PartLoadRatio = PartLoadFrac)
ELSE
CompName = UnitarySystem(UnitarySysNum)%SuppHeatCoilName
mdot = MIN(Node(UnitarySystem(UnitarySysNum)%SuppCoilFluidOutletNodeNum)%MassFlowRateMaxAvail, &
UnitarySystem(UnitarySysNum)%MaxSuppCoilFluidFlow * PartLoadFrac)
Node(UnitarySystem(UnitarySysNum)%SuppCoilFluidInletNode)%MassFlowRate = mdot
CALL SimulateWaterCoilComponents(CompName,FirstHVACIteration,UnitarySystem(UnitarySysNum)%SuppHeatCoilIndex, &
FanOpMode = UnitarySystem(UnitarySysNum)%FanOpMode, &
PartLoadRatio = PartLoadFrac)
END IF
END SUBROUTINE SimWaterCoils