| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | ATMixerNum | |||
| real(kind=r64), | intent(in), | optional | :: | PriAirMassFlowRate | 
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 SetATMixerPriFlow(ATMixerNum,PriAirMassFlowRate)
         ! SUBROUTINE INFORMATION:
          !       AUTHOR         Fred Buhl
          !       DATE WRITTEN   April 2012
          !       MODIFIED       na
          !       RE-ENGINEERED  na
          ! PURPOSE OF THIS SUBROUTINE:
          ! This Subroutine sets the primary air mass flow rate on the primary air inlet
          ! node of a terminal unit mixer component.
          ! METHODOLOGY EMPLOYED:
          ! The flow is set to either the input PriAirMassFlowRate if this optional input
          ! parameter is present, or to the maximum available mass flow rate of the primary
          ! air inlet node.
          ! REFERENCES:
          ! na
          ! USE STATEMENTS:
          ! none
  IMPLICIT NONE    ! Enforce explicit typing of all variables in this routine
          ! SUBROUTINE ARGUMENT DEFINITIONS:
  INTEGER, INTENT(IN)         :: ATMixerNum                 ! Air terminal mixer index
  REAL(r64), INTENT (IN), OPTIONAL :: PriAirMassFlowRate    ! Air terminal mixer primary air mass flow rate [kg/s]
          ! SUBROUTINE PARAMETER DEFINITIONS:
          ! na
          ! INTERFACE BLOCK SPECIFICATIONS
          ! na
          ! DERIVED TYPE DEFINITIONS
          ! na
          ! SUBROUTINE LOCAL VARIABLE DECLARATIONS:
  INTEGER :: PriAirNode         ! air terminal mixer primary air inlet node number
  IF (ATMixerNum <= 0) RETURN
  PriAirNode = SysATMixer(ATMixerNum)%PriInNode
  IF (PRESENT(PriAirMassFlowRate)) THEN
    Node(PriAirNode)%MassFlowRate = PriAirMassFlowRate
  ELSE
    Node(PriAirNode)%MassFlowRate = Node(PriAirNode)%MassFlowRateMaxAvail
  END IF
  RETURN
END SUBROUTINE SetATMixerPriFlow