| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| logical, | public | :: | CoilFlag | = | .FALSE. | ||
| character(len=MaxNameLength), | public | :: | Name | = | ' ' | ||
| character(len=MaxNameLength), | public | :: | FluidName | = | ' ' | ||
| character(len=MaxNameLength), | public | :: | EndUseSubcategory | = | ' ' | ||
| integer, | public, | ALLOCATABLE, DIMENSION(:) | :: | CaseNum | |||
| integer, | public, | ALLOCATABLE, DIMENSION(:) | :: | CoilNum | |||
| integer, | public, | ALLOCATABLE, DIMENSION(:) | :: | WalkInNum | |||
| integer, | public | :: | DistPipeZoneNum | = | 0 | ||
| integer, | public | :: | DistPipeZoneNodeNum | = | 0 | ||
| real(kind=r64), | public | :: | DistPipeZoneHeatGain | = | 0.d0 | sensible heat gain rate to zone with pipe |
|
| integer, | public | :: | FluidType | = | 0 | ||
| integer, | public | :: | FluidID | = | 0 | ||
| integer, | public | :: | NumSysAttach | = | 0 | ||
| integer, | public | :: | NumPumps | = | 0 | ||
| integer, | public | :: | NumCases | = | 0 | ||
| integer, | public | :: | NumCoils | = | 0 | ||
| integer, | public | :: | NumWalkIns | = | 0 | ||
| integer, | public | :: | PumpControlType | = | 0 | ||
| integer, | public | :: | ReceiverZoneNum | = | 0 | ||
| integer, | public | :: | ReceiverZoneNodeNum | = | 0 | ||
| real(kind=r64), | public | :: | ReceiverZoneHeatGain | = | 0.d0 | ||
| integer, | public | :: | VarSpeedCurvePtr | = | 0 | ||
| real(kind=r64), | public | :: | AvailLoadCoils | = | 0.0d0 | ||
| real(kind=r64), | public | :: | CpBrineRated | = | 0.0d0 | ||
| real(kind=r64), | public | :: | ChillerRefInventory | = | 0.0d0 | ||
| real(kind=r64), | public | :: | CircRate | = | 0.0d0 | ||
| real(kind=r64), | public | :: | CoolingLoadRated | = | 0.0d0 | ||
| real(kind=r64), | public | :: | DensityBrineRated | = | 0.0d0 | ||
| real(kind=r64), | public | :: | DistPipeHeatGain | = | 0.0d0 | ||
| real(kind=r64), | public | :: | DistPipeHeatGainEnergy | = | 0.0d0 | ||
| real(kind=r64), | public | :: | FlowVolActual | = | 0.0d0 | ||
| real(kind=r64), | public | :: | HotDefrostCondCredit | = | 0.0d0 | ||
| real(kind=r64), | public | :: | HeatExchangeEta | = | 0.0d0 | ||
| real(kind=r64), | public | :: | MaxVolFlow | = | 0.0d0 | ||
| real(kind=r64), | public | :: | MaxLoad | = | 0.0d0 | ||
| real(kind=r64), | public | :: | PumpTotRatedPower | = | 0.0d0 | ||
| real(kind=r64), | public | :: | PumpPowerToHeat | = | 0.0d0 | ||
| real(kind=r64), | public | :: | PumpIncrementFlowVol | = | 0.0d0 | ||
| real(kind=r64), | public | :: | PumpIncrementPower | = | 0.0d0 | ||
| real(kind=r64), | public | :: | PumpPowerTotal | = | 0.0d0 | ||
| real(kind=r64), | public | :: | PumpElecEnergyTotal | = | 0.0d0 | ||
| real(kind=r64), | public | :: | ReceiverHeatGain | = | 0.0d0 | ||
| real(kind=r64), | public | :: | ReceiverHeatGainEnergy | = | 0.0d0 | ||
| real(kind=r64), | public | :: | RefInventory | = | 0.0d0 | ||
| real(kind=r64), | public | :: | SumUADistPiping | = | 0.0d0 | ||
| real(kind=r64), | public | :: | SumUAReceiver | = | 0.0d0 | ||
| real(kind=r64), | public | :: | TBrineAverage | = | 0.0d0 | ||
| real(kind=r64), | public | :: | TBrineInRated | = | 0.0d0 | ||
| real(kind=r64), | public | :: | TCondense | = | 0.0d0 | ||
| real(kind=r64), | public | :: | TEvapDesign | = | 0.0d0 | ||
| real(kind=r64), | public | :: | TApproachDifRated | = | 0.0d0 | ||
| real(kind=r64), | public | :: | TRangeDifRated | = | 0.0d0 | ||
| real(kind=r64), | public | :: | TMinNeeded | = | 0.0d0 | ||
| real(kind=r64), | public | :: | TotalCoolingLoad | = | 0.0d0 | ||
| real(kind=r64), | public | :: | TotalCoolingEnergy | = | 0.0d0 | ||
| real(kind=r64), | public | :: | TotalRefrigLoad | = | 0.0d0 | ||
| real(kind=r64), | public | :: | TotalRefrigEnergy | = | 0.0d0 | ||
| real(kind=r64), | public | :: | UnMetEnergy | = | 0.0d0 | ||
| real(kind=r64), | public | :: | UnMetEnergySaved | = | 0.0d0 |
TYPE, PRIVATE :: SecondaryLoopData
LOGICAL :: CoilFlag = .FALSE. ! Flag to show if coil type load on secondary system
CHARACTER(len=MaxNameLength) :: Name=' ' ! Name of refrigeration system
CHARACTER(len=MaxNameLength) :: FluidName=' ' ! Name of circulating fluid
CHARACTER(len=MaxNameLength) :: EndUseSubcategory=' ' ! Used for reporting purposes
INTEGER, ALLOCATABLE, DIMENSION(:) :: CaseNum ! Absolute Index of cases (dimensioned 1 to NumCases)
INTEGER, ALLOCATABLE, DIMENSION(:) :: CoilNum ! Absolute Index of coils (dimensioned 1 to NumCoils)
INTEGER, ALLOCATABLE, DIMENSION(:) :: WalkInNum ! Absolute Index of walk-ins (dimensioned 1 to NumWalkIns)
INTEGER :: DistPipeZoneNum = 0 ! ID number for zone where distribution pipe gain heat
INTEGER :: DistPipeZoneNodeNum = 0 ! ID number for zone node where distribution pipe gain heat
REAL(r64) :: DistPipeZoneHeatGain = 0.d0 !! sensible heat gain rate to zone with pipe
INTEGER :: FluidType = 0 ! Indicates whether fluid always liquid or undergoes phase change
INTEGER :: FluidID = 0 ! Numerical ID used for calls to properties subroutine
INTEGER :: NumSysAttach = 0 ! Used to check for non-unique and unused secondary loops
INTEGER :: NumPumps = 0 ! Number of pumps (or pump stages) serving this system
INTEGER :: NumCases = 0 ! Number of Cases served by this secondary loop
INTEGER :: NumCoils = 0 ! Number of Cases served by this secondary loop
INTEGER :: NumWalkIns = 0 ! Number of Walk-Ins served by this secondary loop
INTEGER :: PumpControlType = 0 ! Constant speed or variable speed
INTEGER :: ReceiverZoneNum = 0 ! ID number for zone where receiver gains heat
INTEGER :: ReceiverZoneNodeNum = 0 ! ID number for zone node where receiver gains heat
REAL(r64) :: ReceiverZoneHeatGain= 0.d0 ! sensible heat gain rate to zone with receiver
!INTEGER :: ServiceType = 1 ! Index to warehouse or supermarket
! 1 = supermarket, 2=warehouse
INTEGER :: VarSpeedCurvePtr =0 ! Pointer for variable speed pump power curve
REAL(r64) :: AvailLoadCoils =0.0d0 ! Used to determine amount of avail heat for warehouse coils
REAL(r64) :: CpBrineRated =0.0d0 ! Specific heat of secondary loop fluid at rated average
! brine temperature (J/kg-C)
REAL(r64) :: ChillerRefInventory = 0.0d0 ! Refrigerant inventory on cold side of loop heat exchanger
REAL(r64) :: CircRate = 0.0d0 ! For PhaseChange loop = mass flow at pump/mass gas out load (dimensionless)
REAL(r64) :: CoolingLoadRated =0.0d0 ! Rated capacity of heat exchanger serving secondary loop (W)
REAL(r64) :: DensityBrineRated =0.0d0 ! Density of secondary loop fluid at
! rated average brine temperature (J/kg-C)
REAL(r64) :: DistPipeHeatGain =0.0d0 ! Secondary fluid distribution piping heat gain (W)
REAL(r64) :: DistPipeHeatGainEnergy =0.0d0 ! Secondary fluid distribution piping heat gain (J)
REAL(r64) :: FlowVolActual =0.0d0 ! Actual Mass flow rate of circ fluid(kg/s)
REAL(r64) :: HotDefrostCondCredit = 0.0d0 ! Used to credit condenser when heat reclaim used for hot gas/brine defrost (W)
REAL(r64) :: HeatExchangeEta =0.0d0 ! Heat exchanger effectiveness (dimensionless)
REAL(r64) :: MaxVolFlow =0.0d0 ! Defined by minimum of chiller or pump ratings (m3/s)
REAL(r64) :: MaxLoad =0.0d0 ! Defined by minimum of chiller rating or loat at MaxVolFlow (W)
REAL(r64) :: PumpTotRatedPower =0.0d0 ! Total pump rated power on loop (W)
REAL(r64) :: PumpPowerToHeat =0.0d0 ! Fraction of pump power converted to heat in circ fluid (dimensionless)
REAL(r64) :: PumpIncrementFlowVol=0.0d0 ! Circ fluid flow for each pump or pump stage (m3/s)
REAL(r64) :: PumpIncrementPower =0.0d0 ! Pump power for each pump or pump stage (W)
REAL(r64) :: PumpPowerTotal =0.0d0 ! Total Pump Power Secondary Loop (report variable)(W)
REAL(r64) :: PumpElecEnergyTotal =0.0d0 ! Total pump energy secondary loop (report variable)(W)
REAL(r64) :: ReceiverHeatGain =0.0d0 ! Secondary fluid Receiver heat gain (W)
REAL(r64) :: ReceiverHeatGainEnergy =0.0d0 ! Secondary fluid Receiver heat gain (J)
REAL(r64) :: RefInventory =0.0d0 ! Approximate refrigerant inventory entered by user (kg)
REAL(r64) :: SumUADistPiping =0.0d0 ! Sum of U*A for secondary fluid dist piping (W/C)
REAL(r64) :: SumUAReceiver =0.0d0 ! Sum of U*A for secondary fluid receiver (W/C)
REAL(r64) :: TBrineAverage =0.0d0 ! (C)
REAL(r64) :: TBrineInRated =0.0d0 ! Entering brine temperature based upon rated range,approach,
! and evap Temp (C)
REAL(r64) :: TCondense =0.0d0 ! Rated condensing temperature for heat exchanger serving
! secondary loop with phase change(C)
REAL(r64) :: TEvapDesign =0.0d0 ! Rated evaporating temperature for heat exchanger serving
! secondary loop (C)
REAL(r64) :: TApproachDifRated =0.0d0 ! Rated approach temperature diff for heat exchanger serving
! secondary loop (C)
REAL(r64) :: TRangeDifRated =0.0d0 ! Rated range temperature diff for heat exchanger serving
! secondary loop (C)
REAL(r64) :: TMinNeeded =0.0d0 ! Lowest Tbrine to case or walk-in needed on loop (C)
REAL(r64) :: TotalCoolingLoad =0.0d0 ! Total load (cases + walk-ins + pump heat + distribution pipe heat gain)
! on this system (W)
REAL(r64) :: TotalCoolingEnergy =0.0d0 ! Total energy (cases + walk-ins + pump heat + distribution pipe heat gain)
! on this system (J)
REAL(r64) :: TotalRefrigLoad =0.0d0 ! Total load (cases + walk-ins) on this system (W)
REAL(r64) :: TotalRefrigEnergy =0.0d0 ! Total energy (cases + walk-ins) on this system (J)
REAL(r64) :: UnMetEnergy =0.0d0 ! Load that is greater than capacity of loop heat exchanger, accumulates (J)
REAL(r64) :: UnMetEnergySaved =0.0d0 ! Load that is greater than capacity of loop heat exchanger, accumulates (J)
END TYPE SecondaryLoopData