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.
SUBROUTINE RevertZoneTimestepHistories
! SUBROUTINE INFORMATION:
! AUTHOR Brent Griffith
! DATE WRITTEN February 2008
! MODIFIED na
! RE-ENGINEERED na
! PURPOSE OF THIS SUBROUTINE:
! rewind histories to undo inadvertent pushing
! METHODOLOGY EMPLOYED:
! <description>
! REFERENCES:
! na
! USE STATEMENTS:
! na
IMPLICIT NONE ! Enforce explicit typing of all variables in this routine
! SUBROUTINE ARGUMENT DEFINITIONS:
! na
! SUBROUTINE PARAMETER DEFINITIONS:
! na
! INTERFACE BLOCK SPECIFICATIONS:
! na
! DERIVED TYPE DEFINITIONS:
! na
! SUBROUTINE LOCAL VARIABLE DECLARATIONS:
INTEGER :: ZoneNum
! REvert the temperature and humidity ratio histories
DO ZoneNum = 1, NumOfZones
! MAT(ZoneNum) = XMAT(ZoneNum)
XMAT(ZoneNum) = XM2T(ZoneNum)
XM2T(ZoneNum) = XM3T(ZoneNum)
XM3T(ZoneNum) = XM4T(ZoneNum)
! ZoneAirHumRat(ZoneNum) = WZoneTimeMinus1(ZoneNum)
WZoneTimeMinus1(ZoneNum) = WZoneTimeMinus2(ZoneNum)
WZoneTimeMinus2(ZoneNum) = WZoneTimeMinus3(ZoneNum)
WZoneTimeMinus3(ZoneNum) = WZoneTimeMinus4(ZoneNum)
IF (AirModel(ZoneNum)%AirModelType == RoomAirModel_UCSDDV .or. AirModel(ZoneNum)%AirModelType == RoomAirModel_UCSDUFI &
.or. AirModel(ZoneNum)%AirModelType == RoomAirModel_UCSDUFE) THEN
! MATFloor(ZoneNum)= XMATFloor(ZoneNum)
XMATFloor(ZoneNum)=XM2TFloor(ZoneNum)
XM2TFloor(ZoneNum)=XM3TFloor(ZoneNum)
XM3TFloor(ZoneNum)=XM4TFloor(ZoneNum)
! MATOC(ZoneNum) = XMATOC(ZoneNum)
XMATOC(ZoneNum)=XM2TOC(ZoneNum)
XM2TOC(ZoneNum)= XM3TOC(ZoneNum)
XM3TOC(ZoneNum)=XM4TOC(ZoneNum)
! MATMX(ZoneNum)= XMATMX(ZoneNum)
XMATMX(ZoneNum)=XM2TMX(ZoneNum)
XM2TMX(ZoneNum)=XM3TMX(ZoneNum)
XM3TMX(ZoneNum)=XM4TMX(ZoneNum)
ENDIF
ENDDO ! zone loop
RETURN
END SUBROUTINE RevertZoneTimestepHistories