| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | Surf |
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 UpdateMoistureBalanceFD(Surf)
! SUBROUTINE INFORMATION:
! Authors: Richard Liesen
! Date writtenn: November, 2003
! Modified: na
! Re-engineered: na
! PURPOSE OF THIS SUBROUTINE:
! Update the data structures after the inside surface heat balance has converged.
! METHODOLOGY EMPLOYED:
!
! USE STATEMENTS:
IMPLICIT NONE
Integer, INTENT(IN) :: Surf ! Surface number
INTEGER :: ConstrNum
ConstrNum = Surface(surf)%Construction
SurfaceFD(Surf)%TOld = SurfaceFD(Surf)%T
SurfaceFD(Surf)%RhovOld = SurfaceFD(Surf)%Rhov
SurfaceFD(Surf)%TDOld = SurfaceFD(Surf)%TDreport
RETURN
END SUBROUTINE UpdateMoistureBalanceFD