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.
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 SetupPlantEMSActuators
! SUBROUTINE INFORMATION:
! AUTHOR D.E. Fisher
! DATE WRITTEN Feb 2007
! MODIFIED B. Griffith August 2009, D. Fisher, Aug. 2010
! RE-ENGINEERED na
! PURPOSE OF THIS SUBROUTINE:
! This subroutine loads the plant EMS actuators
! METHODOLOGY EMPLOYED:
! Call the setupAcuator routine
! REFERENCES:
! na
! USE STATEMENTS:
USE DataInterfaces, ONLY: SetupEMSActuator
! SUBROUTINE ARGUMENT DEFINITIONS
! SUBROUTINE PARAMETER DEFINITIONS
! na
! SUBROUTINE VARIABLE DEFINITIONS
CHARACTER(len=MaxNameLength) :: ActuatorType
CHARACTER(len=MaxNameLength) :: ActuatorName
CHARACTER(len=MaxNameLength) :: UniqueIDName
CHARACTER(len=MaxNameLength) :: Units = '[on/off]'
! INTEGER :: NumAct
INTEGER :: LoopNum
INTEGER :: LoopSideNum
INTEGER :: BranchNum
INTEGER :: CompNum
DO LoopNum = 1, TotNumLoops
ActuatorName = 'Plant Loop Overall'
UniqueIDName = PlantLoop(LoopNum)%Name
ActuatorType = 'On/Off Supervisory'
CALL SetupEMSActuator(ActuatorName, UniqueIDName, ActuatorType, Units, PlantLoop(LoopNum)%EMSCtrl, &
PlantLoop(LoopNum)%EMSValue)
ActuatorName = 'Supply Side Half Loop'
UniqueIDName = TRIM(PlantLoop(LoopNum)%Name)
ActuatorType = 'On/Off Supervisory'
CALL SetupEMSActuator(ActuatorName, UniqueIDName, ActuatorType, Units, PlantLoop(LoopNum)%LoopSide(SupplySide)%EMSCtrl, &
PlantLoop(LoopNum)%LoopSide(SupplySide)%EMSValue)
ActuatorName = 'Demand Side Half Loop'
UniqueIDName = TRIM(PlantLoop(LoopNum)%Name)
ActuatorType = 'On/Off Supervisory'
CALL SetupEMSActuator(ActuatorName, UniqueIDName, ActuatorType, Units, PlantLoop(LoopNum)%LoopSide(DemandSide)%EMSCtrl, &
PlantLoop(LoopNum)%LoopSide(DemandSide)%EMSValue)
DO LoopSideNum = 1, 2
DO BranchNum = 1, PlantLoop(LoopNum)%LoopSide(LoopSideNum)%TotalBranches
IF (LoopSideNum == SupplySide) THEN
ActuatorName = 'Supply Side Branch'
UniqueIDName = PlantLoop(LoopNum)%LoopSide(LoopSideNum)%Branch(BranchNum)%Name
ActuatorType = 'On/Off Supervisory'
CALL SetupEMSActuator(ActuatorName, UniqueIDName, ActuatorType, Units, &
PlantLoop(LoopNum)%LoopSide(LoopSideNum)%Branch(BranchNum)%EMSCtrlOverrideOn, &
PlantLoop(LoopNum)%LoopSide(LoopSideNum)%Branch(BranchNum)%EMSCtrlOverrideValue)
ELSEIF (LoopSideNum == DemandSide) THEN
ActuatorName = 'Demand Side Branch'
UniqueIDName = PlantLoop(LoopNum)%LoopSide(LoopSideNum)%Branch(BranchNum)%Name
ActuatorType = 'On/Off Supervisory'
CALL SetupEMSActuator(ActuatorName, UniqueIDName, ActuatorType, Units, &
PlantLoop(LoopNum)%LoopSide(LoopSideNum)%Branch(BranchNum)%EMSCtrlOverrideOn, &
PlantLoop(LoopNum)%LoopSide(LoopSideNum)%Branch(BranchNum)%EMSCtrlOverrideValue)
ENDIF
DO CompNum = 1, PlantLoop(LoopNum)%LoopSide(LoopSideNum)%Branch(BranchNum)%TotalComponents
ActuatorName = 'Plant Component ' &
//Trim(ccSimPlantEquipTypes(PlantLoop(LoopNum)%LoopSide(LoopSideNum)%Branch(BranchNum)%Comp(CompNum)%TypeOf_Num))
UniqueIDName = PlantLoop(LoopNum)%LoopSide(LoopSideNum)%Branch(BranchNum)%Comp(CompNum)%Name
ActuatorType = 'On/Off Supervisory'
CALL SetupEMSActuator(ActuatorName, UniqueIDName, ActuatorType, '[W]', &
PlantLoop(LoopNum)%LoopSide(LoopSideNum)%Branch(BranchNum)%Comp(CompNum)%EMSLoadOverrideOn, &
PlantLoop(LoopNum)%LoopSide(LoopSideNum)%Branch(BranchNum)%Comp(CompNum)%EMSLoadOverrideValue)
END DO
END DO
END DO
END DO
RETURN
END SUBROUTINE SetupPlantEMSActuators