TYPE, PRIVATE :: TransRefrigSystemData
CHARACTER(len=MaxNameLength) :: Name=' ' ! Name of transcritical CO2 refrigeration system
CHARACTER(len=MaxNameLength) :: RefrigerantName=' ' ! Name of refrigerant, must match name in FluidName
! (see fluidpropertiesrefdata.idf)
CHARACTER(len=MaxNameLength) :: EndUseSubcategory=' ' ! Used for reporting purposes
LOGICAL :: SystemRejectHeatToZone = .FALSE. ! Flag to show air-cooled gas cooler located inside zone
INTEGER, ALLOCATABLE, DIMENSION(:) :: CaseNumMT ! absolute Index of medium temperature cases (allocated NumCasesMT)
INTEGER, ALLOCATABLE, DIMENSION(:) :: CaseNumLT ! absolute Index of low temperature cases (allocated NumCasesLT)
INTEGER, ALLOCATABLE, DIMENSION(:) :: CompressorNumHP ! absolute Index of high pressure compressors (allocated NumCompressorsHP)
INTEGER, ALLOCATABLE, DIMENSION(:) :: CompressorNumLP ! absolute Index of low pressure compressors (allocated NumCompressorsLP)
INTEGER, ALLOCATABLE, DIMENSION(:) :: GasCoolerNum ! absolute Index of gas cooler
INTEGER, ALLOCATABLE, DIMENSION(:) :: WalkInNumMT ! absolute Index of medium temperature walk ins (allocated NumWalkInsMT)
INTEGER, ALLOCATABLE, DIMENSION(:) :: WalkInNumLT ! absolute Index of low temperature walk ins (allocated NumWalkInsLT)
INTEGER :: NumCasesLT = 0 ! Number of low temperature cases on this system
INTEGER :: NumCasesMT = 0 ! Number of medium temperature cases on this system
INTEGER :: NumCompressorsHP = 0 ! Number of high pressure compressors on this system
INTEGER :: NumCompressorsLP = 0 ! Number of low pressure compressors on this system
INTEGER :: NumGasCoolers = 1 ! Number of gas coolers on this system
INTEGER :: NumWalkInsLT = 0 ! Number of low temperature walk in coolers on this system
INTEGER :: NumWalkInsMT = 0 ! Number of medium temperature walk in coolers on this system
INTEGER :: RefIndex = 0 ! Index number of refrigerant, automatically assigned on first call to fluid property
! and used thereafter
INTEGER :: SuctionPipeActualZoneNumMT = 0 ! ID number for zone where medium temperature suction pipes gain heat
INTEGER :: SuctionPipeZoneNodeNumMT = 0 ! ID number for zone node where medium temperature suction pipes gain heat
INTEGER :: SuctionPipeActualZoneNumLT = 0 ! ID number for zone where medium temperature suction pipes gain heat
INTEGER :: SuctionPipeZoneNodeNumLT = 0 ! ID number for zone node where medium temperature suction pipes gain heat
INTEGER :: TransSysType = 0 ! Transcritical refrigeration system type: SingleStage = 1, TwoStage=2
REAL(r64) :: AverageCompressorCOP=0.0d0 ! Average COP for compressers on this system (W)
REAL(r64) :: CpSatLiqCond = 0.0d0 ! Spec Heat of sat liquid at condensing pressure (J/kg-C)
REAL(r64) :: CpSatVapEvapMT = 0.0d0 ! Spec Heat of saturated vapor exiting medium temperature evaporator (J/kg-C)
REAL(r64) :: CpSatVapEvapLT = 0.0d0 ! Spec Heat of saturated vapor exiting low temperature evaporator (J/kg-C)
REAL(r64) :: CpSatLiqReceiver = 0.0d0 ! Spec Heat of saturated liquid in receiver (J/kg-C)
REAL(r64) :: DelHSubcoolerDis = 0.0d0 ! Change in enthalpy across subcooler, hot side (J/kg)
REAL(r64) :: DelHSubcoolerSuc = 0.0d0 ! Change in enthalpy across subcooler, cold side (J/kg)
REAL(r64) :: HCaseInMT = 0.0d0 ! Medium temperature case inlet enthalpy (after subcoolers and pipe P drops) (J/kg)
REAL(r64) :: HCaseInLT = 0.0d0 ! Low temperature case inlet enthalpy (after pipe P drops) (J/kg)
REAL(r64) :: HCompInHP = 0.0d0 ! High pressure compressor inlet enthalpy (J/kg)
REAL(r64) :: HCompInLP = 0.0d0 ! Low pressure compressor inlet enthalpy (J/kg)
REAL(r64) :: HCompOutHP = 0.0d0 ! High pressure compressor outlet enthalpy (J/kg)
REAL(r64) :: HCompOutLP = 0.0d0 ! Low pressure compressor outlet enthalpy (J/kg)
REAL(r64) :: HSatLiqCond = 0.0d0 ! Enthalpy of sat liquid at condensing pressure (J/kg)
REAL(r64) :: HSatLiqReceiver = 0.0d0 ! Enthalpy of sat liquid in receiver (J/kg)
REAL(r64) :: HCaseOutMT = 0.0d0 ! Enthalpy of refrigerant leaving medium temperature cases, after superheat (J/kg)
REAL(r64) :: HCaseOutLT = 0.0d0 ! Enthalpy of refrigerant leaving low temperature cases, after superheat (J/kg)
REAL(r64) :: NetHeatRejectLoad = 0.0d0 ! Portion of TotalCondenser load due to this system (after heat recovery) W
REAL(r64) :: NetHeatRejectEnergy = 0.0d0 ! Portion of TotalCondenser energy due to this system (after heat recovery) J
REAL(r64) :: PipeHeatLoadMT = 0.0d0 ! Total medium temperature suction pipe heat gains, optional (W)
REAL(r64) :: PipeHeatLoadLT = 0.0d0 ! Total low temperature suction pipe heat gains, optional (W)
REAL(r64) :: PipeHeatEnergy = 0.0d0 ! Total suction pipe heat gains, optional (J)
REAL(r64) :: PipeHeatEnergyMT = 0.0d0 ! Total medium temperature suction pipe heat gains, optional (J)
REAL(r64) :: PipeHeatEnergyLT = 0.0d0 ! Total low temperature suction pipe heat gains, optional (J)
REAL(r64) :: RefMassFlowtoMTLoads = 0.0d0 ! Refrigerant mass flow through medium temperature cases(kg/s)
REAL(r64) :: RefMassFlowtoLTLoads = 0.0d0 ! Refrigerant mass flow through low temperature cases(kg/s)
REAL(r64) :: RefMassFlowCompsHP = 0.0d0 ! Total system refrigerant mass flow through high pressue compressors(kg/s)
REAL(r64) :: RefMassFlowCompsLP = 0.0d0 ! Total system refrigerant mass flow through low pressue compressors(kg/s)
REAL(r64) :: RefMassFlowComps = 0.0d0 ! Total system refrigerant mass flow through all compressors (kg/s)
REAL(r64) :: RefMassFlowReceiverByPass = 0.0d0 ! Refrigerant mass flow through receiver bypass (kg/s)
REAL(r64) :: RefInventory = 0.0d0 ! Approximate refrigerant inventory entered by user (kg)
REAL(r64) :: SCEffectiveness = 0.0d0 ! Heat exchanger effectiveness of the subcooler
REAL(r64) :: SumUASuctionPipingMT = 0.0d0 ! Sum of U*A for medium temperature suction piping (W/C)
REAL(r64) :: SumUASuctionPipingLT = 0.0d0 ! Sum of U*A for low temperature suction piping (W/C)
REAL(r64) :: TCaseOutMT = 0.0d0 ! Medium temperature case out temperature including case superheat (C)
REAL(r64) :: TCaseOutLT = 0.0d0 ! Low temperature case out temperature including case superheat (C)
REAL(r64) :: TCondense = 0.0d0 ! Condensing temperature (Tsat for P discharge) (C)
REAL(r64) :: TReceiver = 0.0d0 ! Temperature in receiver (Tsat for P receiver) (C)
REAL(r64) :: PReceiver = 0.0d0 ! Pressure in receiver (Psat for T receiver) (C)
REAL(r64) :: TCompInHP = 0.0d0 ! High pressure compressor inlet temperature (after case and LSHX superheat and pipe delta P) (C)
REAL(r64) :: TCompInLP = 0.0d0 ! Low pressure compressor inlet temperature (after case and pipe delta P) (C)
REAL(r64) :: TCondenseMin = 0.0d0 ! Minimum allowed condensing temperature (C)
REAL(r64) :: TEvapDesignMT = 0.0d0 ! Min (on sys) design medium temperature case/walkin/secondary evap temp
REAL(r64) :: TEvapDesignLT = 0.0d0 ! Min (on sys) design low temperature case/walkin/secondary evap temp
REAL(r64) :: TEvapNeededMT = 0.0d0 ! Max MT Case evap temperature to maintain lowest case T on system (C)
REAL(r64) :: TEvapNeededLT = 0.0d0 ! Max LT Case evap temperature to maintain lowest case T on system (C)
REAL(r64) :: TLiqInActual = 0.0d0 ! Actual liquid temperature entering TXV after subcooling (C)
REAL(r64) :: TotalCondDefrostCredit = 0.0d0 ! sum of heat reclaimed for hot gas and hot brine defrost for cases/WI served directly [W]
REAL(r64) :: TotalCoolingEnergy = 0.0d0 ! Total energy of all refrigerated cases and walkins served directly (J)
REAL(r64) :: TotalCoolingEnergyMT = 0.0d0 ! Total energy of all medium temperature refrigerated cases and walkins served directly (J)
REAL(r64) :: TotalCoolingEnergyLT = 0.0d0 ! Total energy of all low temperature refrigerated cases and walkins served directly (J)
REAL(r64) :: TotalCoolingLoadMT = 0.0d0 ! Total medium temperature load of all refrigerated cases and walkins served directly (W)
REAL(r64) :: TotalCoolingLoadLT = 0.0d0 ! Total low temperature load of all refrigerated cases and walkins served directly (W)
REAL(r64) :: TotalSystemLoad = 0.0d0 ! Sum of MT and LT loads, W
REAL(r64) :: TotalSystemLoadMT = 0.0d0 ! Includes medium temperature cases and walk-ins, W
REAL(r64) :: TotalSystemLoadLT = 0.0d0 ! Includes low temperature cases and walk-ins, W
REAL(r64) :: TotCompPowerHP = 0.0d0 ! Total power for high pressure compressers on this system (W)
REAL(r64) :: TotCompPowerLP = 0.0d0 ! Total power for low pressure compressers on this system (W)
REAL(r64) :: TotCompElecConsump = 0.0d0 ! Total Elec consump for compressers on this system (J)
REAL(r64) :: TotCompElecConsumpHP = 0.0d0 ! Total Elec consumption for high pressure compressors on this system (J)
REAL(r64) :: TotCompElecConsumpLP = 0.0d0 ! Total Elec consumption for low pressure compressors on this system (J)
REAL(r64) :: TotCompCapacity = 0.0d0 ! Sum of HP and LP compressor capacity (W)
REAL(r64) :: TotCompCapacityHP = 0.0d0 ! Total design capacity for high pressure compressers on this system (W)
REAL(r64) :: TotCompCapacityLP = 0.0d0 ! Total design capacity for low pressure compressers on this system (W)
REAL(r64) :: TotCompCoolingEnergy = 0.0d0 ! Total cooling energy from compressers on this system (J)
REAL(r64) :: TotCompCoolingEnergyHP = 0.0d0 ! Total cooling energy from high pressure compressers on this system (J)
REAL(r64) :: TotCompCoolingEnergyLP = 0.0d0 ! Total cooling energy from low pressure compressers on this system (J)
REAL(r64) :: TotRejectHeatRecovered = 0.0d0 ! Total reject heat recovered for hot gas or hot brine defrost (W)
REAL(r64) :: UnmetEnergy = 0.0d0 ! Accumulative loads unmet by the LP and HP compressors on this system (J)
REAL(r64) :: UnmetEnergyMT = 0.0d0 ! Accumulative loads unmet by total HP compressors on this system (J)
REAL(r64) :: UnmetEnergyLT = 0.0d0 ! Accumulative loads unmet by total LP compressors on this system (J)
REAL(r64) :: UnmetEnergySaved =0.0d0 ! Accumulative loads unmet by the LP and HP compressors on this system (J)
REAL(r64) :: UnmetEnergySavedMT = 0.0d0 ! Accumulative loads unmet by total HP compressors on this system (J)
REAL(r64) :: UnmetEnergySavedLT = 0.0d0 ! Accumulative loads unmet by total LP compressors on this system (J)
END TYPE TransRefrigSystemData