SUBROUTINE UpdateNodeThermalHistory
! SUBROUTINE INFORMATION:
! AUTHOR Brent Griffith
! DATE WRITTEN Sept 2010
! MODIFIED na
! RE-ENGINEERED na
! PURPOSE OF THIS SUBROUTINE:
! update temperature history for plant capacitance model and other
!
! METHODOLOGY EMPLOYED:
! copy current values into "LastTimestep" values
! 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:
! na
! array assignment
IF (NumOfNodes > 0) THEN
Node%TempLastTimestep = Node%Temp
Node%EnthalpyLastTimestep = Node%Enthalpy
ENDIF
RETURN
END SUBROUTINE UpdateNodeThermalHistory