TYPE BLASTAbsorberSpecs
CHARACTER(len=MaxNameLength) :: Name = ' ' ! user identifier
LOGICAL :: Available = .false. ! need an array of logicals--load identifiers of available equipment
LOGICAL :: ON = .false. ! simulate the machine at it's operating part load ratio
REAL(r64) :: NomCap = 0.0d0 ! W - design nominal capacity of Absorber
REAL(r64) :: NomPumpPower = 0.0d0 ! W - design nominal capacity of Absorber
INTEGER :: FlowMode = FlowModeNotSet ! one of 3 modes for componet flow during operation
LOGICAL :: ModulatedFlowSetToLoop =.FALSE. ! True if the setpoint is missing at the outlet node
LOGICAL :: ModulatedFlowErrDone =.FALSE. ! true if setpoint warning issued
REAL(r64) :: EvapVolFlowRate = 0.0d0 ! m3/s - design water volumetric flow rate through the evaporator
REAL(r64) :: CondVolFlowRate = 0.0d0 ! m3/s - design water volumetric flow rate through the condenser
REAL(r64) :: EvapMassFlowRateMax = 0.0d0 ! Max Design Evaporator Mass Flow Rate converted from Volume Flow Rate
REAL(r64) :: CondMassFlowRateMax = 0.0d0 ! Max Design Condeneser Mass Flow Rate [kg/s]
REAL(r64) :: GenMassFlowRateMax = 0.0d0 ! Max Design Generator Mass Flow Rate converted from Volume Flow Rate
REAL(r64) :: SizFac = 0.0d0 ! Sizing factor
INTEGER :: EvapInletNodeNum = 0 ! Node number on the inlet side of the plant
INTEGER :: EvapOutletNodeNum = 0 ! Node number on the outlet side of the plant
INTEGER :: CondInletNodeNum = 0 ! Node number on the inlet side of the condenser
INTEGER :: CondOutletNodeNum = 0 ! Node number on the outlet side of the condenser
INTEGER :: GeneratorInletNodeNum = 0 ! absorber steam inlet node number, water side
INTEGER :: GeneratorOutletNodeNum = 0 ! absorber steam outlet node number, water side
REAL(r64) :: MinPartLoadRat = 0.0d0 ! (BLAST MIN) min allowed operating frac full load
REAL(r64) :: MaxPartLoadRat = 0.0d0 ! (BLAST MAX) max allowed operating frac full load
REAL(r64) :: OptPartLoadRat = 0.0d0 ! (BLAST BEST) optimal operating frac full load
REAL(r64) :: TempDesCondIn = 0.0d0 ! C - (BLAST ADJTC(1)The design secondary loop fluid
! temperature at the Absorber condenser side inlet
REAL(r64),DIMENSION(3) :: SteamLoadCoef = 0.0d0 ! (BLAST RPWRC() ) coeff of full load poly. fit
REAL(r64),DIMENSION(3) :: PumpPowerCoef = 0.0d0 ! coeff of pumping power poly. fit
REAL(r64) :: TempLowLimitEvapOut = 0.0d0 ! C - low temperature shut off
INTEGER :: ErrCount2 = 0 ! error counter
INTEGER :: GenHeatSourceType = 0 ! Generator heat source type, NodeType_Steam=3 or NodeType_Water=2
REAL(r64) :: GeneratorVolFlowRate = 0.0d0 ! m3/s - hot water volumetric flow rate through generator
REAL(r64) :: GeneratorSubCool = 0.0d0 ! amount of subcooling in steam generator
INTEGER :: SteamFluidIndex = 0 ! index to generator fluid type
REAL(r64) :: GeneratorDeltaTemp = -99999.d0 ! C - generator fluid temperature difference (water only)
INTEGER :: CWLoopNum = 0 ! chilled water plant loop index number
INTEGER :: CWLoopSideNum = 0 ! chilled water plant loop side index
INTEGER :: CWBranchNum = 0 ! chilled water plant loop branch index
INTEGER :: CWCompNum = 0 ! chilled water plant loop component index
INTEGER :: CDLoopNum = 0 ! condenser water plant loop index number
INTEGER :: CDLoopSideNum = 0 ! condenser water plant loop side index
INTEGER :: CDBranchNum = 0 ! condenser water plant loop branch index
INTEGER :: CDCompNum = 0 ! condenser water plant loop component index
INTEGER :: GenLoopNum = 0 ! generator water plant loop index number
INTEGER :: GenLoopSideNum = 0 ! generator water plant loop side index
INTEGER :: GenBranchNum = 0 ! generator water plant loop branch index
INTEGER :: GenCompNum = 0 ! generator water plant loop component index
LOGICAL :: PossibleSubCooling = .FALSE. ! flag to indicate chiller is doing less cooling that requested
END TYPE BLASTAbsorberSpecs