Nodes of different colours represent the following:
Solid arrows point from a parent (sub)module to the submodule which is descended from it. Dashed arrows point from a module being used to the module or program unit using it. Where possible, edges connecting nodes are given different colours to make them easier to distinguish in large graphs.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
integer, | intent(in) | :: | WaterThermalTankNum |
Nodes of different colours represent the following:
Solid arrows point from a procedure to one which it calls. Dashed arrows point from an interface to procedures which implement that interface. This could include the module procedures in a generic interface or the implementation in a submodule of an interface in a parent module. Where possible, edges connecting nodes are given different colours to make them easier to distinguish in large graphs.
SUBROUTINE ReportWaterThermalTank(WaterThermalTankNum)
! SUBROUTINE INFORMATION:
! AUTHOR Brandon Anderson
! DATE WRITTEN May 2000
! MODIFIED na
! RE-ENGINEERED Feb 2004, PGE
! PURPOSE OF THIS SUBROUTINE:
! Calculates report variables.
! METHODOLOGY EMPLOYED:
! Standard EnergyPlus methodology.
! USE STATEMENTS:
USE DataGlobals, ONLY: SecInHour
USE DataHVACGlobals, ONLY: TimeStepSys
IMPLICIT NONE ! Enforce explicit typing of all variables in this routine
! SUBROUTINE ARGUMENT DEFINITIONS:
INTEGER, INTENT(IN) :: WaterThermalTankNum
! SUBROUTINE LOCAL VARIABLE DECLARATIONS:
REAL(r64) :: SecInTimeStep
! FLOW:
SecInTimeStep = TimeStepSys * SecInHour
WaterThermalTank(WaterThermalTankNum)%UnmetEnergy = WaterThermalTank(WaterThermalTankNum)%UnmetRate * SecInTimeStep
WaterThermalTank(WaterThermalTankNum)%LossEnergy = WaterThermalTank(WaterThermalTankNum)%LossRate * SecInTimeStep
WaterThermalTank(WaterThermalTankNum)%FlueLossEnergy = WaterThermalTank(WaterThermalTankNum)%FlueLossRate * SecInTimeStep
WaterThermalTank(WaterThermalTankNum)%UseEnergy = WaterThermalTank(WaterThermalTankNum)%UseRate * SecInTimeStep
WaterThermalTank(WaterThermalTankNum)%TotalDemandEnergy = WaterThermalTank(WaterThermalTankNum)%TotalDemandRate * SecInTimeStep
WaterThermalTank(WaterThermalTankNum)%SourceEnergy = WaterThermalTank(WaterThermalTankNum)%SourceRate * SecInTimeStep
WaterThermalTank(WaterThermalTankNum)%HeaterEnergy = WaterThermalTank(WaterThermalTankNum)%HeaterRate * SecInTimeStep
WaterThermalTank(WaterThermalTankNum)%HeaterEnergy1 = WaterThermalTank(WaterThermalTankNum)%HeaterRate1 * SecInTimeStep
WaterThermalTank(WaterThermalTankNum)%HeaterEnergy2 = WaterThermalTank(WaterThermalTankNum)%HeaterRate2 * SecInTimeStep
WaterThermalTank(WaterThermalTankNum)%FuelEnergy = WaterThermalTank(WaterThermalTankNum)%FuelRate * SecInTimeStep
WaterThermalTank(WaterThermalTankNum)%VentEnergy = WaterThermalTank(WaterThermalTankNum)%VentRate * SecInTimeStep
WaterThermalTank(WaterThermalTankNum)%OffCycParaFuelEnergy = &
WaterThermalTank(WaterThermalTankNum)%OffCycParaFuelRate * SecInTimeStep
WaterThermalTank(WaterThermalTankNum)%OffCycParaEnergyToTank = &
WaterThermalTank(WaterThermalTankNum)%OffCycParaRateToTank * SecInTimeStep
WaterThermalTank(WaterThermalTankNum)%OnCycParaFuelEnergy = &
WaterThermalTank(WaterThermalTankNum)%OnCycParaFuelRate * SecInTimeStep
WaterThermalTank(WaterThermalTankNum)%OnCycParaEnergyToTank = &
WaterThermalTank(WaterThermalTankNum)%OnCycParaRateToTank * SecInTimeStep
WaterThermalTank(WaterThermalTankNum)%NetHeatTransferEnergy = &
WaterThermalTank(WaterThermalTankNum)%NetHeatTransferRate * SecInTimeStep
WaterThermalTank(WaterThermalTankNum)%VolumeConsumed = WaterThermalTank(WaterThermalTankNum)%VolFlowRate * SecInTimeStep
RETURN
END SUBROUTINE ReportWaterThermalTank