TYPE GasAbsorberSpecs
! Parts of Type that do not correspond with IDD definition
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
LOGICAL :: InCoolingMode = .FALSE.
LOGICAL :: InHeatingMode = .FALSE.
! Part of Type that directly corresponds with IDD definition
CHARACTER(len=MaxNameLength) :: Name =' ' ! user identifier
CHARACTER(len=MaxNameLength) ::FuelType =' ' ! Type of Fuel - DIESEL, GASOLINE, GAS
REAL(r64) :: NomCoolingCap =0.0d0 ! W - design nominal capacity of Absorber
REAL(r64) :: NomHeatCoolRatio =0.0d0 ! ratio of heating to cooling capacity
REAL(r64) :: FuelCoolRatio =0.0d0 ! ratio of fuel input to cooling output
REAL(r64) :: FuelHeatRatio =0.0d0 ! ratio of fuel input to heating output
REAL(r64) :: ElecCoolRatio =0.0d0 ! ratio of electricity input to cooling output
REAL(r64) :: ElecHeatRatio =0.0d0 ! ratio of electricity input to heating output
INTEGER :: ChillReturnNodeNum =0 ! Node number on the inlet side of the plant
INTEGER :: ChillSupplyNodeNum =0 ! Node number on the outlet side of the plant
LOGICAL :: ChillSetpointErrDone = .FALSE. ! flag to report missing setpoint on CW outlet
LOGICAL :: ChillSetpointSetToLoop = .FALSE. ! flag to use overall loop setpoint
INTEGER :: CondReturnNodeNum =0 ! Node number on the inlet side of the condenser
INTEGER :: CondSupplyNodeNum =0 ! Node number on the outlet side of the condenser
INTEGER :: HeatReturnNodeNum =0 ! absorber steam inlet node number, water side
INTEGER :: HeatSupplyNodeNum =0 ! absorber steam outlet node number, water side
LOGICAL :: HeatSetpointErrDone = .FALSE. ! flag to report missing setpoint on HW outlet
LOGICAL :: HeatSetpointSetToLoop = .FALSE. ! flag to use overall loop setpoint
REAL(r64) :: MinPartLoadRat =0.0d0 ! min allowed operating frac full load
REAL(r64) :: MaxPartLoadRat =0.0d0 ! max allowed operating frac full load
REAL(r64) :: OptPartLoadRat =0.0d0 ! optimal operating frac full load
REAL(r64) :: TempDesCondReturn =0.0d0 ! design secondary loop fluid temperature at the Absorber condenser side inlet
REAL(r64) :: TempDesCHWSupply =0.0d0 ! design chilled water supply temperature
REAL(r64) :: EvapVolFlowRate =0.0d0 ! m**3/s - design nominal water volumetric flow rate through the evaporator
REAL(r64) :: CondVolFlowRate =0.0d0 ! m**3/s - design nominal water volumetric flow rate through the condenser
REAL(r64) :: HeatVolFlowRate =0.0d0 ! m**3/s - design nominal water volumetric flow rate through the heater side
REAL(r64) :: SizFac =0.0d0 ! sizing factor
INTEGER :: CoolCapFTCurve =0 ! cooling capacity as a function of temperature curve (chilled water temp,
! condenser water temp)
INTEGER :: FuelCoolFTCurve =0 ! Fuel-Input-to cooling output Ratio Function of Temperature Curve (chilled
! water temp, condenser water temp)
INTEGER :: FuelCoolFPLRCurve =0 ! Fuel-Input-to cooling output Ratio Function of Part Load Ratio Curve
INTEGER :: ElecCoolFTCurve =0 ! Electric-Input-to cooling output Ratio Function of Temperature Curve
! (chilled water temp, condenser water temp)
INTEGER :: ElecCoolFPLRCurve =0 ! Electric-Input-to cooling output Ratio Function of Part Load Ratio Curve
INTEGER :: HeatCapFCoolCurve =0 ! Heating Capacity Function of Cooling Capacity Curve
INTEGER :: FuelHeatFHPLRCurve =0 ! Fuel Input to heat output ratio during heating only function
LOGICAL :: isEnterCondensTemp =.false. ! if using entering conderser water temperature is TRUE, exiting is FALSE
LOGICAL :: isWaterCooled =.false. ! if water cooled it is TRUE
REAL(r64) :: CHWLowLimitTemp =0.0d0 ! Chilled Water Lower Limit Temperature
REAL(r64) :: FuelHeatingValue =0.0d0
! Calculated design values
REAL(r64) :: DesCondMassFlowRate=0.0d0 ! design nominal mass flow rate of water through the condenser [kg/s]
REAL(r64) :: DesHeatMassFlowRate=0.d0 ! design nominal mass flow rate of water through the hot water side [kg/s]
REAL(r64) :: DesEvapMassFlowRate=0.d0 ! design nominal mass flow rate of water through chilled water side [kg/s]
! other values used during simulation
INTEGER :: DeltaTempCoolErrCount = 0 ! error count for Delta Temp = 0 while cooling
INTEGER :: DeltaTempHeatErrCount = 0 ! error count for Delta Temp = 0 while heating
INTEGER :: CondErrCount = 0 ! error count for poor Condenser Supply Estimate
LOGICAL :: PossibleSubCooling = .false. !Flag to determine whether plant is overcooled
!loop topology variables
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 :: HWLoopNum = 0 ! hot water plant loop side index
INTEGER :: HWLoopSideNum = 0 ! hot water plant loop side index
INTEGER :: HWBranchNum = 0 ! hot water plant loop branch index
INTEGER :: HWCompNum = 0 ! hot water plant loop component index
END TYPE GasAbsorberSpecs