Type | Visibility | Attributes | Name | Initial | |||
---|---|---|---|---|---|---|---|
real(kind=r64), | public | :: | TsrcConstCoef | = | 0.0D0 | ||
real(kind=r64), | public | :: | TsrcVarCoef | = | 0.0D0 | ||
real(kind=r64), | public | :: | QbtmConstCoef | = | 0.0D0 | ||
real(kind=r64), | public | :: | QbtmVarCoef | = | 0.0D0 | ||
real(kind=r64), | public | :: | QtopConstCoef | = | 0.0D0 | ||
real(kind=r64), | public | :: | QtopVarCoef | = | 0.0D0 | ||
integer, | public | :: | NumCTFTerms | = | 0 | ||
real(kind=r64), | public, | DIMENSION(0:MaxCTFTerms-1) | :: | CTFin | = | 0.0D0 | |
real(kind=r64), | public, | DIMENSION(0:MaxCTFTerms-1) | :: | CTFout | = | 0.0D0 | |
real(kind=r64), | public, | DIMENSION(0:MaxCTFTerms-1) | :: | CTFcross | = | 0.0D0 | |
real(kind=r64), | public, | DIMENSION(0:MaxCTFTerms-1) | :: | CTFflux | = | 0.0D0 | |
real(kind=r64), | public, | DIMENSION(0:MaxCTFTerms-1) | :: | CTFSourceIn | = | 0.0D0 | |
real(kind=r64), | public, | DIMENSION(0:MaxCTFTerms-1) | :: | CTFSourceOut | = | 0.0D0 | |
real(kind=r64), | public, | DIMENSION(0:MaxCTFTerms-1) | :: | CTFTSourceOut | = | 0.0D0 | |
real(kind=r64), | public, | DIMENSION(0:MaxCTFTerms-1) | :: | CTFTSourceIn | = | 0.0D0 | |
real(kind=r64), | public, | DIMENSION(0:MaxCTFTerms-1) | :: | CTFTSourceQ | = | 0.0D0 | |
real(kind=r64), | public, | DIMENSION(0:MaxCTFTerms-1) | :: | TbtmHistory | = | 0.0D0 | |
real(kind=r64), | public, | DIMENSION(0:MaxCTFTerms-1) | :: | TtopHistory | = | 0.0D0 | |
real(kind=r64), | public, | DIMENSION(0:MaxCTFTerms-1) | :: | TsrcHistory | = | 0.0D0 | |
real(kind=r64), | public, | DIMENSION(0:MaxCTFTerms-1) | :: | QbtmHistory | = | 0.0D0 | |
real(kind=r64), | public, | DIMENSION(0:MaxCTFTerms-1) | :: | QtopHistory | = | 0.0D0 | |
real(kind=r64), | public, | DIMENSION(0:MaxCTFTerms-1) | :: | QsrcHistory | = | 0.0D0 | |
real(kind=r64), | public | :: | Qsrc | = | 0.0D0 | ||
real(kind=r64), | public | :: | QsrcAvg | = | 0.0D0 | ||
real(kind=r64), | public | :: | LastQSrc | = | 0.0D0 | ||
real(kind=r64), | public | :: | LastSysTimeElapsed | = | 0.0D0 | ||
real(kind=r64), | public | :: | LastTimeStepSys | = | 0.0D0 |
TYPE SurfaceGroundHeatExchangerQTF
! QTF Constants
REAL(r64) :: TsrcConstCoef =0.0D0
REAL(r64) :: TsrcVarCoef =0.0D0
REAL(r64) :: QbtmConstCoef =0.0D0
REAL(r64) :: QbtmVarCoef =0.0D0
REAL(r64) :: QtopConstCoef =0.0D0
REAL(r64) :: QtopVarCoef =0.0D0
! conventional CTF terms
INTEGER :: NumCTFTerms = 0 ! number of terms for surface
! could be allocated rather than hard dimensioning.
REAL(r64),DIMENSION(0:MaxCTFTerms-1) :: CTFin =0.0D0 ! surf flux in ctf - X
REAL(r64),DIMENSION(0:MaxCTFTerms-1) :: CTFout =0.0D0 ! surf flux in ctf - Z
REAL(r64),DIMENSION(0:MaxCTFTerms-1) :: CTFcross =0.0D0 ! surf flux in ctf - Y
REAL(r64),DIMENSION(0:MaxCTFTerms-1) :: CTFflux =0.0D0 ! surf flux in ctf - F
! QTF coefficients
REAL(r64),DIMENSION(0:MaxCTFTerms-1) :: CTFSourceIn =0.0D0 ! surf flux in ctf - Wi
REAL(r64),DIMENSION(0:MaxCTFTerms-1) :: CTFSourceOut =0.0D0 ! surf flux out ctf - Wo
REAL(r64),DIMENSION(0:MaxCTFTerms-1) :: CTFTSourceOut =0.0D0 ! surf flux in qtf - x
REAL(r64),DIMENSION(0:MaxCTFTerms-1) :: CTFTSourceIn =0.0D0 ! surf flux in qtf - y
REAL(r64),DIMENSION(0:MaxCTFTerms-1) :: CTFTSourceQ =0.0D0 ! surf flux in qtf - f
! History data
REAL(r64),DIMENSION(0:MaxCTFTerms-1) :: TbtmHistory =0.0D0
REAL(r64),DIMENSION(0:MaxCTFTerms-1) :: TtopHistory =0.0D0
REAL(r64),DIMENSION(0:MaxCTFTerms-1) :: TsrcHistory =0.0D0
REAL(r64),DIMENSION(0:MaxCTFTerms-1) :: QbtmHistory =0.0D0
REAL(r64),DIMENSION(0:MaxCTFTerms-1) :: QtopHistory =0.0D0
REAL(r64),DIMENSION(0:MaxCTFTerms-1) :: QsrcHistory =0.0D0
REAL(r64) :: Qsrc =0.0D0
REAL(r64) :: QsrcAvg =0.0D0
REAL(r64) :: LastQSrc =0.0D0
REAL(r64) :: LastSysTimeElapsed =0.0D0
REAL(r64) :: LastTimeStepSys =0.0D0
END TYPE SurfaceGroundHeatExchangerQTF