Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
integer | :: | ScheduleIndex |
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.
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.
REAL(r64) FUNCTION GetCurrentScheduleValue(ScheduleIndex)
! FUNCTION INFORMATION:
! AUTHOR Linda K. Lawrie
! DATE WRITTEN September 1997
! MODIFIED August 2011; adapt Autodesk changes (time reduction)
! RE-ENGINEERED na
! PURPOSE OF THIS FUNCTION:
! This function returns the hourly schedule value for the current day.
! METHODOLOGY EMPLOYED:
! Use internal Schedule data structure to return value. Note that missing values in
! input will equate to 0 indices in arrays -- which has been set up to return legally with
! 0.0 values.
! REFERENCES:
! na
! USE STATEMENTS:
! na
IMPLICIT NONE ! Enforce explicit typing of all variables in this routine
! FUNCTION ARGUMENT DEFINITIONS:
INTEGER ScheduleIndex
! FUNCTION PARAMETER DEFINITIONS:
! na
! INTERFACE BLOCK SPECIFICATIONS
! na
! DERIVED TYPE DEFINITIONS
! na
! FUNCTION LOCAL VARIABLE DECLARATIONS:
! na
IF (.not. ScheduleDSTSFileWarningIssued) THEN
IF (DSTIndicator == 1) THEN
IF (Schedule(ScheduleIndex)%SchType == ScheduleInput_file) THEN
CALL ShowWarningError('GetCurrentScheduleValue: Schedule="'//trim(Schedule(ScheduleIndex)%Name)// &
'" is a Schedule:File')
CALL ShowContinueError('...Use of Schedule:File when DaylightSavingTime is in effect is not recommended.')
CALL ShowContinueError('...1) Remove RunperiodControl:DaylightSavingTime object or remove DST period from Weather File.')
CALL ShowContinueError('...2) Configure other schedules and Schedule:File to account for occupant behavior during DST.')
CALL ShowContinueError('... If you have already done this, you can ignore this message.')
CALL ShowContinueError('...When active, DaylightSavingTime will shift all scheduled items by one hour, '// &
'retaining the same day type as the original.')
ScheduleDSTSFileWarningIssued=.true.
ENDIF
ENDIF
ENDIF
IF (ScheduleIndex == -1) THEN
GetCurrentScheduleValue=1.0d0
RETURN
ELSEIF (ScheduleIndex == 0) THEN
GetCurrentScheduleValue=0.0d0
RETURN
ENDIF
IF (.not. Schedule(ScheduleIndex)%EMSActuatedOn) THEN
GetCurrentScheduleValue=Schedule(ScheduleIndex)%CurrentValue
ELSE
GetCurrentScheduleValue=Schedule(ScheduleIndex)%EMSValue
ENDIF
RETURN
END FUNCTION GetCurrentScheduleValue