TYPE, PRIVATE :: RefrigGasCoolerData
CHARACTER(len=MaxNameLength) :: Name=' ' ! Name of gas cooler
CHARACTER(len=MaxNameLength) :: EndUseSubcategory='General' ! Gas cooler end-use subcategory
LOGICAL :: GasCoolerRejectHeatToZone = .FALSE. ! Flag to show gas cooler located inside zone
LOGICAL :: TransOpFlag = .FALSE. ! Flag to show transcritical (vs subcritical) operation of the refrigeration system
INTEGER, ALLOCATABLE, DIMENSION(:) :: SysNum ! absolute Index of system placing load (allocated NumRefrigSystems)
INTEGER :: CapCurvePtr = 0 ! capcity curve pointer for gas cooler
INTEGER :: FanSpeedControlType = 0 ! fixed, two-speed, or variable
INTEGER :: GasCoolerCreditWarnIndex = 0 ! Used to count warnings
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 :: NumSysAttach=0 ! Number of systems attached to gas cooler
REAL(r64) :: ActualFanPower = 0.0d0 ! Actual gas cooler fan power (W)
REAL(r64) :: CpGasCoolerOut = 0.0d0 ! Saturated liquid specific heat at gas cooler outlet (J/kg-C)
REAL(r64) :: FanElecEnergy = 0.0d0 ! Gas cooler fan electric consumption (J)
REAL(r64) :: FanMinAirFlowRatio = 0.0d0 ! Minimum power fraction for fan (dimensionless between 0 and 1.0)
REAL(r64) :: GasCoolerApproachT = 3.0d0 ! Gas cooler approach temperature (C)
REAL(r64) :: GasCoolerEnergy = 0.0d0 ! Gas cooler energy (J)
REAL(r64) :: GasCoolerLoad = 0.0d0 ! Total gas cooler load (W)
REAL(r64) :: HGasCoolerOut = 0.0d0 ! Specific enthalpy at the gas cooler outlet (C)
REAL(r64) :: InternalEnergyRecovered = 0.0d0 ! InternalHeatRecovered, J
REAL(r64) :: InternalHeatRecoveredLoad = 0.0d0 ! Sum of all heat recovered for defrost purposes [W]
REAL(r64) :: MinCondLoad = 0.0d0 ! minimun gas cooler load for air-cooled gas cooler (W)
REAL(r64) :: MinCondTemp = 1.0d1 ! Minimum condensing temperature during subcritical operation (C)
REAL(r64) :: PGasCoolerOut = 0.0d0 ! Optimum pressure at the gas cooler outlet (C)
REAL(r64) :: RatedApproachT = 3.0d0 ! Rated approach temperature difference(C)
REAL(r64) :: RatedCapacity = 0.0d0 ! Rated heat rejection capacity (W)
REAL(r64) :: RatedFanPower = 0.0d0 ! Rated gas cooler fan power (W)
REAL(r64) :: RatedOutletP = 9.0d6 ! Rated gas cooler outlet pressure (Pa)
REAL(r64) :: RatedOutletT = 38.0d0 ! Rated gas cooler outlet temperature (C)
REAL(r64) :: RefOpCharge = 0.0d0 ! Gas cooler refrigerant operating charge, kg
REAL(r64) :: RefPipingInventory =0.0d0 ! Gas cooler outlet piping refrigerant inventory, kg
REAL(r64) :: RefReceiverInventory = 0.0d0 ! Gas cooler receiver refrigerant inventory, kg
REAL(r64) :: SubcriticalTempDiff = 1.0d1 ! Temperature difference for subcritical operation (C)
REAL(r64) :: TempSlope = 0.0d0 ! slope for deltaT as function of heat rej for gas cooler (C/W)
REAL(r64) :: TGasCoolerOut = 0.0d0 ! Temperature at the gas cooler outlet (C)
REAL(r64) :: TotalHeatRecoveredEnergy = 0.0d0 ! All recovered heat for defrost purposes, J
REAL(r64) :: TotalHeatRecoveredLoad = 0.0d0 ! All recovered heat for defrost purposes [W]
REAL(r64) :: TransitionTemperature = 0.0d0 ! Transition temperature between subcritical and transcritical operation (C)
! REAL(r64) :: ExternalEnergyRecovered = 0.0d0 ! ExternalHeatRecovered, J
! REAL(r64) :: ExternalHeatRecoveredLoad = 0.0d0 ! Sum of LaggedUsedWaterHeater and LaggedUsedHVACCoil [W]
! REAL(r64) :: LaggedUsedWaterHeater =0.0d0 ! Heat reclaim used to heat water in previous zone/load time step(W)
! REAL(r64) :: LaggedUsedHVACCoil =0.0d0 ! Heat reclaim used to heat HVAC coil in previous zone/load time step(W)
END TYPE RefrigGasCoolerData