| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| character(len=MaxNameLength), | public | :: | Name | = | ' ' | ||
| character(len=MaxNameLength), | public | :: | UnitType | = | ' ' | ||
| integer, | public | :: | UnitType_Num | = | 0 | ||
| character(len=MaxNameLength), | public | :: | CBType | = | ' ' | ||
| integer, | public | :: | CBType_Num | = | 0 | ||
| character(len=MaxNameLength), | public | :: | Sched | = | ' ' | ||
| integer, | public | :: | SchedPtr | = | 0 | ||
| real(kind=r64), | public | :: | MaxAirVolFlow | = | 0.0d0 | ||
| real(kind=r64), | public | :: | MaxAirMassFlow | = | 0.0d0 | ||
| real(kind=r64), | public | :: | MaxCoolWaterVolFlow | = | 0.0d0 | ||
| real(kind=r64), | public | :: | MaxCoolWaterMassFlow | = | 0.0d0 | ||
| integer, | public | :: | AirInNode | = | 0 | ||
| integer, | public | :: | AirOutNode | = | 0 | ||
| integer, | public | :: | CWInNode | = | 0 | ||
| integer, | public | :: | CWOutNode | = | 0 | ||
| integer, | public | :: | ADUNum | = | 0 | ||
| real(kind=r64), | public | :: | NumBeams | = | 0.0d0 | ||
| real(kind=r64), | public | :: | BeamLength | = | 0.0d0 | ||
| real(kind=r64), | public | :: | DesInletWaterTemp | = | 0.0d0 | ||
| real(kind=r64), | public | :: | DesOutletWaterTemp | = | 0.0d0 | ||
| real(kind=r64), | public | :: | CoilArea | = | 0.0d0 | ||
| real(kind=r64), | public | :: | a | = | 0.0d0 | ||
| real(kind=r64), | public | :: | n1 | = | 0.0d0 | ||
| real(kind=r64), | public | :: | n2 | = | 0.0d0 | ||
| real(kind=r64), | public | :: | n3 | = | 0.0d0 | ||
| real(kind=r64), | public | :: | a0 | = | 0.0d0 | ||
| real(kind=r64), | public | :: | K1 | = | 0.0d0 | ||
| real(kind=r64), | public | :: | n | = | 0.0d0 | ||
| real(kind=r64), | public | :: | Kin | = | 0.0d0 | ||
| real(kind=r64), | public | :: | InDiam | = | 0.0d0 | ||
| real(kind=r64), | public | :: | TWIn | = | 0.0d0 | ||
| real(kind=r64), | public | :: | TWOut | = | 0.0d0 | ||
| real(kind=r64), | public | :: | EnthWaterOut | = | 0.0d0 | ||
| real(kind=r64), | public | :: | BeamFlow | = | 0.0d0 | ||
| real(kind=r64), | public | :: | CoolWaterMassFlow | = | 0.0d0 | ||
| real(kind=r64), | public | :: | BeamCoolingEnergy | = | 0.0d0 | ||
| real(kind=r64), | public | :: | BeamCoolingRate | = | 0.0d0 | ||
| real(kind=r64), | public | :: | SupAirCoolingEnergy | = | 0.0d0 | ||
| real(kind=r64), | public | :: | SupAirCoolingRate | = | 0.0d0 | ||
| real(kind=r64), | public | :: | SupAirHeatingEnergy | = | 0.0d0 | ||
| real(kind=r64), | public | :: | SupAirHeatingRate | = | 0.0d0 | ||
| integer, | public | :: | CWLoopNum | = | 0 | ||
| integer, | public | :: | CWLoopSideNum | = | 0 | ||
| integer, | public | :: | CWBranchNum | = | 0 | ||
| integer, | public | :: | CWCompNum | = | 0 | ||
| integer, | public | :: | CBLoadReSimIndex | = | 0 | ||
| integer, | public | :: | CBMassFlowReSimIndex | = | 0 | ||
| integer, | public | :: | CBWaterOutletTempReSimIndex | = | 0 |
TYPE CoolBeamData
! input data
CHARACTER(len=MaxNameLength) :: Name =' ' ! name of unit
CHARACTER(len=MaxNameLength) :: UnitType =' ' ! type of unit = AirTerminal:SingleDuct:ConstantVolume:CooledBeam
INTEGER :: UnitType_Num =0 ! index to type of unit = 1 (there's only 1 type so far)
CHARACTER(len=MaxNameLength) :: CBType =' ' ! type of cooled beam: active | passive
INTEGER :: CBType_Num =0 ! index to type of cooled beam: passive=1; active=2
CHARACTER(len=MaxNameLength) :: Sched =' ' ! availability schedule
INTEGER :: SchedPtr =0 ! index to schedule
REAL(r64) :: MaxAirVolFlow =0.0d0 ! m3/s (autosizable)
REAL(r64) :: MaxAirMassFlow =0.0d0 ! kg/s
REAL(r64) :: MaxCoolWaterVolFlow =0.0d0 ! m3/s
REAL(r64) :: MaxCoolWaterMassFlow =0.0d0 !kg/s
INTEGER :: AirInNode =0 ! unit air inlet node number
INTEGER :: AirOutNode =0 ! unit air outlet node number
INTEGER :: CWInNode =0 ! chilled water inlet node
INTEGER :: CWOutNode =0 ! chilled water outlet node
INTEGER :: ADUNum =0 ! index of corresponding air distribution unit
REAL(r64) :: NumBeams =0.0d0 ! number of beams in the zone
REAL(r64) :: BeamLength =0.0d0 ! length of individual beam [m]
REAL(r64) :: DesInletWaterTemp =0.0d0 ! design inlet water temperature [C]
REAL(r64) :: DesOutletWaterTemp =0.0d0 ! design outlet water Temperature [c]
REAL(r64) :: CoilArea =0.0d0 ! coil surface area per coil length [m2/m]
REAL(r64) :: a =0.0d0 ! model parameter a
REAL(r64) :: n1 =0.0d0 ! model parameter n0
REAL(r64) :: n2 =0.0d0 ! model parameter n1
REAL(r64) :: n3 =0.0d0 ! model parameter n2
REAL(r64) :: a0 =0.0d0 ! model parameter a0
REAL(r64) :: K1 =0.0d0 ! model parameter K1
REAL(r64) :: n =0.0d0 ! model parameter n
REAL(r64) :: Kin =0.0d0 ! Coefficient of Induction Kin
REAL(r64) :: InDiam =0.0d0 ! Leaving Pipe Inside Diameter
! time step variables
REAL(r64) :: TWIn =0.0d0 ! current inlet water temperature [C]
REAL(r64) :: TWOut =0.0d0 ! current outlet water temperature [C]
REAL(r64) :: EnthWaterOut =0.0d0 ! current outlet water enthalpy [J/kg]
REAL(r64) :: BeamFlow =0.0d0 ! supply air flow per beam [m3/s]
REAL(r64) :: CoolWaterMassFlow =0.0d0 ! chilled water mass flow rate [kg/s]
REAL(r64) :: BeamCoolingEnergy =0.0d0 ! Cooled beam cooling energy of all beams in the zone [J]
REAL(r64) :: BeamCoolingRate =0.0d0 ! Cooled beam cooling rate of all beams in the zone [W]
REAL(r64) :: SupAirCoolingEnergy =0.0d0 ! Total cooling energy from supply air [J]
REAL(r64) :: SupAirCoolingRate =0.0d0 ! Total cooling rate from supply air [W]
REAL(r64) :: SupAirHeatingEnergy =0.0d0 ! Total cooling energy from supply air [J]
REAL(r64) :: SupAirHeatingRate =0.0d0 ! Total cooling rate from supply air [W]
INTEGER :: CWLoopNum = 0 ! cooling water plant loop index number
INTEGER :: CWLoopSideNum = 0 ! cooling water plant loop side index
INTEGER :: CWBranchNum = 0 ! cooling water plant loop branch index
INTEGER :: CWCompNum = 0 ! cooling water plant loop component index
INTEGER :: CBLoadReSimIndex = 0
INTEGER :: CBMassFlowReSimIndex = 0
INTEGER :: CBWaterOutletTempReSimIndex = 0
END TYPE CoolBeamData