TYPE, PRIVATE :: RefrigRackData
LOGICAL :: CoilFlag = .FALSE. ! Flag to show if coil type load on rack
CHARACTER(len=MaxNameLength) :: Name=' ' ! Name of Refrigeration Compressor rack
CHARACTER(len=MaxNameLength) :: SupplyTankName=' ' ! Evap water supply tank name
CHARACTER(len=MaxNameLength) :: EndUseSubcategory='General'! Rack end-use subcategory
! Index of refrigerated case (1 to NumCases) connected to rack #X
INTEGER, ALLOCATABLE, DIMENSION(:) :: CaseNum
INTEGER, ALLOCATABLE, DIMENSION(:) :: CoilNum
INTEGER, ALLOCATABLE, DIMENSION(:) :: WalkInNum
INTEGER :: HeatRejectionLocation = 0 ! Refrigeration Compressor Rack heat rejection location
! (1=LocationOutdoors or 2=LocationZone)
INTEGER :: CondenserType = 0 ! Specifies cooling mode for outdoor condenser
! (1=Dry air, 2=Evap cooling, 3=Water-cooled)
REAL(r64) :: LaggedUsedWaterHeater ! Heat reclaim used to heat water in previous zone/load time step(W)
REAL(r64) :: LaggedUsedHVACCoil ! Heat reclaim used to heat HVAC coil in previous zone/load time step(W)
REAL(r64) :: EvapEffect=0.9d0 ! Effectiveness of evaporative condenser
REAL(r64) :: CondenserAirFlowRate=0.0d0 ! Evaporative condenser air volume flow rate (m3/s)
REAL(r64) :: EvapPumpPower=0.0d0 ! Evaporative cooling water pump power (W)
REAL(r64) :: ActualEvapPumpPower=0.0d0 ! Evaporative cooling water pump power, if adjusted (W)
REAL(r64) :: EvapPumpConsumption=0.0d0 ! Evaporative cooling water pump electric consumption (J)
REAL(r64) :: EvapWaterConsumpRate=0.0d0 ! Evaporative condenser water consumption rate (m3/s)
REAL(r64) :: EvapWaterConsumption=0.0d0 ! Evaporative condenser water consumption (m3)
INTEGER :: EvapSchedPtr=0 ! Index to the correct evap condenser availability schedule
REAL(r64) :: BasinHeaterPowerFTempDiff= 0.0d0 ! Basin heater capacity per degree K below setpoint (W/K)
REAL(r64) :: BasinHeaterSetPointTemp= 2.0d0 ! Setpoint temperature for basin heater operation (C)
REAL(r64) :: BasinHeaterPower=0.0d0 ! Power demand from basin heater (W)
REAL(r64) :: BasinHeaterConsumption=0.0d0 ! Electric consumption from basin heater (J)
REAL(r64) :: RatedCOP=0.0d0 ! Rated coefficient of performance for compressor rack (W/W)
INTEGER :: COPFTempPtr=0 ! Index to the correct COP curve object
INTEGER :: NumCases=0 ! Total number of refrigerated cases attached to each rack
INTEGER :: NumCoils=0 ! Total number of air chillers attached to each rack
INTEGER :: NumWalkIns=0 ! Total number of walk-ins attached to each rack
INTEGER :: EvapWaterSupplyMode = WaterSupplyFromMains ! Source of water for evap condenser cooling
INTEGER :: EvapWaterSupTankID = 0 ! TankID when evap condenser uses water from storage tank
INTEGER :: EvapWaterTankDemandARRID=0 ! Demand index when evap condenser uses water from storage tank
INTEGER :: OutsideAirNodeNum = 0 ! Outside air node number
INTEGER :: HeatRejectionZoneNum = 0 ! Heat rejection zone number used when walk-ins present and ht rej to zone
INTEGER :: HeatRejectionZoneNodeNum = 0 ! Heat rejection zone node number used when walk-ins present and ht rej to zone
REAL(r64) :: TotalRackLoad=0.0d0 ! Total capacity of all refrigerated cases on rack
REAL(r64) :: RackCompressorCOP=0.0d0 ! Rack compressor COP at specific operating conditions
REAL(r64) :: RackCompressorPower=0.0d0 ! Total rack compressor power (W)
REAL(r64) :: RackElecConsumption =0.0d0 ! Total rack compressor electric consumption (J)
REAL(r64) :: RackCapacity=0.0d0 ! Total rack delivered capacity (W)
REAL(r64) :: RackCoolingEnergy=0.0d0 ! Total rack delivered energy (J)
REAL(r64) :: CondenserFanPower=0.0d0 ! Condenser fan power (W)
INTEGER :: TotCondFTempPtr=0 ! Index for condenser fan power modifier curve
! (function of outdoor temperature)
REAL(r64) :: ActualCondenserFanPower=0.0d0 ! Rack condenser fan power (W)
REAL(r64) :: CondenserFanConsumption=0.0d0 ! Rack condenser fan electric consumption (J)
REAL(r64) :: SensZoneCreditHeatRate=0.0d0 ! Rack sensible heating zone credit rate (W)
REAL(r64) :: SensZoneCreditHeat=0.0d0 ! Rack sensible heating zone credit energy (J)
REAL(r64) :: SensHVACCreditHeatRate=0.0d0 ! Rack sensible heating HVAC credit rate (W)
REAL(r64) :: SensHVACCreditHeat=0.0d0 ! Rack sensible heating HVAC credit energy (J)
INTEGER :: EvapFreezeWarnIndex = 0 ! Recurring freeze warning index
INTEGER :: NoFlowWarnIndex = 0 ! No cooling water when needed warning index
INTEGER :: HighTempWarnIndex = 0 ! Water outlet high temp warning index
INTEGER :: LowTempWarnIndex = 0 ! Water outlet low temp warning index
INTEGER :: HighFlowWarnIndex = 0 ! Water outlet high flow warning index
INTEGER :: HighInletWarnIndex = 0 ! Water inlet high temp warning index
INTEGER :: InletNode = 0 ! Water-cooled condenser inlet node number
REAL(r64) :: InletTemp = 0.0d0 ! Water-cooling condenser inlet temperature (C)
INTEGER :: OutletNode = 0 ! Water-cooled condenser outlet node number
INTEGER :: PlantTypeOfNum = 0 ! Water-cooled condenser plant equipment type
INTEGER :: PlantLoopNum = 0 ! Water-cooled condenser plant loop number
INTEGER :: PlantLoopSideNum = 0 ! Water-cooled condenser plant loop side number
INTEGER :: PlantBranchNum = 0 ! Water-cooled condenser plant branch number
INTEGER :: PlantCompNum = 0 ! Water-cooled condenser plant component number
REAL(r64) :: OutletTemp = 0.0d0 ! Water-cooling condenser outlet temperature (C)
INTEGER :: OutletTempSchedPtr = 0 ! Schedule pointer for condenser outlet temp setting
REAL(r64) :: VolFlowRate = 0.0d0 ! Water-cooled condenser volumetric flow rate (m3/s)
REAL(r64) :: DesVolFlowRate = 0.0d0 ! Water-cooled condenser design volumetric flow rate (m3/s)
REAL(r64) :: MassFlowRate = 0.0d0 ! Water-cooled condenser mass flow rate (kg/s)
REAL(r64) :: CondLoad = 0.0d0 ! Total condenser load (W)
REAL(r64) :: CondEnergy = 0.0d0 ! Condenser energy (J)
INTEGER :: FlowType = 1 ! Water-cooled condenser loop flow type
REAL(r64) :: VolFlowRateMax = 0.0d0 ! Maximum condenser volumetric flow rate (m3/s)
REAL(r64) :: MassFlowRateMax = 0.0d0 ! Maximum condenser mass flow rate (kg/s)
REAL(r64) :: InletTempMin = 10.0d0 ! Minimum condenser water inlet temperature (C)
REAL(r64) :: OutletTempMax = 55.0d0 ! Maximum condenser water outlet temperature (C)
REAL(r64) :: TotalCoolingLoad = 0.0d0
END TYPE RefrigRackData