RefrigCaseData Derived Type

type, private :: RefrigCaseData

Variables

Name ZoneName NumSysAttach SchedPtr ZoneNodeNum ActualZoneNum ZoneRANode RatedAmbientTemp RatedAmbientRH RatedAmbientDewPoint RateTotCapPerLength RatedLHR RatedRTF LatCapCurvePtr DefCapCurvePtr LatentEnergyCurveType DefrostEnergyCurveType STDFanPower OperatingFanPower RatedLightingPower LightingPower LightingSchedPtr AntiSweatPower MinimumASPower AntiSweatControlType HumAtZeroAS Height DefrostType DefrostPower DefrostSchedPtr DefrostDripDownSchedPtr Length Temperature RAFrac StockingSchedPtr LightingFractionToCase ASHeaterFractionToCase DesignSensCaseCredit EvapTempDesign RefrigInventory DesignRefrigInventory DesignRatedCap DesignLatentCap DesignDefrostCap DesignLighting DesignFanPower StoredEnergy StoredEnergySaved CaseCreditFracSchedPtr TotalCoolingLoad TotalCoolingEnergy SensCoolingEnergyRate SensCoolingEnergy LatCoolingEnergyRate LatCoolingEnergy SensZoneCreditRate SensZoneCreditCoolRate SensZoneCreditCool SensZoneCreditHeatRate SensZoneCreditHeat LatZoneCreditRate LatZoneCredit SensHVACCreditRate SensHVACCreditCoolRate SensHVACCreditCool SensHVACCreditHeatRate SensHVACCreditHeat LatHVACCreditRate LatHVACCredit ElecAntiSweatPower ElecAntiSweatConsumption ElecFanPower ElecFanConsumption ElecLightingPower ElecLightingConsumption ElecDefrostPower ElecDefrostConsumption DefEnergyCurveValue LatEnergyCurveValue MaxKgFrost Rcase DefrostEnergy StockingEnergy WarmEnvEnergy KgFrost DefrostEnergySaved StockingEnergySaved WarmEnvEnergySaved KgFrostSaved HotDefrostCondCredit DeltaDefrostEnergy

Source Code

RefrigCaseData

Components

Type	Visibility		Name		Initial
character(len=MaxNameLength),	public	::	Name	=	' '
character(len=MaxNameLength),	public	::	ZoneName	=	' '
integer,	public	::	NumSysAttach	=	0
integer,	public	::	SchedPtr	=	0
integer,	public	::	ZoneNodeNum	=	0
integer,	public	::	ActualZoneNum	=	0
integer,	public	::	ZoneRANode	=	0
real(kind=r64),	public	::	RatedAmbientTemp	=	0.0d0
real(kind=r64),	public	::	RatedAmbientRH	=	0.0d0
real(kind=r64),	public	::	RatedAmbientDewPoint	=	0.0d0
real(kind=r64),	public	::	RateTotCapPerLength	=	0.0d0
real(kind=r64),	public	::	RatedLHR	=	0.0d0
real(kind=r64),	public	::	RatedRTF	=	0.0d0
integer,	public	::	LatCapCurvePtr	=	0
integer,	public	::	DefCapCurvePtr	=	0
integer,	public	::	LatentEnergyCurveType	=	0
integer,	public	::	DefrostEnergyCurveType	=	0
real(kind=r64),	public	::	STDFanPower	=	0.0d0
real(kind=r64),	public	::	OperatingFanPower	=	0.0d0
real(kind=r64),	public	::	RatedLightingPower	=	0.0d0
real(kind=r64),	public	::	LightingPower	=	0.0d0
integer,	public	::	LightingSchedPtr	=	0
real(kind=r64),	public	::	AntiSweatPower	=	0.0d0
real(kind=r64),	public	::	MinimumASPower	=	0.0d0
integer,	public	::	AntiSweatControlType	=	0
real(kind=r64),	public	::	HumAtZeroAS	=	0.0d0
real(kind=r64),	public	::	Height	=	0.0d0
integer,	public	::	DefrostType	=	0
real(kind=r64),	public	::	DefrostPower	=	0.0d0
integer,	public	::	DefrostSchedPtr	=	0
integer,	public	::	DefrostDripDownSchedPtr	=	0
real(kind=r64),	public	::	Length	=	0.0d0
real(kind=r64),	public	::	Temperature	=	0.0d0
real(kind=r64),	public	::	RAFrac	=	0.0d0
integer,	public	::	StockingSchedPtr	=	0
real(kind=r64),	public	::	LightingFractionToCase	=	0.0d0
real(kind=r64),	public	::	ASHeaterFractionToCase	=	0.0d0
real(kind=r64),	public	::	DesignSensCaseCredit	=	0.0d0
real(kind=r64),	public	::	EvapTempDesign	=	0.0d0
real(kind=r64),	public	::	RefrigInventory	=	0.0d0
real(kind=r64),	public	::	DesignRefrigInventory	=	0.0d0
real(kind=r64),	public	::	DesignRatedCap	=	0.0d0
real(kind=r64),	public	::	DesignLatentCap	=	0.0d0
real(kind=r64),	public	::	DesignDefrostCap	=	0.0d0
real(kind=r64),	public	::	DesignLighting	=	0.0d0
real(kind=r64),	public	::	DesignFanPower	=	0.0d0
real(kind=r64),	public	::	StoredEnergy	=	0.0d0
real(kind=r64),	public	::	StoredEnergySaved	=	0.0d0
integer,	public	::	CaseCreditFracSchedPtr	=	0
real(kind=r64),	public	::	TotalCoolingLoad	=	0.0d0
real(kind=r64),	public	::	TotalCoolingEnergy	=	0.0d0
real(kind=r64),	public	::	SensCoolingEnergyRate	=	0.0d0
real(kind=r64),	public	::	SensCoolingEnergy	=	0.0d0
real(kind=r64),	public	::	LatCoolingEnergyRate	=	0.0d0
real(kind=r64),	public	::	LatCoolingEnergy	=	0.0d0
real(kind=r64),	public	::	SensZoneCreditRate	=	0.d0
real(kind=r64),	public	::	SensZoneCreditCoolRate	=	0.0d0
real(kind=r64),	public	::	SensZoneCreditCool	=	0.0d0
real(kind=r64),	public	::	SensZoneCreditHeatRate	=	0.0d0
real(kind=r64),	public	::	SensZoneCreditHeat	=	0.0d0
real(kind=r64),	public	::	LatZoneCreditRate	=	0.0d0
real(kind=r64),	public	::	LatZoneCredit	=	0.0d0
real(kind=r64),	public	::	SensHVACCreditRate	=	0.d0
real(kind=r64),	public	::	SensHVACCreditCoolRate	=	0.0d0
real(kind=r64),	public	::	SensHVACCreditCool	=	0.0d0
real(kind=r64),	public	::	SensHVACCreditHeatRate	=	0.0d0
real(kind=r64),	public	::	SensHVACCreditHeat	=	0.0d0
real(kind=r64),	public	::	LatHVACCreditRate	=	0.0d0
real(kind=r64),	public	::	LatHVACCredit	=	0.0d0
real(kind=r64),	public	::	ElecAntiSweatPower	=	0.0d0
real(kind=r64),	public	::	ElecAntiSweatConsumption	=	0.0d0
real(kind=r64),	public	::	ElecFanPower	=	0.0d0
real(kind=r64),	public	::	ElecFanConsumption	=	0.0d0
real(kind=r64),	public	::	ElecLightingPower	=	0.0d0
real(kind=r64),	public	::	ElecLightingConsumption	=	0.0d0
real(kind=r64),	public	::	ElecDefrostPower	=	0.0d0
real(kind=r64),	public	::	ElecDefrostConsumption	=	0.0d0
real(kind=r64),	public	::	DefEnergyCurveValue	=	0.0d0
real(kind=r64),	public	::	LatEnergyCurveValue	=	0.0d0
real(kind=r64),	public	::	MaxKgFrost	=	0.0d0
real(kind=r64),	public	::	Rcase	=	0.0d0
real(kind=r64),	public	::	DefrostEnergy	=	0.0d0
real(kind=r64),	public	::	StockingEnergy	=	0.0d0
real(kind=r64),	public	::	WarmEnvEnergy	=	0.0d0
real(kind=r64),	public	::	KgFrost	=	0.0d0
real(kind=r64),	public	::	DefrostEnergySaved	=	0.0d0
real(kind=r64),	public	::	StockingEnergySaved	=	0.0d0
real(kind=r64),	public	::	WarmEnvEnergySaved	=	0.0d0
real(kind=r64),	public	::	KgFrostSaved	=	0.0d0
real(kind=r64),	public	::	HotDefrostCondCredit	=	0.0d0
real(kind=r64),	public	::	DeltaDefrostEnergy	=	0.0d0

Source Code

TYPE, PRIVATE :: RefrigCaseData
  CHARACTER(len=MaxNameLength) :: Name=' '                   ! Name of refrigerated display case
 ! CHARACTER(len=MaxNameLength) :: Schedule=' '               ! Display case availability schedule name
  CHARACTER(len=MaxNameLength) :: ZoneName=' '               ! Zone or Location of Display Case
  INTEGER          :: NumSysAttach=0             ! Number of systems attached to case, error if /=1
  INTEGER          :: SchedPtr=0                 ! Index to the correct availability schedule
  INTEGER          :: ZoneNodeNum =0             ! Index to Zone Node
  INTEGER          :: ActualZoneNum =0           ! Index to Zone
  INTEGER          :: ZoneRANode = 0             ! Node number of return node in zone
  REAL(r64)        :: RatedAmbientTemp=0.0d0       ! Rated ambient (zone) temperature
  REAL(r64)        :: RatedAmbientRH=0.0d0         ! Rated ambient (zone) relative humidity
  REAL(r64)        :: RatedAmbientDewPoint=0.0d0   ! Rated ambient (zone) dew point temperature
  REAL(r64)        :: RateTotCapPerLength=0.0d0            ! Gross total cooling capacity at rated conditions [W/m]
  REAL(r64)        :: RatedLHR=0.0d0               ! Latent heat ratio (lat cap/total cap) at rated conditions
  REAL(r64)        :: RatedRTF=0.0d0               ! Run time fraction at rated conditions
  INTEGER          :: LatCapCurvePtr=0           ! Index for latent case credit modifier curve
  INTEGER          :: DefCapCurvePtr=0           ! Index for defrost load modifier curve
  INTEGER          :: LatentEnergyCurveType=0    ! Type of latent case credit curve:
                                                 ! 1=Case Temperature Method, 2=RH cubic, 3=DP cubic
  INTEGER          :: DefrostEnergyCurveType=0   ! Type of defrost energy curve:
                                                 ! 1=Case Temperature Method, 2=RH cubic, 3=DP cubic
  REAL(r64)        :: STDFanPower=0.0d0            ! Standard power of case fan [W/m] for case credit calc
  REAL(r64)        :: OperatingFanPower=0.0d0      ! Operating power of refrigerated case fan [W/m]
  REAL(r64)        :: RatedLightingPower=0.0d0  ! Rated (consis w RateTotCapPerLength) power of refrigerated case lights [W/m]
  REAL(r64)        :: LightingPower=0.0d0          ! Installed power of refrigerated case lights [W/m]
  INTEGER          :: LightingSchedPtr=0         ! Index to the correct case lighting schedule
  REAL(r64)        :: AntiSweatPower=0.0d0         ! Rated power of refrigerated case anti-sweat heaters [W/m]
  REAL(r64)        :: MinimumASPower=0.0d0         ! Minimum power output of case anti-sweat heaters [W/m]
  INTEGER          :: AntiSweatControlType=0     ! Type of anti-sweat heater control:
                                                 ! 0=None,1=Constant,2=Linear,3=DewPoint,4=HeatBalance
  REAL(r64)        :: HumAtZeroAS=0.0d0            ! Relative humidity for zero AS heater output using linear control
  REAL(r64)        :: Height=0.0d0                 ! case height for AS heater with heat balance control
  INTEGER          :: DefrostType=0              ! Case defrost control type, Off-cycle,Timed,Hot-gas,Electric
  REAL(r64)        :: DefrostPower=0.0d0           ! Rated power of refrigerated case defrost [W/m]
  INTEGER          :: DefrostSchedPtr=0          ! Index to the correct defrost schedule
  INTEGER          :: DefrostDripDownSchedPtr=0  ! Index to the correct fail-safe schedule
  REAL(r64)        :: Length=0.0d0                 ! Length of refrigerated case [m]
  REAL(r64)        :: Temperature=0.0d0            ! Rated case temperature [C]
  REAL(r64)        :: RAFrac=0.0d0                 ! HVAC under case return air fraction [0-1]
  INTEGER          :: StockingSchedPtr=0         ! Index to the correct product stocking schedule
  REAL(r64)        :: LightingFractionToCase=0.0d0 ! Fraction of lighting energy that directly contributes to the
                                                 ! case cooling load. The remainder contributes to the zone load
                                                 ! (air heat balance).
  REAL(r64)        :: ASHeaterFractionToCase=0.0d0 ! Fraction of anti-sweat heater energy that results in a direct
                                                 ! heat load to the case. The remainder is a heating load
                                                 ! to the zone where the refrigerated case is located.
  REAL(r64)        :: DesignSensCaseCredit=0.0d0   ! Design sensible case credit applied to zone load
  REAL(r64)        :: EvapTempDesign=0.0d0         ! Design evaporator temperature
  REAL(r64)        :: RefrigInventory=0.0d0        ! Design refrigerant inventory [kg/m]
  REAL(r64)        :: DesignRefrigInventory=0.0d0  ! Design refrigerant inventory [kg total for the case]

  REAL(r64)        :: DesignRatedCap=0.0d0         ! Design total case capacity=RatedTotCap*Length [W]
  REAL(r64)        :: DesignLatentCap=0.0d0        ! Design latent case capacity=DesignRAtedCap*LatentHeatRatio*RTF [W]
  REAL(r64)        :: DesignDefrostCap=0.0d0       ! Design defrost case capacity=DefrostPower*Length [W]
  REAL(r64)        :: DesignLighting=0.0d0         ! Design case lighting=LightingPower*Length [W]
  REAL(r64)        :: DesignFanPower=0.0d0         ! Design power of case fan=Operatingpower*Length [W]
  REAL(r64)        :: StoredEnergy=0.0d0           ! Cumulative Stored Energy not met by evaporator [J]
  REAL(r64)        :: StoredEnergySaved=0.0d0      ! Cumulative Stored Energy not met by evaporator [J]
  INTEGER          :: CaseCreditFracSchedPtr=0   ! Index to the case credit reduction schedule

! Report Variables
  REAL(r64)        :: TotalCoolingLoad=0.0d0 ! Refrigerated case total cooling rate (W)
  REAL(r64)        :: TotalCoolingEnergy=0.0d0     ! Refrigerated case total cooling energy (J)
  REAL(r64)        :: SensCoolingEnergyRate=0.0d0  ! Refrigerated case sensible cooling rate (W)
  REAL(r64)        :: SensCoolingEnergy=0.0d0      ! Refrigerated case sensible cooling energy (J)
  REAL(r64)        :: LatCoolingEnergyRate=0.0d0   ! Refrigerated case latent cooling rate (W)
  REAL(r64)        :: LatCoolingEnergy=0.0d0       ! Refrigerated case latent cooling energy (J)

  REAL(r64)        :: SensZoneCreditRate=0.d0    ! Refrigerated case sensible zone credit rate (W)
  REAL(r64)        :: SensZoneCreditCoolRate=0.0d0 ! Refrigerated case sensible cooling zone credit rate (W)
  REAL(r64)        :: SensZoneCreditCool=0.0d0     ! Refrigerated case sensible cooling zone credit energy (J)
  REAL(r64)        :: SensZoneCreditHeatRate=0.0d0 ! Refrigerated case sensible heating zone credit rate (W)
  REAL(r64)        :: SensZoneCreditHeat=0.0d0     ! Refrigerated case sensible heating zone credit energy (J)
  REAL(r64)        :: LatZoneCreditRate=0.0d0      ! Refrigerated case latent zone credit rate (W)
  REAL(r64)        :: LatZoneCredit=0.0d0          ! Refrigerated case latent zone credit energy (J)
  REAL(r64)        :: SensHVACCreditRate=0.d0    ! Refrigerated case sensible HVAC credit rate (W)
  REAL(r64)        :: SensHVACCreditCoolRate=0.0d0 ! Refrigerated case sensible cooling HVAC credit rate (W)
  REAL(r64)        :: SensHVACCreditCool=0.0d0     ! Refrigerated case sensible cooling HVAC credit energy (J)
  REAL(r64)        :: SensHVACCreditHeatRate=0.0d0 ! Refrigerated case sensible heating HVAC credit rate (W)
  REAL(r64)        :: SensHVACCreditHeat=0.0d0     ! Refrigerated case sensible heating HVAC credit energy (J)
  REAL(r64)        :: LatHVACCreditRate=0.0d0      ! Refrigerated case latent HVAC credit rate (W)
  REAL(r64)        :: LatHVACCredit=0.0d0          ! Refrigerated case latent HVAC credit energy (J)

  REAL(r64)        :: ElecAntiSweatPower=0.0d0     ! Refrigerated case anti-sweat heater rate (W)
  REAL(r64)        :: ElecAntiSweatConsumption=0.0d0 ! Refrigerated case anti-sweat heater energy (J)
  REAL(r64)        :: ElecFanPower=0.0d0           ! Refrigerated case fan electric power (W)
  REAL(r64)        :: ElecFanConsumption=0.0d0     ! Refrigerated case fan electric energy (J)
  REAL(r64)        :: ElecLightingPower=0.0d0      ! Refrigerated case lighting electric power (W)
  REAL(r64)        :: ElecLightingConsumption=0.0d0 ! Refrigerated case lighting electric energy (J)
  REAL(r64)        :: ElecDefrostPower=0.0d0       ! Refrigerated case defrost rate (W)
  REAL(r64)        :: ElecDefrostConsumption=0.0d0 ! Refrigerated case defrost energy (J)
  REAL(r64)        :: DefEnergyCurveValue=0.0d0    ! Refrigerated case defrost capacity modifier
  REAL(r64)        :: LatEnergyCurveValue=0.0d0    ! Refrigerated case latent capacity modifier
  REAL(r64)        :: MaxKgFrost=0.0d0             ! Amount of frost formation to initiate defrost for On Demand
  REAL(r64)        :: Rcase=0.0d0                  ! Case wall resistance for AS heater calc (h-sqm-C/W)
  REAL(r64)        :: DefrostEnergy = 0.0d0        ! Refrigerated case defrost energy (J)
  REAL(r64)        :: StockingEnergy = 0.0d0       ! Refrigerated case product stocking energy (J)
  REAL(r64)        :: WarmEnvEnergy = 0.0d0        ! Refrigerated case extra sensible energy due to warm zone ambient (J)
  REAL(r64)        :: KgFrost = 0.0d0              ! Amount of frost on case evaporator (Kg)
  REAL(r64)        :: DefrostEnergySaved = 0.0d0   ! Refrigerated case defrost energy (J)
  REAL(r64)        :: StockingEnergySaved = 0.0d0  ! Refrigerated case product stocking energy (J)
  REAL(r64)        :: WarmEnvEnergySaved = 0.0d0   ! Refrigerated case extra sensible energy due to warm zone ambient (J)
  REAL(r64)        :: KgFrostSaved = 0.0d0         ! Amount of frost on case evaporator (Kg)
  REAL(r64)        :: HotDefrostCondCredit = 0.0d0 ! Used to credit condenser when heat reclaim used for hot gas/brine defrost (W)
  REAL(r64)        :: DeltaDefrostEnergy = 0.0d0   ! Used to reverse accumulation if the zone/load time step is repeated (J)
END TYPE RefrigCaseData

All Derived Types