Type | Visibility | Attributes | Name | Initial | |||
---|---|---|---|---|---|---|---|
character(len=MaxNameLength), | public | :: | Name | = | ' ' | ||
real(kind=r64), | public | :: | L | = | 0.0d0 | ||
real(kind=r64), | public | :: | D | = | 0.0d0 | ||
real(kind=r64), | public | :: | A | = | 0.0d0 | ||
real(kind=r64), | public | :: | Rough | = | 0.0d0 | ||
real(kind=r64), | public | :: | TurDynCoef | = | 0.0d0 | ||
real(kind=r64), | public | :: | UThermal | = | 0.0d0 | ||
real(kind=r64), | public | :: | UMoisture | = | 0.0d0 | ||
real(kind=r64), | public | :: | MThermal | = | 0.0d0 | ||
real(kind=r64), | public | :: | MMoisture | = | 0.0d0 | ||
real(kind=r64), | public | :: | LamDynCoef | = | 0.0d0 | ||
real(kind=r64), | public | :: | LamFriCoef | = | 0.0d0 | ||
real(kind=r64), | public | :: | InitLamCoef | = | 0.0d0 | ||
real(kind=r64), | public | :: | RelRough | = | 0.0d0 | ||
real(kind=r64), | public | :: | RelL | = | 0.0d0 | ||
real(kind=r64), | public | :: | g | = | 0.0d0 | ||
real(kind=r64), | public | :: | A1 | = | 0.0d0 |
TYPE DisSysCompDuctProp ! Duct component
CHARACTER(len=MaxNameLength) :: Name = ' ' ! Name of duct component
REAL(r64) :: L = 0.0d0 ! Duct length [m]
REAL(r64) :: D = 0.0d0 ! Hydrolic diameter [m]
REAL(r64) :: A = 0.0d0 ! Cross section area [m2]
REAL(r64) :: Rough = 0.0d0 ! Surface roughness [m]
REAL(r64) :: TurDynCoef = 0.0d0 ! Turbulent dynamic loss coefficient
REAL(r64) :: UThermal = 0.0d0 ! Overall heat transmittance [W/m2.K]
REAL(r64) :: UMoisture = 0.0d0 ! Overall moisture transmittance [kg/m2]
REAL(r64) :: MThermal = 0.0d0 ! Thermal capacity [J/K]
REAL(r64) :: MMoisture = 0.0d0 ! Mositure capacity [kg]
REAL(r64) :: LamDynCoef = 0.0d0 ! Laminar dynamic loss coefficient
REAL(r64) :: LamFriCoef = 0.0d0 ! Laminar friction loss coefficient
REAL(r64) :: InitLamCoef = 0.0d0 ! Coefficient of linear initialization
REAL(r64) :: RelRough = 0.0d0 ! e/D: relative roughness,
REAL(r64) :: RelL = 0.0d0 ! L/D: relative length,
REAL(r64) :: g = 0.0d0 ! 1/sqrt(Darcy friction factor),
REAL(r64) :: A1 = 0.0d0 ! 1.14 - 0.868589*ln(e/D),
END TYPE DisSysCompDuctProp