TYPE, PRIVATE :: RefrigCondenserData
CHARACTER(len=MaxNameLength) :: Name=' ' ! Name of condenser
CHARACTER(len=MaxNameLength) :: SupplyTankName=' ' ! Evap water supply tank name
CHARACTER(len=MaxNameLength) :: EndUseSubcategory='General'! Rack end-use subcategory
LOGICAL :: CondenserRejectHeatToZone = .FALSE. ! Flag to show air-cooled condenser located inside zone
LOGICAL :: CoilFlag = .FALSE. ! Flag to show if coil type load on system served by condenser
INTEGER, ALLOCATABLE, DIMENSION(:) :: SysNum ! absolute Index of system placing load (allocated NumRefrigSystems)
INTEGER :: NumSysAttach=0 ! Number of systems attached to condenser, error if /=1
INTEGER :: CondenserType = 0 ! Specifies cooling mode for condenser
! (1=Dry air, 2=Evap cooling, 3=Water-cooled, 4=Cascade)
INTEGER :: EvapFreezeWarnIndex = 0 ! Recurring freeze warning index
INTEGER :: FlowType = 1 ! Water-cooled condenser loop flow type
INTEGER :: CondCreditWarnIndex1 = 0 ! Used to count warnings
INTEGER :: CondCreditWarnIndex2 = 0 ! Used to count warnings
INTEGER :: CondCreditWarnIndex3 = 0 ! Used to count warnings
INTEGER :: CondCreditWarnIndex4 = 0 ! Used to count warnings
INTEGER :: CondCreditWarnIndex5 = 0 ! Used to count warnings
INTEGER :: CondCreditWarnIndex6 = 0 ! Used to count warnings
INTEGER :: CondCreditWarnIndex7 = 0 ! Used to count warnings
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
INTEGER :: EvapSchedPtr=0 ! Index to the correct evap condenser availability schedule
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 :: 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
INTEGER :: OutletTempSchedPtr = 0 ! Schedule pointer for condenser outlet temp setting
INTEGER :: InletAirNodeNum = 0 ! Inlet air node number, can be outside or in a zone
INTEGER :: InletAirZoneNum = 0 ! Inlet air zone number, if located in a zone
INTEGER :: FanSpeedControlType = 0 ! fixed, two-speed, or variable
INTEGER :: CapCurvePtr = 0 ! capcity curve pointer for air-cooled condensers
INTEGER :: CascadeSysID = 0 ! System ID number for system rejecting heat to cascade condenser
INTEGER :: CascadeTempControl = 0 ! Determines whether cascade condenser evaporating temperature set by
! Tevap for other loads on system (=2) or set at a constant (= 1)
INTEGER :: CascadeSinkSystemID= 0 ! System ID number for system absorbing condenser heat
!INTEGER :: ServiceType = 1 ! Index to warehouse or supermarket (only applies to cascade condensers)
! 1 = supermarket, 2=warehouse
REAL(r64) :: CascadeRatedEvapTemp = 0.0d0 ! Rated evaporating temperature in cascade condenser
REAL(r64) :: MinCondLoad = 0.0d0 ! minimun condenser load for air-cooled cond (W)
REAL(r64) :: TempSlope = 0.0d0 ! slope for deltaT as function of heat rej for air-cooled cond (C/W)
REAL(r64) :: EvapEffect=0.9d0 ! Effectiveness of evaporative condenser
REAL(r64) :: RatedAirFlowRate=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)
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) :: FanMinAirFlowRatio = 0.0d0 ! Minimum power fraction for fan (dimensionless between 0 and 1.0)
REAL(r64) :: RatedFanPower=0.0d0 ! Rated Condenser fan power (W)
REAL(r64) :: ActualFanPower=0.0d0 ! Condenser fan power (W)
REAL(r64) :: FanElecEnergy=0.0d0 ! Condenser fan electric consumption (J)
REAL(r64) :: InletTemp = 0.0d0 ! Water-cooling condenser inlet temperature (C)
REAL(r64) :: OutletTemp = 0.0d0 ! Water-cooling condenser outlet temperature (C)
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 water mass flow rate (kg/s)
REAL(r64) :: RatedTCondense = 0.0d0 ! Condenser rated saturated condensing Temperature (C)
REAL(r64) :: CondLoad = 0.0d0 ! Total condenser load (W)
REAL(r64) :: CondEnergy = 0.0d0 ! Condenser energy (J)
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) :: RatedSubcool = 0.d0 ! Subcooling included in capacity rating curves (C)
REAL(r64) :: RatedDelT = 0.d0 ! Rated difference between Tcondense and Tdrybulb for air-cooled (C)
! Rated difference between Tcondense and Twetbulb for evap-cooled (C)
REAL(r64) :: RatedCapacity = 0.d0 ! Rated heat rejection capacity (W)
REAL(r64) :: RatedWaterInletT = 0.d0 ! Rated water inlet temperature (C)
REAL(r64) :: RatedApproachT = 0.d0 ! Rated approach temperature difference for water-cooled or cascade condenser(C)
REAL(r64) :: MinCapFacEvap = 0.d0 ! HRCF equation limit
REAL(r64) :: MaxCapFacEvap = 0.d0 ! HRCF equation limit
REAL(r64) :: EvapCoeff1=0.d0 ! First coefficienct in evap condenser approach T difference equn (C)
REAL(r64) :: EvapCoeff2=0.d0 ! Second coefficienct in evap condenser approach T difference equn (C)
REAL(r64) :: EvapCoeff3=0.d0 ! Third coefficienct in evap condenser approach T difference equn (C)
REAL(r64) :: EvapCoeff4=0.d0 ! Fourth coefficienct in evap condenser approach T difference equn (dimensionless)
REAL(r64) :: EvapElevFact=1.0d0 ! Elevation correction factor for evap condensers
REAL(r64) :: RefOpCharge=0.d0 ! Condenser refrigerant operating charge, kg
REAL(r64) :: RefReceiverInventory =0.d0 ! Condensate receiver refrigerant inventory, kg
REAL(r64) :: RefPipingInventory =0.d0 ! Condensate piping refrigerant inventory, kg
REAL(r64) :: TotalHeatRecoveredEnergy =0.d0 ! All recovered heat for external loads and defrost purposes, J
REAL(r64) :: TotalHeatRecoveredLoad =0.d0 ! All recovered heat for external loads and defrost purposes [W]
REAL(r64) :: ExternalEnergyRecovered =0.d0 ! ExternalHeatRecovered, J
REAL(r64) :: InternalEnergyRecovered =0.d0 ! InternalHeatRecovered, J
REAL(r64) :: ExternalHeatRecoveredLoad =0.d0 ! Sum of LaggedUsedWaterHeater and LaggedUsedHVACCoil [W]
REAL(r64) :: InternalHeatRecoveredLoad =0.d0 ! Sum of all heat recovered for defrost purposes [W]
REAL(r64) :: LaggedUsedWaterHeater =0.d0 ! Heat reclaim used to heat water in previous zone/load time step(W)
REAL(r64) :: LaggedUsedHVACCoil =0.d0 ! Heat reclaim used to heat HVAC coil in previous zone/load time step(W)
END TYPE RefrigCondenserData