Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(CFSGAP), | intent(in) | :: | G | |||
real(kind=r64), | intent(in) | :: | T1 | |||
real(kind=r64), | intent(in) | :: | T2 |
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.
REAL(r64) FUNCTION HConvGap(G, T1, T2)
!
! AUTHOR (University of WaterLoo, ASHRAE 1311-RP)
! DATE WRITTEN unknown
! MODIFIED Bereket Nigusse, FSEC/UCF, May 2013
! RE-ENGINEERED na
!
! PURPOSE OF THIS FUNCTION:
! Returns convective coefficient for a gap separated between two surfaces at
! temperatures T1 and T2 , W/m2-K
!
! METHODOLOGY EMPLOYED:
! Hconv = "Nusselt Number" * "Conductivity Of Gas" / "Thickness Of Gap"
!
!
! REFERENCES:
! ASHRAE 1311-RP
!
!
! USE STATEMENTS:
! na
IMPLICIT NONE ! Enforce explicit typing of all variables in this routine
! FUNCTION ARGUMENT DEFINITIONS:
TYPE( CFSGAP), INTENT( IN) :: G ! gap
REAL(r64), INTENT( IN) :: T1, T2 ! bounding surface temps (K)
! FUNCTION PARAMETER DEFINITIONS:
! na
! INTERFACE BLOCK SPECIFICATIONS:
! na
! DERIVED TYPE DEFINITIONS:
! na
! FUNCTION LOCAL VARIABLE DECLARATIONS:
REAL(r64) :: TM ! Mean temperature, K
REAL(r64) :: DT ! temperature difference, (K)
REAL(r64) :: RA ! Rayleigh Number, (-)
REAL(r64) :: NU ! Nusselt Number, (-)
REAL(r64) :: KGAS ! Gas conductivity at film temp, (W/m.K)
REAL(r64) :: T ! effective gap spacing, m
! Flow
T = G%TAS_EFF
TM = (T1 + T2) / 2.d0
DT = T1 - T2
RA=FRA( TM, T, DT, G%FG%AK, G%FG%BK, G%FG%CK, G%FG%ACP, G%FG%BCP, &
G%FG%CCP, G%FG%AVISC, G%FG%BVISC, G%FG%CVISC, G%RHOGAS)
NU=FNU( RA)
KGAS = G%FG%AK+G%FG%BK*TM+G%FG%CK*TM*TM
HConvGap = NU*KGAS/T
RETURN
END FUNCTION HConvGap