Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(CFSGAP), | intent(inout) | :: | G | |||
type(CFSLAYER), | intent(in) | :: | L |
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 AdjustVBGap(G, L)
!
! SUBROUTINE INFORMATION:
! AUTHOR ASHRAE 1311-RP
! DATE WRITTEN unknown
! MODIFIED na
! RE-ENGINEERED na
! PURPOSE OF THIS SUBROUTINE:
! Adjusts thickness of adjacent gaps seperated by
! in between slatted blind.
! METHODOLOGY EMPLOYED:
! Treat VB layer as if it has 70% of actual thickness
! REFERENCES:
! Wright, J. L., N. Y. T. Huang, and M. R. Collins. 2008.
! "Thermal Resistance of a Window with an Enclosed Venetian Blind: A Simplified Model,"
! ASHRAE Transactions, Vol. 114, Pt. 1.
! USE STATEMENTS:
! na
IMPLICIT NONE ! Enforce explicit typing of all variables in this routine
! SUBROUTINE ARGUMENT DEFINITIONS:
TYPE( CFSGAP), INTENT( INOUT) :: G ! gap, returned updated
TYPE( CFSLAYER), INTENT( IN) :: L ! adjacent layer
! INTERFACE BLOCK SPECIFICATIONS:
! na
! DERIVED TYPE DEFINITIONS:
! na
! SUBROUTINE LOCAL VARIABLE DECLARATIONS:
REAL(r64) :: VBTHICK
! Flow
IF (.NOT. IsVBLayer( L)) RETURN ! insurance
VBTHICK = L%W * COS( L%PHI_DEG) ! VB layer thickness at slat angle
G%TAS_EFF = G%TAS + (L%W - 0.7d0 * VBTHICK) / 2.d0
RETURN
END SUBROUTINE AdjustVBGap