LOGICAL FUNCTION AnyPlantLoopSidesNeedSim()
! FUNCTION INFORMATION:
! AUTHOR Edwin Lee
! DATE WRITTEN November 2009
! MODIFIED na
! RE-ENGINEERED na
!
! PURPOSE OF THIS FUNCTION:
! This subroutine scans the plant loopside simflags and returns if any of them are still true
!
! METHODOLOGY EMPLOYED:
! Standard EnergyPlus methodology.
!
! REFERENCES:
! na
!
! USE STATEMENTS:
! na
IMPLICIT NONE ! Enforce explicit typing of all variables in this routine
! FUNCTION ARGUMENT DEFINITIONS:
! na
! FUNCTION PARAMETER DEFINITIONS:
! na
! INTERFACE BLOCK SPECIFICATIONS
! na
! DERIVED TYPE DEFINITIONS
! na
! FUNCTION LOCAL VARIABLE DECLARATIONS:
INTEGER :: LoopCtr
INTEGER :: LoopSideCtr
!Assume that there aren't any
AnyPlantLoopSidesNeedSim = .FALSE.
!Then check if there are any
DO LoopCtr = 1, TotNumLoops
DO LoopSideCtr = 1, 2
IF (PlantLoop(LoopCtr)%LoopSide(LoopSideCtr)%SimLoopSideNeeded) THEN
AnyPlantLoopSidesNeedSim = .TRUE.
RETURN
END IF
END DO
END DO
END FUNCTION AnyPlantLoopSidesNeedSim