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