SUBROUTINE SetUTSCQdotSource(UTSCNum, QSource)
! SUBROUTINE INFORMATION:
! AUTHOR B. Griffith
! DATE WRITTEN November 2004
! MODIFIED na
! RE-ENGINEERED na
! PURPOSE OF THIS SUBROUTINE:
! object oriented "Set" routine for updating sink term without exposing variables
! METHODOLOGY EMPLOYED:
! update derived type with new data , turn power into W/m2
!
! REFERENCES:
! na
! USE STATEMENTS:
! na
IMPLICIT NONE ! Enforce explicit typing of all variables in this routine
! SUBROUTINE ARGUMENT DEFINITIONS:
INTEGER , INTENT(IN) :: UTSCNum
REAL(r64) , INTENT(IN) :: QSource ! source term in Watts
! SUBROUTINE PARAMETER DEFINITIONS:
! na
! INTERFACE BLOCK SPECIFICATIONS:
! na
! DERIVED TYPE DEFINITIONS:
! na
! SUBROUTINE LOCAL VARIABLE DECLARATIONS:
! na
UTSC(UTSCNum)%QdotSource = QSource / UTSC(UTSCNum)%ProjArea
RETURN
END SUBROUTINE SetUTSCQdotSource