Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
integer, | intent(in) | :: | OASysNumber |
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.
FUNCTION GetOASysNumHeatingCoils(OASysNumber) RESULT(NumHeatingCoils)
! FUNCTION INFORMATION:
! AUTHOR Fred Buhl
! DATE WRITTEN May 2007
! MODIFIED na
! RE-ENGINEERED na
! PURPOSE OF THIS FUNCTION:
! After making sure get input is done, the number of heating coils in the
! OA System is returned.
! METHODOLOGY EMPLOYED:
! na
! REFERENCES:
! na
! USE STATEMENTS:
IMPLICIT NONE ! Enforce explicit typing of all variables in this routine
! FUNCTION ARGUMENT DEFINITIONS:
INTEGER, INTENT(IN) :: OASysNumber ! OA Sys Number
INTEGER :: NumHeatingCoils ! number of heating coils in this OA System
! FUNCTION PARAMETER DEFINITIONS:
! na
! INTERFACE BLOCK SPECIFICATIONS:
! na
! DERIVED TYPE DEFINITIONS:
! na
! FUNCTION LOCAL VARIABLE DECLARATIONS:
CHARACTER(len=MaxNameLength) :: CompType
CHARACTER(len=MaxNameLength) :: CompName
LOGICAL :: Sim
LOGICAL :: FirstHVACIteration
LOGICAL :: OAHeatingCoil
LOGICAL :: OACoolingCoil
INTEGER :: CompNum
INTEGER :: AirLoopNum
LOGICAL :: OAHX
IF (GetOASysInputFlag) THEN
CALL GetOutsideAirSysInputs
GetOASysInputFlag=.false.
ENDIF
Sim = .FALSE.
FirstHVACIteration = .FALSE.
AirLoopNum = 0
NumHeatingCoils = 0
DO CompNum=1,OutsideAirSys(OASysNumber)%NumComponents
CompType = OutsideAirSys(OASysNumber)%ComponentType(CompNum)
CompName = OutsideAirSys(OASysNumber)%ComponentName(CompNum)
CALL SimOAComponent(CompType,CompName,OutsideAirSys(OASysNumber)%ComponentType_Num(CompNum), &
FirstHVACIteration,OutsideAirSys(OASysNumber)%ComponentIndex(CompNum),AirLoopNum,Sim,OASysNumber, &
OAHeatingCoil,OACoolingCoil,OAHX)
IF (OAHeatingCoil) THEN
NumHeatingCoils = NumHeatingCoils + 1
END IF
END DO
RETURN
END FUNCTION GetOASysNumHeatingCoils