TYPE, PRIVATE :: WalkInData
CHARACTER(len=MaxNameLength) :: Name=' ' ! Name of walk in cooler
CHARACTER(len=MaxNameLength), ALLOCATABLE, DIMENSION(:) :: ZoneName
! Names of zones exchanging energy with cooler
INTEGER :: CircFanSchedPtr=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 ! WalkIn defrost control type, Timed,Frost level
INTEGER :: DefrostType=0 ! WalkIn defrost type, Hot-gas,Electric, Hot-brine
INTEGER :: HeaterSchedPtr=0 ! Index to the correct availability schedule
INTEGER :: LightingSchedPtr=0 ! Index to the correct WalkIn lighting schedule
INTEGER :: NumSysAttach=0 ! Number of systems attached to WalkIn, error if /=1
INTEGER :: NumZones =0 ! Number of zones exchanging energy with WalkIn
INTEGER :: SchedPtr=0 ! Index to the correct availability schedule
INTEGER :: StockingSchedPtr=0 ! Index to the correct product stocking schedule
INTEGER, ALLOCATABLE, DIMENSION(:) :: GlassDoorOpenSchedPtr ! Index to the door opening schedule
INTEGER, ALLOCATABLE, DIMENSION(:) :: StockDoorOpenSchedPtr ! Index to the door opening schedule
INTEGER, ALLOCATABLE, DIMENSION(:) :: StockDoorProtectType ! Index to door protection type
INTEGER, ALLOCATABLE, DIMENSION(:) :: ZoneNodeNum ! Index to Zone Node
INTEGER, ALLOCATABLE, DIMENSION(:) :: ZoneNum ! Index to Zone
REAL(r64) :: CircFanConsumption ! Operating energy of Walk In fan [J]
REAL(r64) :: CircFanPower=0.0d0 ! Operating power of Walk In fan [W]
REAL(r64) :: CoilFanPower=0.0d0 ! Operating power of Walk In evap coil fan [W]
REAL(r64) :: IceTemp= 0.0d0 ! Temperature of Ice Mass [C]
REAL(r64) :: IceTempSaved = 0.0d0 ! Temperature of Ice Mass [C]
REAL(r64) :: DefrostCapacity=0.0d0 ! Design defrost WalkIn capacity [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) :: DesignFanPower=0.0d0 ! Design power of fans [W]
REAL(r64) :: DesignLighting=0.0d0 ! Design lighting (includes task and display lights)[W]
REAL(r64) :: DesignRatedCap=0.0d0 ! Design total capacity [W]
REAL(r64) :: DesignRefrigInventory=0.0d0 ! Design refrigerant inventory [kg]
REAL(r64) :: FloorArea=0.0d0 ! Floor area of Walk In [m2]
REAL(r64) :: FloorUvalue=0.0d0 ! U-value of Walk In floor [W/m2-C]
REAL(r64) :: HeaterPower=0.0d0 ! Rated power of Walk In heaters [W/m]
REAL(r64) :: HotDefrostCondCredit = 0.0d0 ! Used to credit condenser when heat reclaim used for hot gas/brine defrost (W)
REAL(r64) :: KgFrost = 0.0d0 ! Amount of frost on WalkIn evaporator (Kg)
REAL(r64) :: StoredEnergy = 0.0d0 ! Cumulative Stored Energy not met by evaporator [J]
REAL(r64) :: KgFrostSaved = 0.0d0 ! Amount of frost on WalkIn evaporator (Kg)
REAL(r64) :: StoredEnergySaved = 0.0d0 ! Cumulative Stored Energy not met by evaporator [J]
REAL(r64) :: Temperature=0.0d0 ! Rated temperature [C]
REAL(r64) :: TEvapDesign=0.0d0 ! Design evaporator temperature (or brine inlet T) [C]
REAL(r64) :: TotalFanPower=0.0d0 ! Sum of coil and circ fan power [W]
REAL(r64), ALLOCATABLE, DIMENSION(:) :: AreaGlassDr
REAL(r64), ALLOCATABLE, DIMENSION(:) :: UValueGlassDr
REAL(r64), ALLOCATABLE, DIMENSION(:) :: HeightGlassDr
REAL(r64), ALLOCATABLE, DIMENSION(:) :: AreaStockDr
REAL(r64), ALLOCATABLE, DIMENSION(:) :: UValueStockDr
REAL(r64), ALLOCATABLE, DIMENSION(:) :: HeightStockDr
REAL(r64), ALLOCATABLE, DIMENSION(:) :: SurfaceArea
REAL(r64), ALLOCATABLE, DIMENSION(:) :: UValue
! Report Variables
REAL(r64) :: ElecHeaterPower=0.0d0 ! Walk In heater rate (W)
REAL(r64) :: ElecHeaterConsumption=0.0d0 ! Walk In heater energy (J)
REAL(r64) :: ElecFanPower=0.0d0 ! Walk In fan electric power (W)
REAL(r64) :: ElecFanConsumption=0.0d0 ! Walk In fan electric energy (J)
REAL(r64) :: ElecLightingPower=0.0d0 ! Walk In lighting electric power (W)
REAL(r64) :: ElecLightingConsumption=0.0d0 ! Walk In lighting electric energy (J)
REAL(r64) :: ElecDefrostPower=0.0d0 ! Walk In defrost rate (W)
REAL(r64) :: ElecDefrostConsumption=0.0d0 ! Walk In defrost energy (J)
REAL(r64) :: TotalCoolingLoad =0.0d0 ! Walk In total cooling rate (W)
REAL(r64) :: TotalCoolingEnergy=0.0d0 ! Walk In total cooling energy (J)
REAL(r64) :: TotalElecPower=0.0d0 ! Walk In total electric
! (fans, heaters, lighting, and elec defrost) rate (W)
REAL(r64) :: TotalElecConsumption=0.0d0 ! Walk In total electric energy (J)
REAL(r64) :: TotLatCoolingEnergyRate=0.0d0 ! Walk In latent cooling rate (W)
REAL(r64) :: TotLatCoolingEnergy=0.0d0 ! Walk In latent cooling energy (J)
REAL(r64) :: TotSensCoolingEnergyRate=0.0d0 ! Walk In sensible cooling rate (W)
REAL(r64) :: TotSensCoolingEnergy=0.0d0 ! Walk In sensible cooling energy (J)
REAL(r64), ALLOCATABLE, DIMENSION(:) :: LatZoneCreditRate !Amount of latent energy provided to zone(W)
REAL(r64), ALLOCATABLE, DIMENSION(:) :: LatZoneCredit !Amount of latent energy provided to zone(J)
REAL(r64), ALLOCATABLE, DIMENSION(:) :: SensZoneCreditRate !Amount of sensible heat gain to zone, pos and neg (W)
REAL(r64), ALLOCATABLE, DIMENSION(:) :: SensZoneCreditCoolRate !Amount of sensible cooling provided to the zone (W)
REAL(r64), ALLOCATABLE, DIMENSION(:) :: SensZoneCreditCool !Amount of sensible cooling provided to the zone (J)
REAL(r64), ALLOCATABLE, DIMENSION(:) :: SensZoneCreditHeatRate !Amount of sensible heat provided to the zone (W)
REAL(r64), ALLOCATABLE, DIMENSION(:) :: SensZoneCreditHeat !Amount of sensible heat provided to the zone (J)
END TYPE WalkInData