TYPE, PRIVATE :: WarehouseCoilData
CHARACTER(len=MaxNameLength) :: Name=' ' ! Name of Warehouse Coil
CHARACTER(len=MaxNameLength) :: ZoneName ! Names of zone cooled by coil
LOGICAL :: SecStatusFirst = .FALSE. ! Flag to show if this is the first coil on a particular secondary
LOGICAL :: SecStatusLast = .FALSE. ! Flag to show if this is the last coil on a particular secondary
LOGICAL :: SysStatusFirst = .FALSE. ! Flag to show if this is the first coil on a particular primary
LOGICAL :: SysStatusLast = .FALSE. ! Flag to show if this is the last coil on a particular primary
INTEGER :: CoilFanSchedPtr=0 ! Index to the correct availability schedule
INTEGER :: DefrostDripDownSchedPtr=0 ! Index to the correct fail-safe schedule
INTEGER :: DefrostSchedPtr=0 ! Index to the correct defrost schedule
INTEGER :: DefrostControlType=0 ! Coil defrost control type, Timed,Frost level
INTEGER :: DefrostType=0 ! Coil defrost type, Hot-gas,Electric, Hot-brine
INTEGER :: FanType =0 ! Index to coil fan type (fixed, two-speed, etc.)
INTEGER :: HeaterSchedPtr=0 ! Index to the correct availability schedule
!INTEGER :: NodeNumInlet=0 ! Node number for inlet to coil
!INTEGER :: NodeNumOutlet=0 ! Node number for outlet from coil
INTEGER :: NumSysAttach=0 ! Number of refrigerating systems cooling this coil (error check purpose)
INTEGER :: RatingType=0 ! Indicates which type of manufacturer's rating is used
INTEGER :: SchedPtr=0 ! Index to the correct availability schedule
INTEGER :: SCIndex = 0 ! IDs which of European standard conditions is used for rating
INTEGER :: SecServeID=0 ! Index to the refrigeration system serving this coil
INTEGER :: SHRCorrectionType ! Index to type of correction for sensible heat ratio
INTEGER :: SHRCorrectionCurvePtr ! Index to Sensible heat ratio correction curve
INTEGER :: SysServeID=0 ! Index to the secondary system serving this coil
INTEGER :: VerticalLocation = 0 ! Index to coil location, floor, ceiling, or middle
INTEGER :: ZoneNodeNum=0 ! Index to the zone node for the zone served by this coil
INTEGER :: ZoneNum=0 ! Index to the zone served by this coil
REAL(r64) :: CorrMaterial=0.0d0 ! Correction factor from manufacturer's rating for coil material, default 1.0
REAL(r64) :: CorrRefrigerant=0.0d0 ! Correction factor from manufacturer's rating for refrigerant, default 1.0
REAL(r64) :: DefrostCapacity=0.0d0 ! Design defrost Coil capacity [W]
REAL(r64) :: DefrostPower=0.0d0 ! Defrost power for electric defrost (W)
REAL(r64) :: DeltaFreezeKgFrost = 0.0d0 ! Used to reverse accumulation if the zone/load time step is repeated (kg)
REAL(r64) :: DefEnergyFraction=0.0d0 ! Portion of defrost energy available to melt ice,
! used with fluid defrost with temp termination (dimensionless)
REAL(r64) :: DesignRefrigInventory=0.0d0 ! Design refrigerant inventory [kg]
REAL(r64) :: FanMinAirFlowRatio = 0.0d0 ! Minimum air flow ratio set to preserve fan motor, dimensionless
REAL(r64) :: HeaterPower=0.0d0 ! Rated power of coil heaters [W/m]
REAL(r64) :: HotDefrostCondCredit = 0.0d0 ! Used to credit condenser when heat reclaim used for hot gas/brine defrost (W)
REAL(r64) :: IceTemp= 0.0d0 ! Temperature of Ice Mass [C]
REAL(r64) :: IceTempSaved = 0.0d0 ! Temperature of Ice Mass [C]
REAL(r64) :: KgFrost = 0.0d0 ! Amount of frost on coil evaporator (Kg)
REAL(r64) :: KgFrostSaved = 0.0d0 ! Amount of frost on coil evaporator (Kg)
REAL(r64) :: MaxTemperatureDif = 0.0d0 ! Maximum difference between Tevap and Tair inlet, limits capacity during initial pull-down (deltaC)
REAL(r64) :: RatedAirVolumeFlow = 0.0d0 ! Rated air flow through coil (m3/s)
REAL(r64) :: RatedCapTotal=0.0d0 ! Rated total heat capacity, both latent and sensible [W]
REAL(r64) :: RatedFanPower=0.0d0 ! Rated power of fans [W]
REAL(r64) :: RatedRH = 0.0d0 ! Rated RH corresponding to RatedCapacityTotal [decimal 0 to 1]
REAL(r64) :: RatedSensibleCap=0.0d0 ! Rated total capacity at sensible heat ratio of 1.0 [W]
REAL(r64) :: RatedTemperatureDif=0.0d0 ! Rated temperature difference DT1, T air in minus evaporating temperature [W]
REAL(r64) :: ReqLoad = 0.0d0 ! Load requested to meet zone load [W]
REAL(r64) :: SensHeatRatio = 0.0d0 ! Sensible heat ratio (sensible/total), dimensionless
REAL(r64) :: SHRCorrection60=0.0d0 ! Correction factor corresponding to sensible heat ratio of 0.6 [ dimensionless]
REAL(r64) :: Temperature=0.0d0 ! Rated temperature [C]
REAL(r64) :: TEvapDesign=0.0d0 ! Design evaporator temperature (or brine inlet T) [C]
REAL(r64) :: ThermalDefrostPower=0.0d0 ! Thermal defrost load used to communicate with derate routine even if not electric defrost [W]
REAL(r64) :: UnitLoadFactorSens=0.0d0 ! Rated sensible capacity [W/C]
! Report Variables
REAL(r64) :: ElecHeaterPower=0.0d0 ! Coil heater rate (W)
REAL(r64) :: ElecHeaterConsumption=0.0d0 ! Coil heater energy (J)
REAL(r64) :: ElecFanPower=0.0d0 ! Coil fan electric power (W)
REAL(r64) :: ElecFanConsumption=0.0d0 ! Coil fan electric energy (J)
REAL(r64) :: ElecDefrostPower=0.0d0 ! Coil defrost rate (W)
REAL(r64) :: ElecDefrostConsumption=0.0d0 ! Coil defrost energy (J)
REAL(r64) :: LatCreditRate= 0.0d0 ! Latent heat removed from the zone [W]
REAL(r64) :: LatLoadServed=0.0d0 ! Latent load met by coil (J)
REAL(r64) :: LatKgPerS_ToZone =0.0d0 ! Latent load met by coil (kg/s)
REAL(r64) :: LatCreditEnergy= 0.0d0 ! Latent heat removed from the zone [J]
REAL(r64) :: ReportSensCoolCreditRate=0.0d0 ! Coil cooling credit to zone (net) [W]
REAL(r64) :: ReportHeatingCreditRate=0.0d0 ! Coil heating credit to zone (net) [J]
REAL(r64) :: ReportSensCoolCreditEnergy=0.0d0 ! Coil cooling credit to zone (net) [W]
REAL(r64) :: ReportHeatingCreditEnergy=0.0d0 ! Coil heating credit to zone (net) [J]
REAL(r64) :: ReportTotalCoolCreditRate =0.0d0 ! Coil cooling sens + latent credit to zone[W]
REAL(r64) :: ReportTotalCoolCreditEnergy =0.0d0 ! Coil cooling sens + latent credit to zone[J]
REAL(r64) :: SensCreditRate = 0.0d0 ! Net Sensible heat removed from the zone [W]
REAL(r64) :: SensCreditEnergy = 0.0d0 ! Net Sensible heat removed from the zone [J]
REAL(r64) :: SensCoolingEnergyRate=0.0d0 ! Gross Coil sensible cooling rate (W)
REAL(r64) :: SensCoolingEnergy=0.0d0 ! Gross Coil sensible cooling energy (J)
REAL(r64) :: TotalCoolingLoad=0.0d0 ! Gross total cooling rate (W)
REAL(r64) :: TotalCoolingEnergy=0.0d0 ! Gross total cooling energy (J)
REAL(r64) :: TotalElecPower=0.0d0 ! Coil total electric
! (fans, heaters, and elec defrost) rate (W)
REAL(r64) :: TotalElecConsumption=0.0d0 ! Coil total electric energy (J)
END TYPE WarehouseCoilData