WaterThermalTanks Module

  1. PlantWaterThermalTank.f90
  2. WaterThermalTanks
module~~waterthermaltanks~~UsesGraph module~waterthermaltanks WaterThermalTanks module~general General module~general->module~waterthermaltanks module~dataglobals DataGlobals module~dataglobals->module~waterthermaltanks module~dataplant DataPlant module~dataglobals->module~dataplant module~dataheatbalance DataHeatBalance module~dataglobals->module~dataheatbalance module~dataloopnode DataLoopNode module~dataglobals->module~dataloopnode module~datawindowequivalentlayer DataWindowEquivalentLayer module~dataglobals->module~datawindowequivalentlayer module~databsdfwindow DataBSDFWindow module~dataglobals->module~databsdfwindow module~datacomplexfenestration DataComplexFenestration module~dataglobals->module~datacomplexfenestration module~datasurfaces DataSurfaces module~dataglobals->module~datasurfaces module~dataplant->module~waterthermaltanks module~dataheatbalance->module~waterthermaltanks module~reportsizingmanager ReportSizingManager module~reportsizingmanager->module~waterthermaltanks module~datainterfaces DataInterfaces module~datainterfaces->module~waterthermaltanks module~dataprecisionglobals DataPrecisionGlobals module~dataprecisionglobals->module~waterthermaltanks module~dataprecisionglobals->module~general module~dataprecisionglobals->module~dataglobals module~dataprecisionglobals->module~dataplant module~dataprecisionglobals->module~dataheatbalance module~dataprecisionglobals->module~datainterfaces module~dataprecisionglobals->module~dataloopnode module~dataprecisionglobals->module~datawindowequivalentlayer module~dataprecisionglobals->module~databsdfwindow module~dataprecisionglobals->module~datacomplexfenestration module~datavectortypes DataVectorTypes module~dataprecisionglobals->module~datavectortypes module~dataprecisionglobals->module~datasurfaces module~dataloopnode->module~dataplant module~datawindowequivalentlayer->module~dataheatbalance module~databsdfwindow->module~dataheatbalance module~databsdfwindow->module~datasurfaces module~datacomplexfenestration->module~dataheatbalance module~datavectortypes->module~dataheatbalance module~datavectortypes->module~databsdfwindow module~datavectortypes->module~datasurfaces module~datasurfaces->module~dataheatbalance
Help

Used By

module~~waterthermaltanks~~UsedByGraph module~waterthermaltanks WaterThermalTanks proc~simplantequip SimPlantEquip module~waterthermaltanks->proc~simplantequip proc~initinternalheatgains InitInternalHeatGains module~waterthermaltanks->proc~initinternalheatgains proc~calcteswaterstoragetank CalcTESWaterStorageTank module~waterthermaltanks->proc~calcteswaterstoragetank proc~managenonzoneequipment ManageNonZoneEquipment module~waterthermaltanks->proc~managenonzoneequipment proc~simzoneequipment SimZoneEquipment module~waterthermaltanks->proc~simzoneequipment
Help

Variables

Derived Types

Functions

Subroutines


Variables

TypeVisibility AttributesNameInitial
character(len=*), private, parameter:: cMixedWHModuleObj ='WaterHeater:Mixed'
character(len=*), private, parameter:: cStratifiedWHModuleObj ='WaterHeater:Stratified'
character(len=*), private, parameter:: cMixedCWTankModuleObj ='ThermalStorage:ChilledWater:Mixed'
character(len=*), private, parameter:: cStratifiedCWTankModuleObj ='ThermalStorage:ChilledWater:Stratified'
integer, private, parameter:: HeatMode =1
integer, private, parameter:: FloatMode =0
integer, private, parameter:: VentMode =-1
integer, private, parameter:: CoolMode =2
integer, private, parameter:: AmbientTempSchedule =1
integer, private, parameter:: AmbientTempZone =2
integer, private, parameter:: AmbientTempOutsideAir =3
integer, private, parameter:: AmbientTempZoneAndOA =4
integer, private, parameter:: CrankcaseTempSchedule =1
integer, private, parameter:: CrankcaseTempZone =2
integer, private, parameter:: CrankcaseTempExterior =3
integer, private, parameter:: ControlTypeCycle =1
integer, private, parameter:: ControlTypeModulate =2
integer, private, parameter:: TankShapeVertCylinder =1
integer, private, parameter:: TankShapeHorizCylinder =2
integer, private, parameter:: TankShapeOther =3
integer, private, parameter:: PriorityMasterSlave =1
integer, private, parameter:: PrioritySimultaneous =2
integer, private, parameter:: InletModeFixed =1
integer, private, parameter:: InletModeSeeking =2
integer, private, parameter:: MixedWaterHeater =TypeOf_WtrHeaterMixed
integer, private, parameter:: StratifiedWaterHeater =TypeOf_WtrHeaterStratified
integer, private, parameter:: HeatPumpWaterHeater =TypeOf_HeatPumpWtrHeater
integer, private, parameter:: CoilWaterDesuperHeater =4
integer, private, parameter:: MixedChilledWaterStorage =TypeOf_ChilledWaterTankMixed
integer, private, parameter:: StratifiedChilledWaterStorage =TypeOf_ChilledWaterTankStratified
integer, private, parameter:: COMPRESSORRACK_REFRIGERATEDCASE =1
integer, private, parameter:: COIL_DX_COOLING =2
integer, private, parameter:: COIL_DX_MULTISPEED =3
integer, private, parameter:: COIL_DX_MULTIMODE =4
integer, private, parameter:: CONDENSER_REFRIGERATION =5
integer, private, parameter:: UseSide =101
integer, private, parameter:: SourceSide =102
integer, private, parameter:: SizeNotSet =200
integer, private, parameter:: SizePeakDraw =201
integer, private, parameter:: SizeResidentialMin =202
integer, private, parameter:: SizePerPerson =203
integer, private, parameter:: SizePerFloorArea =204
integer, private, parameter:: SizePerUnit =205
integer, private, parameter:: SizePerSolarColArea =206
integer, private, parameter:: HPWHControlNotSet =500
integer, private, parameter:: Heater1HPWHControl =501
integer, private, parameter:: Heater2HPWHControl =502
integer, private, parameter:: SourceInletHPWHControl =503
integer, private, parameter:: SourceOutletHPWHControl =504
integer, private, parameter:: UseInletHPWHControl =505
integer, private, parameter:: UseOutletHPWHControl =506
integer, private, parameter:: SourceSideStorageTank =600
integer, private, parameter:: SourceSideIndirectHeatPrimarySetpoint =601
integer, private, parameter:: SourceSideIndirectHeatAltSetpoint =602
type(WaterThermalTankData), private, ALLOCATABLE, DIMENSION(:):: WaterThermalTank
type(HeatPumpWaterHeaterData), private, ALLOCATABLE, DIMENSION(:):: HPWaterHeater
type(WaterHeaterDesuperheaterData), private, ALLOCATABLE, DIMENSION(:):: WaterHeaterDesuperheater
logical, private, ALLOCATABLE, DIMENSION(:):: ValidSourceType
logical, private, ALLOCATABLE, DIMENSION(:):: MyHPSizeFlag
logical, private, ALLOCATABLE, DIMENSION(:):: CheckWTTEquipName
logical, private, ALLOCATABLE, DIMENSION(:):: CheckHPWHEquipName
integer, private :: NumChilledWaterMixed =0
integer, private :: NumChilledWaterStratified =0
integer, private :: NumWaterHeaterMixed =0
integer, private :: NumWaterHeaterStratified =0
integer, private :: NumWaterThermalTank =0
integer, private :: NumWaterHeaterDesuperheater =0
integer, private :: NumHeatPumpWaterHeater =0
real(kind=r64), private :: HPPartLoadRatio =0.0d0
logical, private :: GetWaterThermalTankInputFlag =.TRUE.
real(kind=r64), private :: MixerInletAirSchedule =0.0d0
real(kind=r64), private :: MdotAir =0.0d0
integer, private :: NumWaterHeaterSizing =0
logical, private, DIMENSION(:), ALLOCATABLE:: AlreadyRated

Derived Types

type, private :: StratifiedNodeData

Components

TypeVisibility AttributesNameInitial
real(kind=r64), public :: Mass =0.0d0
real(kind=r64), public :: OnCycLossCoeff =0.0d0
real(kind=r64), public :: OffCycLossCoeff =0.0d0
real(kind=r64), public :: Temp =0.0d0
real(kind=r64), public :: SavedTemp =0.0d0
real(kind=r64), public :: NewTemp =0.0d0
real(kind=r64), public :: TempSum =0.0d0
real(kind=r64), public :: TempAvg =0.0d0
real(kind=r64), public :: CondCoeffUp =0.0d0
real(kind=r64), public :: CondCoeffDn =0.0d0
real(kind=r64), public :: OffCycParaLoad =0.0d0
real(kind=r64), public :: OnCycParaLoad =0.0d0
real(kind=r64), public :: UseMassFlowRate =0.0d0
real(kind=r64), public :: SourceMassFlowRate =0.0d0
real(kind=r64), public :: MassFlowFromUpper =0.0d0
real(kind=r64), public :: MassFlowFromLower =0.0d0
real(kind=r64), public :: MassFlowToUpper =0.0d0
real(kind=r64), public :: MassFlowToLower =0.0d0
real(kind=r64), public :: Volume =0.0d0
real(kind=r64), public :: Height =0.0d0
real(kind=r64), public :: MaxCapacity =0.0d0
integer, public :: Inlets =0
integer, public :: Outlets =0

type, private :: WaterHeaterSizingData

Components

TypeVisibility AttributesNameInitial
integer, public :: DesignMode =SizeNotSet
real(kind=r64), public :: TankDrawTime =0.0D0
real(kind=r64), public :: RecoveryTime =0.0D0
real(kind=r64), public :: NominalVolForSizingDemandSideFlow =0.0D0
integer, public :: NumberOfBedrooms =0
real(kind=r64), public :: NumberOfBathrooms =0.0D0
real(kind=r64), public :: TankCapacityPerPerson =0.0D0
real(kind=r64), public :: RecoveryCapacityPerPerson =0.0D0
real(kind=r64), public :: TankCapacityPerArea =0.0D0
real(kind=r64), public :: RecoveryCapacityPerArea =0.0D0
real(kind=r64), public :: NumberOfUnits =0.0D0
real(kind=r64), public :: TankCapacityPerUnit =0.0D0
real(kind=r64), public :: RecoveryCapacityPerUnit =0.0D0
real(kind=r64), public :: TankCapacityPerCollectorArea =0.0D0
real(kind=r64), public :: HeightAspectRatio =0.0D0
real(kind=r64), public :: PeakDemand =0.0D0
real(kind=r64), public :: PeakNumberOfPeople =0.0D0
real(kind=r64), public :: TotalFloorArea =0.0D0
real(kind=r64), public :: TotalSolarCollectorArea =0.0D0

type, private :: WaterThermalTankData

Components

TypeVisibility AttributesNameInitial
character(len=MaxNameLength), public :: Name =''
character(len=MaxNameLength), public :: Type =''
integer, public :: TypeNum =0
logical, public :: IsChilledWaterTank =.FALSE.
character(len=MaxNameLength), public :: EndUseSubcategoryName =''
logical, public :: Init =.TRUE.
logical, public :: StandAlone =.FALSE.
real(kind=r64), public :: Volume =0.0d0
real(kind=r64), public :: Mass =0.0d0
real(kind=r64), public :: TimeElapsed =0.0d0
integer, public :: AmbientTempIndicator =0
integer, public :: AmbientTempSchedule =0
integer, public :: AmbientTempZone =0
integer, public :: AmbientTempOutsideAirNode =0
real(kind=r64), public :: AmbientTemp =0.0d0
real(kind=r64), public :: AmbientZoneGain =0.0d0
real(kind=r64), public :: LossCoeff =0.0d0
real(kind=r64), public :: OffCycLossCoeff =0.0d0
real(kind=r64), public :: OffCycLossFracToZone =0.0d0
real(kind=r64), public :: OnCycLossCoeff =0.0d0
real(kind=r64), public :: OnCycLossFracToZone =0.0d0
integer, public :: Mode =0
integer, public :: SavedMode =0
integer, public :: ControlType =1
character(len=MaxNameLength), public :: FuelType =''
real(kind=r64), public :: MaxCapacity =0.0d0
real(kind=r64), public :: MinCapacity =0.0d0
real(kind=r64), public :: Efficiency =0.0d0
integer, public :: PLFCurve =0
integer, public :: SetpointTempSchedule =0
real(kind=r64), public :: SetpointTemp =0.0d0
real(kind=r64), public :: DeadbandDeltaTemp =0.0d0
real(kind=r64), public :: TankTempLimit =0.0d0
real(kind=r64), public :: IgnitionDelay =0.0d0
real(kind=r64), public :: OffCycParaLoad =0.0d0
character(len=MaxNameLength), public :: OffCycParaFuelType =''
real(kind=r64), public :: OffCycParaFracToTank =0.0d0
real(kind=r64), public :: OnCycParaLoad =0.0d0
character(len=MaxNameLength), public :: OnCycParaFuelType =''
real(kind=r64), public :: OnCycParaFracToTank =0.0d0
integer, public :: UseCurrentFlowLock =0
integer, public :: UseInletNode =0
real(kind=r64), public :: UseInletTemp =0.0d0
integer, public :: UseOutletNode =0
real(kind=r64), public :: UseOutletTemp =0.0d0
real(kind=r64), public :: UseMassFlowRate =0.0d0
real(kind=r64), public :: UseEffectiveness =0.0d0
real(kind=r64), public :: PlantUseMassFlowRateMax =0.0d0
real(kind=r64), public :: SavedUseOutletTemp =0.0d0
real(kind=r64), public :: UseDesignVolFlowRate =0.0d0
integer, public :: UseBranchControlType =2
integer, public :: UseSidePlantSizNum =0
logical, public :: UseSideSeries =.TRUE.
integer, public :: UseSideAvailSchedNum =0
real(kind=r64), public :: UseSideLoadRequested =0.0D0
integer, public :: UseSidePlantLoopNum =0
integer, public :: UseSidePlantLoopSide =0
integer, public :: UseSidePlantBranchNum =0
integer, public :: UseSidePlantCompNum =0
integer, public :: SourceCurrentFlowLock =0
integer, public :: SourceInletNode =0
real(kind=r64), public :: SourceInletTemp =0.0d0
integer, public :: SourceOutletNode =0
real(kind=r64), public :: SourceOutletTemp =0.0d0
real(kind=r64), public :: SourceMassFlowRate =0.0d0
real(kind=r64), public :: SourceEffectiveness =0.0d0
real(kind=r64), public :: PlantSourceMassFlowRateMax =0.0d0
real(kind=r64), public :: SavedSourceOutletTemp =0.0d0
real(kind=r64), public :: SourceDesignVolFlowRate =0.0d0
integer, public :: SourceBranchControlType =2
integer, public :: SourceSidePlantSizNum =0
logical, public :: SourceSideSeries =.TRUE.
integer, public :: SourceSideAvailSchedNum =0
integer, public :: SourceSidePlantLoopNum =0
integer, public :: SourceSidePlantLoopSide =0
integer, public :: SourceSidePlantBranchNum =0
integer, public :: SourceSidePlantCompNum =0
integer, public :: SourceSideControlMode =0
integer, public :: SourceSideAltSetpointSchedNum =0
real(kind=r64), public :: SizingRecoveryTime =0.0d0
real(kind=r64), public :: MassFlowRateMax =0.0d0
real(kind=r64), public :: VolFlowRateMin =0.d0
real(kind=r64), public :: MassFlowRateMin =0.0d0
integer, public :: FlowRateSchedule =0
integer, public :: UseInletTempSchedule =0
real(kind=r64), public :: TankTemp =0.0d0
real(kind=r64), public :: SavedTankTemp =0.0d0
real(kind=r64), public :: TankTempAvg =0.0d0
real(kind=r64), public :: Height =0.0d0
real(kind=r64), public :: Perimeter =0.0d0
integer, public :: Shape =0
real(kind=r64), public :: HeaterHeight1 =0.0d0
integer, public :: HeaterNode1 =0
logical, public :: HeaterOn1 =.FALSE.
logical, public :: SavedHeaterOn1 =.FALSE.
real(kind=r64), public :: HeaterHeight2 =0.0d0
integer, public :: HeaterNode2 =0
logical, public :: HeaterOn2 =.FALSE.
logical, public :: SavedHeaterOn2 =.FALSE.
real(kind=r64), public :: AdditionalCond =0.0d0
real(kind=r64), public :: SetpointTemp2 =0.0d0
integer, public :: SetpointTempSchedule2 =0
real(kind=r64), public :: DeadbandDeltaTemp2 =0.0d0
real(kind=r64), public :: MaxCapacity2 =0.0d0
real(kind=r64), public :: OffCycParaHeight =0.0d0
real(kind=r64), public :: OnCycParaHeight =0.0d0
real(kind=r64), public :: SkinLossCoeff =0.0d0
real(kind=r64), public :: SkinLossFracToZone =0.0d0
real(kind=r64), public :: OffCycFlueLossCoeff =0.0d0
real(kind=r64), public :: OffCycFlueLossFracToZone =0.0d0
real(kind=r64), public :: UseInletHeight =0.0d0
real(kind=r64), public :: UseOutletHeight =0.0d0
real(kind=r64), public :: SourceInletHeight =0.0d0
real(kind=r64), public :: SourceOutletHeight =0.0d0
integer, public :: UseInletStratNode =0
integer, public :: UseOutletStratNode =0
integer, public :: SourceInletStratNode =0
integer, public :: SourceOutletStratNode =0
integer, public :: InletMode =1
real(kind=r64), public :: InversionMixingRate =0.0d0
real(kind=r64), public, DIMENSION(:), ALLOCATABLE:: AdditionalLossCoeff
integer, public :: Nodes =0
type(StratifiedNodeData), public, DIMENSION(:), ALLOCATABLE:: Node
real(kind=r64), public :: VolFlowRate =0.0d0
real(kind=r64), public :: VolumeConsumed =0.0d0
real(kind=r64), public :: UnmetRate =0.0d0
real(kind=r64), public :: LossRate =0.0d0
real(kind=r64), public :: FlueLossRate =0.0d0
real(kind=r64), public :: UseRate =0.0d0
real(kind=r64), public :: TotalDemandRate =0.0d0
real(kind=r64), public :: SourceRate =0.0d0
real(kind=r64), public :: HeaterRate =0.0d0
real(kind=r64), public :: HeaterRate1 =0.0d0
real(kind=r64), public :: HeaterRate2 =0.0d0
real(kind=r64), public :: FuelRate =0.0d0
real(kind=r64), public :: FuelRate1 =0.0d0
real(kind=r64), public :: FuelRate2 =0.0d0
real(kind=r64), public :: VentRate =0.0d0
real(kind=r64), public :: OffCycParaFuelRate =0.0d0
real(kind=r64), public :: OffCycParaRateToTank =0.0d0
real(kind=r64), public :: OnCycParaFuelRate =0.0d0
real(kind=r64), public :: OnCycParaRateToTank =0.0d0
real(kind=r64), public :: NetHeatTransferRate =0.0d0
integer, public :: CycleOnCount =0
integer, public :: CycleOnCount1 =0
integer, public :: CycleOnCount2 =0
real(kind=r64), public :: RuntimeFraction =0.0d0
real(kind=r64), public :: RuntimeFraction1 =0.0d0
real(kind=r64), public :: RuntimeFraction2 =0.0d0
real(kind=r64), public :: PartLoadRatio =0.0d0
real(kind=r64), public :: UnmetEnergy =0.0d0
real(kind=r64), public :: LossEnergy =0.0d0
real(kind=r64), public :: FlueLossEnergy =0.0d0
real(kind=r64), public :: UseEnergy =0.0d0
real(kind=r64), public :: TotalDemandEnergy =0.0d0
real(kind=r64), public :: SourceEnergy =0.0d0
real(kind=r64), public :: HeaterEnergy =0.0d0
real(kind=r64), public :: HeaterEnergy1 =0.0d0
real(kind=r64), public :: HeaterEnergy2 =0.0d0
real(kind=r64), public :: FuelEnergy =0.0d0
real(kind=r64), public :: FuelEnergy1 =0.0d0
real(kind=r64), public :: FuelEnergy2 =0.0d0
real(kind=r64), public :: VentEnergy =0.0d0
real(kind=r64), public :: OffCycParaFuelEnergy =0.0d0
real(kind=r64), public :: OffCycParaEnergyToTank =0.0d0
real(kind=r64), public :: OnCycParaFuelEnergy =0.0d0
real(kind=r64), public :: OnCycParaEnergyToTank =0.0d0
real(kind=r64), public :: NetHeatTransferEnergy =0.0d0
logical, public :: FirstRecoveryDone =.FALSE.
real(kind=r64), public :: FirstRecoveryFuel =0.0d0
integer, public :: HeatPumpNum =0
integer, public :: DesuperheaterNum =0
logical, public :: ShowSetpointWarning =.TRUE.
integer, public :: MaxCycleErrorIndex =0
type(WaterHeaterSizingData), public :: Sizing

type, private :: HeatPumpWaterHeaterData

Components

TypeVisibility AttributesNameInitial
character(len=MaxNameLength), public :: Name =''
character(len=MaxNameLength), public :: Type =''
integer, public :: TypeNum =0
character(len=MaxNameLength), public :: TankName =''
character(len=MaxNameLength), public :: TankType =''
integer, public :: TankTypeNum =0
logical, public :: StandAlone =.FALSE.
integer, public :: AvailSchedPtr =0
integer, public :: SetpointTempSchedule =0
real(kind=r64), public :: DeadbandTempDiff =0.0d0
real(kind=r64), public :: Capacity =0.0d0
real(kind=r64), public :: BackupElementCapacity =0.0d0
real(kind=r64), public :: BackupElementEfficiency =0.0d0
real(kind=r64), public :: WHOnCycParaLoad =0.0d0
real(kind=r64), public :: WHOffCycParaLoad =0.0d0
real(kind=r64), public :: WHOnCycParaFracToTank =0.0d0
real(kind=r64), public :: WHOffCycParaFracToTank =0.0d0
integer, public :: WHPLFCurve =0
real(kind=r64), public :: OperatingAirFlowRate =0.0d0
real(kind=r64), public :: OperatingWaterFlowRate =0.0d0
real(kind=r64), public :: COP =0.0d0
real(kind=r64), public :: SHR =0.0d0
real(kind=r64), public :: RatedInletDBTemp =0.0d0
real(kind=r64), public :: RatedInletWBTemp =0.0d0
real(kind=r64), public :: RatedInletWaterTemp =0.0d0
logical, public :: FoundTank =.FALSE.
integer, public :: HeatPumpAirInletNode =0
integer, public :: HeatPumpAirOutletNode =0
integer, public :: OutsideAirNode =0
integer, public :: ExhaustAirNode =0
integer, public :: CondWaterInletNode =0
integer, public :: CondWaterOutletNode =0
integer, public :: WHUseInletNode =0
integer, public :: WHUseOutletNode =0
integer, public :: WHUseSidePlantLoopNum =0
character(len=MaxNameLength), public :: DXCoilType =''
character(len=MaxNameLength), public :: DXCoilName =''
integer, public :: DXCoilNum =0
integer, public :: DXCoilAirInletNode =0
integer, public :: DXCoilPLFFPLR =0
character(len=MaxNameLength), public :: FanType =''
integer, public :: FanType_Num =0
character(len=MaxNameLength), public :: FanName =''
integer, public :: FanNum =0
integer, public :: FanPlacement =0
integer, public :: FanOutletNode =0
integer, public :: WaterHeaterTankNum =0
integer, public :: OutletAirSplitterSchPtr =0
integer, public :: InletAirMixerSchPtr =0
integer, public :: Mode =0
integer, public :: SaveMode =0
integer, public :: SaveWHMode =0
real(kind=r64), public :: Power =0.0d0
real(kind=r64), public :: Energy =0.0d0
real(kind=r64), public :: HeatingPLR =0.0d0
real(kind=r64), public :: SetpointTemp =0.0d0
real(kind=r64), public :: MinAirTempForHPOperation =5.0d0
integer, public :: InletAirMixerNode =0
integer, public :: OutletAirSplitterNode =0
real(kind=r64), public :: SourceMassFlowRate =0.0d0
integer, public :: InletAirConfiguration =0
integer, public :: AmbientTempSchedule =0
integer, public :: AmbientRHSchedule =0
integer, public :: AmbientTempZone =0
integer, public :: CrankcaseTempIndicator =0
integer, public :: CrankcaseTempSchedule =0
integer, public :: CrankcaseTempZone =0
real(kind=r64), public :: OffCycParaLoad =0.0d0
real(kind=r64), public :: OnCycParaLoad =0.0d0
integer, public :: ParasiticTempIndicator =0
real(kind=r64), public :: OffCycParaFuelRate =0.0d0
real(kind=r64), public :: OnCycParaFuelRate =0.0d0
real(kind=r64), public :: OffCycParaFuelEnergy =0.0d0
real(kind=r64), public :: OnCycParaFuelEnergy =0.0d0
logical, public :: AirFlowRateAutosized =.FALSE.
logical, public :: WaterFlowRateAutosized =.FALSE.
integer, public :: HPSetPointError =0
integer, public :: HPSetPointErrIndex1 =0
integer, public :: IterLimitErrIndex1 =0
integer, public :: IterLimitExceededNum1 =0
integer, public :: RegulaFalsiFailedIndex1 =0
integer, public :: RegulaFalsiFailedNum1 =0
integer, public :: IterLimitErrIndex2 =0
integer, public :: IterLimitExceededNum2 =0
integer, public :: RegulaFalsiFailedIndex2 =0
integer, public :: RegulaFalsiFailedNum2 =0
logical, public :: FirstTimeThroughFlag =.TRUE.
logical, public :: ShowSetpointWarning =.TRUE.
real(kind=r64), public :: HPWaterHeaterSensibleCapacity =0.0d0
real(kind=r64), public :: HPWaterHeaterLatentCapacity =0.0d0
integer, public :: ControlSensorLocation =HPWHControlNotSet

type, private :: WaterHeaterDesuperheaterData

Components

TypeVisibility AttributesNameInitial
character(len=MaxNameLength), public :: Name =''
character(len=MaxNameLength), public :: Type =''
integer, public :: InsuffTemperatureWarn =0
integer, public :: AvailSchedPtr =0
integer, public :: SetpointTempSchedule =0
real(kind=r64), public :: DeadbandTempDiff =0.0d0
real(kind=r64), public :: HeatReclaimRecoveryEff =0.0d0
integer, public :: WaterInletNode =0
integer, public :: WaterOutletNode =0
real(kind=r64), public :: RatedInletWaterTemp =0.0d0
real(kind=r64), public :: RatedOutdoorAirTemp =0.0d0
real(kind=r64), public :: MaxInletWaterTemp =0.0d0
character(len=MaxNameLength), public :: TankType =''
integer, public :: TankTypeNum =0
character(len=MaxNameLength), public :: TankName =''
logical, public :: StandAlone =.FALSE.
character(len=MaxNameLength), public :: HeatingSourceType =''
character(len=MaxNameLength), public :: HeatingSourceName =''
real(kind=r64), public :: HeaterRate =0.0d0
real(kind=r64), public :: HeaterEnergy =0.0d0
real(kind=r64), public :: PumpPower =0.0d0
real(kind=r64), public :: PumpEnergy =0.0d0
real(kind=r64), public :: PumpElecPower =0.0d0
real(kind=r64), public :: PumpFracToWater =0.0d0
real(kind=r64), public :: OperatingWaterFlowRate =0.0d0
integer, public :: HEffFTemp =0
real(kind=r64), public :: HEffFTempOutput =0.0d0
real(kind=r64), public :: SetpointTemp =0.0d0
integer, public :: WaterHeaterTankNum =0
real(kind=r64), public :: DesuperheaterPLR =0.0d0
real(kind=r64), public :: OnCycParaLoad =0.0d0
real(kind=r64), public :: OffCycParaLoad =0.0d0
real(kind=r64), public :: OnCycParaFuelEnergy =0.0d0
real(kind=r64), public :: OnCycParaFuelRate =0.0d0
real(kind=r64), public :: OffCycParaFuelEnergy =0.0d0
real(kind=r64), public :: OffCycParaFuelRate =0.0d0
integer, public :: Mode =0
integer, public :: SaveMode =0
integer, public :: SaveWHMode =0
real(kind=r64), public :: BackupElementCapacity =0.0d0
real(kind=r64), public :: DXSysPLR =0.0d0
character(len=MaxNameLength), public :: ReclaimHeatingSourceName =' '
integer, public :: ReclaimHeatingSourceIndexNum =0
integer, public :: ReclaimHeatingSource =0
integer, public :: SetPointError =0
integer, public :: SetPointErrIndex1 =0
integer, public :: IterLimitErrIndex1 =0
integer, public :: IterLimitExceededNum1 =0
integer, public :: RegulaFalsiFailedIndex1 =0
integer, public :: RegulaFalsiFailedNum1 =0
integer, public :: IterLimitErrIndex2 =0
integer, public :: IterLimitExceededNum2 =0
integer, public :: RegulaFalsiFailedIndex2 =0
integer, public :: RegulaFalsiFailedNum2 =0

Functions

private function CalcTimeNeeded(Ti, Tf, Ta, T1, T2, m, Cp, m1, m2, UA, Q)

Arguments

Type IntentOptional AttributesName
real(kind=r64), intent(in) :: Ti
real(kind=r64), intent(in) :: Tf
real(kind=r64), intent(in) :: Ta
real(kind=r64), intent(in) :: T1
real(kind=r64), intent(in) :: T2
real(kind=r64), intent(in) :: m
real(kind=r64), intent(in) :: Cp
real(kind=r64), intent(in) :: m1
real(kind=r64), intent(in) :: m2
real(kind=r64), intent(in) :: UA
real(kind=r64), intent(in) :: Q

Return Value real(kind=r64)

public function CalcTankTemp(Ti, Ta, T1, T2, m, Cp, m1, m2, UA, Q, t)

Arguments

Type IntentOptional AttributesName
real(kind=r64), intent(in) :: Ti
real(kind=r64), intent(in) :: Ta
real(kind=r64), intent(in) :: T1
real(kind=r64), intent(in) :: T2
real(kind=r64), intent(in) :: m
real(kind=r64), intent(in) :: Cp
real(kind=r64), intent(in) :: m1
real(kind=r64), intent(in) :: m2
real(kind=r64), intent(in) :: UA
real(kind=r64), intent(in) :: Q
real(kind=r64), intent(in) :: t

Return Value real(kind=r64)

public function CalcTempIntegral(Ti, Tf, Ta, T1, T2, m, Cp, m1, m2, UA, Q, t)

Arguments

Type IntentOptional AttributesName
real(kind=r64), intent(in) :: Ti
real(kind=r64), intent(in) :: Tf
real(kind=r64), intent(in) :: Ta
real(kind=r64), intent(in) :: T1
real(kind=r64), intent(in) :: T2
real(kind=r64), intent(in) :: m
real(kind=r64), intent(in) :: Cp
real(kind=r64), intent(in) :: m1
real(kind=r64), intent(in) :: m2
real(kind=r64), intent(in) :: UA
real(kind=r64), intent(in) :: Q
real(kind=r64), intent(in) :: t

Return Value real(kind=r64)

private function PartLoadFactor(WaterThermalTankNum, PartLoadRatio)

Arguments

Type IntentOptional AttributesName
integer, intent(in) :: WaterThermalTankNum
real(kind=r64), intent(in) :: PartLoadRatio

Return Value real(kind=r64)

private function PLRResidualMixedTank(HPPartLoadRatio, Par)

Arguments

Type IntentOptional AttributesName
real(kind=r64), intent(in) :: HPPartLoadRatio
real(kind=r64), intent(in), optional DIMENSION(:):: Par

Return Value real(kind=r64)

private function PLRResidualStratifiedTank(HPPartLoadRatio, Par)

Arguments

Type IntentOptional AttributesName
real(kind=r64), intent(in) :: HPPartLoadRatio
real(kind=r64), intent(in), optional DIMENSION(:):: Par

Return Value real(kind=r64)

private function PlantMassFlowRatesFunc(WaterThermalTankNum, InNodeNum, FirstHVACIteration, WaterThermalTankSide, PlantLoopSide, PlumbedInSeries, BranchControlType, OutletTemp, DeadBandTemp, SetpointTemp)

Arguments

Type IntentOptional AttributesName
integer, intent(in) :: WaterThermalTankNum
integer, intent(in) :: InNodeNum
logical, intent(in) :: FirstHVACIteration
integer, intent(in) :: WaterThermalTankSide
integer, intent(in) :: PlantLoopSide
logical, intent(in) :: PlumbedInSeries
integer, intent(in) :: BranchControlType
real(kind=r64), intent(in) :: OutletTemp
real(kind=r64), intent(in) :: DeadBandTemp
real(kind=r64), intent(in) :: SetpointTemp

Return Value real(kind=r64)

private function FindStratifiedTankSensedTemp(WaterThermalTankNum, ControlLocationType) result(SensedTemp)

Arguments

Type IntentOptional AttributesName
integer, intent(in) :: WaterThermalTankNum
integer, intent(in) :: ControlLocationType

Return Value real(kind=r64)


Subroutines

public subroutine SimWaterThermalTank(CompType, CompName, CompIndex, RunFlag, InitLoopEquip, MyLoad, MaxCap, MinCap, OptCap, FirstHVACIteration, LoopNum, LoopSideNum)

Arguments

Type IntentOptional AttributesName
integer, intent(in) :: CompType
character(len=*), intent(in) :: CompName
integer, intent(inout) :: CompIndex
logical, intent(in) :: RunFlag
logical, intent(in) :: InitLoopEquip
real(kind=r64), intent(inout) :: MyLoad
real(kind=r64), intent(inout) :: MaxCap
real(kind=r64), intent(inout) :: MinCap
real(kind=r64), intent(inout) :: OptCap
logical, intent(in) :: FirstHVACIteration
integer, intent(in), optional :: LoopNum
integer, intent(in), optional :: LoopSideNum

public subroutine SimulateWaterHeaterStandAlone(WaterHeaterNum, FirstHVACIteration)

Arguments

Type IntentOptional AttributesName
integer, intent(in) :: WaterHeaterNum
logical, intent(in) :: FirstHVACIteration

public subroutine SimHeatPumpWaterHeater(CompName, FirstHVACIteration, SensLoadMet, LatLoadMet, CompIndex)

Arguments

Type IntentOptional AttributesName
character(len=MaxNameLength), intent(in) :: CompName
logical, intent(in) :: FirstHVACIteration
real(kind=r64), intent(out) :: SensLoadMet
real(kind=r64), intent(out) :: LatLoadMet
integer, intent(inout) :: CompIndex

public subroutine CalcWaterThermalTankZoneGains()

Arguments

None

private subroutine GetWaterThermalTankInput()

!======= Get Coil:WaterHeating:Desuperheater ====================================================================== !======= Get HEAT PUMP:WATER HEATER ===============================================================================

Arguments

None

private subroutine ValidatePLFCurve(CurveIndex, IsValid)

Arguments

Type IntentOptional AttributesName
integer, intent(in) :: CurveIndex
logical, intent(out) :: IsValid

private subroutine SetupStratifiedNodes(WaterThermalTankNum)

Arguments

Type IntentOptional AttributesName
integer, intent(in) :: WaterThermalTankNum

private subroutine InitWaterThermalTank(WaterThermalTankNum, FirstHVACIteration, LoopNum, LoopSideNum)

Arguments

Type IntentOptional AttributesName
integer, intent(in) :: WaterThermalTankNum
logical, intent(in) :: FirstHVACIteration
integer, intent(in), optional :: LoopNum
integer, intent(in), optional :: LoopSideNum

private subroutine CalcWaterThermalTankMixed(WaterThermalTankNum)

Arguments

Type IntentOptional AttributesName
integer, intent(in) :: WaterThermalTankNum

private subroutine CalcWaterThermalTankStratified(WaterThermalTankNum)

Arguments

Type IntentOptional AttributesName
integer, intent(in) :: WaterThermalTankNum

private subroutine CalcNodeMassFlows(WaterThermalTankNum, InletMode)

Arguments

Type IntentOptional AttributesName
integer, intent(in) :: WaterThermalTankNum
integer, intent(in) :: InletMode

private subroutine CalcDesuperheaterWaterHeater(WaterThermalTankNum, FirstHVACIteration)

Arguments

Type IntentOptional AttributesName
integer, intent(in) :: WaterThermalTankNum
logical, intent(in) :: FirstHVACIteration

private subroutine CalcHeatPumpWaterHeater(WaterThermalTankNum, FirstHVACIteration)

add logic for warmup, kickoffsimulation and doing sizing here

Arguments

Type IntentOptional AttributesName
integer, intent(in) :: WaterThermalTankNum
logical, intent(in) :: FirstHVACIteration

private subroutine MinePlantStructForInfo(WaterThermalTankNum)

Arguments

Type IntentOptional AttributesName
integer, intent(in) :: WaterThermalTankNum

private subroutine SizeSupplySidePlantConnections(WaterThermalTankNum, LoopNum, LoopSideNum)

Arguments

Type IntentOptional AttributesName
integer, intent(in) :: WaterThermalTankNum
integer, intent(in), optional :: LoopNum
integer, intent(in), optional :: LoopSideNum

private subroutine SizeTankForDemandSide(WaterThermalTankNum)

Arguments

Type IntentOptional AttributesName
integer, intent(in) :: WaterThermalTankNum

private subroutine SizeTankForSupplySide(WaterThermalTankNum)

Arguments

Type IntentOptional AttributesName
integer, intent(in) :: WaterThermalTankNum

private subroutine SizeDemandSidePlantConnections(WaterThermalTankNum)

Arguments

Type IntentOptional AttributesName
integer, intent(in) :: WaterThermalTankNum

private subroutine SizeStandAloneWaterHeater(WaterThermalTankNum)

Arguments

Type IntentOptional AttributesName
integer, intent(in) :: WaterThermalTankNum

private subroutine UpdateWaterThermalTank(WaterThermalTankNum)

Arguments

Type IntentOptional AttributesName
integer, intent(in) :: WaterThermalTankNum

private subroutine ReportWaterThermalTank(WaterThermalTankNum)

Arguments

Type IntentOptional AttributesName
integer, intent(in) :: WaterThermalTankNum

private subroutine CalcStandardRatings(WaterThermalTankNum)

Arguments

Type IntentOptional AttributesName
integer, intent(in) :: WaterThermalTankNum

private subroutine ReportCWTankInits(WaterThermalTankNum)

Arguments

Type IntentOptional AttributesName
integer, intent(in) :: WaterThermalTankNum

All Modules

AirflowNetworkBalanceManager AirflowNetworkSolver BaseboardElectric BaseboardRadiator Boilers BoilerSteam BranchInputManager BranchNodeConnections ChillerAbsorption ChillerElectricEIR ChillerExhaustAbsorption ChillerGasAbsorption ChillerIndirectAbsorption ChillerReformulatedEIR CondenserLoopTowers ConductionTransferFunctionCalc ConvectionCoefficients CoolTower CostEstimateManager CrossVentMgr CTElectricGenerator CurveManager DataAirflowNetwork DataAirLoop DataAirSystems DataBranchAirLoopPlant DataBranchNodeConnections DataBSDFWindow DataComplexFenestration DataContaminantBalance DataConvergParams DataConversions DataCostEstimate DataDaylighting DataDaylightingDevices DataDefineEquip DataDElight DataEnvironment DataErrorTracking DataGenerators DataGlobalConstants DataGlobals DataHeatBalance DataHeatBalFanSys DataHeatBalSurface DataHVACControllers DataHVACGlobals DataInterfaces DataIPShortCuts DataLoopNode DataMoistureBalance DataMoistureBalanceEMPD DataOutputs DataPhotovoltaics DataPlant DataPlantPipingSystems DataPrecisionGlobals DataReportingFlags DataRoomAirModel DataRootFinder DataRuntimeLanguage DataShadowingCombinations DataSizing DataStringGlobals DataSurfaceColors DataSurfaceLists DataSurfaces DataSystemVariables DataTimings DataUCSDSharedData DataVectorTypes DataViewFactorInformation DataWater DataWindowEquivalentLayer DataZoneControls DataZoneEnergyDemands DataZoneEquipment DaylightingDevices DaylightingManager DELIGHTMANAGERF DELIGHTMANAGERF DemandManager DesiccantDehumidifiers DirectAirManager DisplacementVentMgr DualDuct DXCoils DXFEarClipping EarthTube EconomicLifeCycleCost EconomicTariff EcoRoofManager ElectricBaseboardRadiator EMSManager EvaporativeCoolers EvaporativeFluidCoolers ExteriorEnergyUse ExternalInterface FanCoilUnits Fans FaultsManager FluidCoolers FluidProperties FuelCellElectricGenerator Furnaces General GeneratorDynamicsManager GeneratorFuelSupply GlobalNames GroundHeatExchangers HeatBalanceAirManager HeatBalanceHAMTManager HeatBalanceIntRadExchange HeatBalanceManager HeatBalanceMovableInsulation HeatBalanceSurfaceManager HeatBalFiniteDiffManager HeatingCoils HeatPumpWaterToWaterCOOLING HeatPumpWaterToWaterHEATING HeatPumpWaterToWaterSimple HeatRecovery HighTempRadiantSystem Humidifiers HVACControllers HVACCooledBeam HVACDuct HVACDXHeatPumpSystem HVACDXSystem HVACHXAssistedCoolingCoil HVACInterfaceManager HVACManager HVACMultiSpeedHeatPump HVACSingleDuctInduc HVACStandAloneERV HVACUnitaryBypassVAV HVACUnitarySystem HVACVariableRefrigerantFlow HWBaseboardRadiator ICEngineElectricGenerator IceThermalStorage InputProcessor InternalHeatGains ISO_C_FUNCTION_BINDING ISO_C_FUNCTION_BINDING LowTempRadiantSystem ManageElectricPower MatrixDataManager MicroCHPElectricGenerator MicroturbineElectricGenerator MixedAir MixerComponent MoistureBalanceEMPDManager MundtSimMgr NodeInputManager NonZoneEquipmentManager OutAirNodeManager OutdoorAirUnit OutputProcessor OutputReportPredefined OutputReportTabular OutsideEnergySources PackagedTerminalHeatPump PackagedThermalStorageCoil Photovoltaics PhotovoltaicThermalCollectors PipeHeatTransfer Pipes PlantCentralGSHP PlantChillers PlantComponentTemperatureSources PlantCondLoopOperation PlantHeatExchangerFluidToFluid PlantLoadProfile PlantLoopEquip PlantLoopSolver PlantManager PlantPipingSystemsManager PlantPressureSystem PlantUtilities PlantValves PollutionModule PondGroundHeatExchanger PoweredInductionUnits Psychrometrics Pumps PurchasedAirManager RefrigeratedCase ReportSizingManager ReturnAirPathManager RoomAirModelManager RoomAirModelUserTempPattern RootFinder RuntimeLanguageProcessor ScheduleManager SetPointManager SimAirServingZones SimulationManager SingleDuct SizingManager SolarCollectors SolarReflectionManager SolarShading SortAndStringUtilities SplitterComponent SQLiteProcedures SQLiteProcedures StandardRatings SteamBaseboardRadiator SteamCoils SurfaceGeometry SurfaceGroundHeatExchanger SystemAvailabilityManager SystemReports TARCOGArgs TARCOGCommon TARCOGDeflection TARCOGGasses90 TARCOGGassesParams TARCOGMain TARCOGOutput TARCOGParams TarcogShading ThermalChimney ThermalComfort ThermalEN673Calc ThermalISO15099Calc TranspiredCollector UFADManager UnitHeater UnitVentilator UserDefinedComponents VariableSpeedCoils vectors VentilatedSlab WaterCoils WaterManager WaterThermalTanks WatertoAirHeatPump WatertoAirHeatPumpSimple WaterUse WeatherManager WindowAC WindowComplexManager WindowEquivalentLayer WindowManager WindTurbine ZoneAirLoopEquipmentManager ZoneContaminantPredictorCorrector ZoneDehumidifier ZoneEquipmentManager ZonePlenum ZoneTempPredictorCorrector