| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| type(BaseChillerSpecs), | public | :: | Base | ||||
| character(len=MaxNameLength), | public | :: | FuelType | = | ' ' | ||
| real(kind=r64), | public | :: | MinPartLoadRat | = | 0.0d0 | ||
| real(kind=r64), | public | :: | MaxPartLoadRat | = | 0.0d0 | ||
| real(kind=r64), | public | :: | OptPartLoadRat | = | 0.0d0 | ||
| real(kind=r64), | public | :: | TempDesCondIn | = | 0.0d0 | ||
| real(kind=r64), | public | :: | TempRiseCoef | = | 0.0d0 | ||
| real(kind=r64), | public | :: | TempDesEvapOut | = | 0.0d0 | ||
| real(kind=r64), | public, | DIMENSION(3) | :: | CapRatCoef | = | 0.0d0 | |
| real(kind=r64), | public, | DIMENSION(3) | :: | PowerRatCoef | = | 0.0d0 | |
| real(kind=r64), | public, | DIMENSION(3) | :: | FullLoadCoef | = | 0.0d0 | |
| real(kind=r64), | public | :: | TempLowLimitEvapOut | = | 0.0d0 | ||
| real(kind=r64), | public | :: | FuelEnergyIn | = | 0.0d0 | ||
| real(kind=r64), | public, | DIMENSION(3) | :: | PLBasedFuelInputCoef | = | 0.0d0 | |
| real(kind=r64), | public, | DIMENSION(3) | :: | TempBasedFuelInputCoef | = | 0.0d0 | |
| real(kind=r64), | public | :: | ExhaustFlow | = | 0.0d0 | ||
| real(kind=r64), | public, | DIMENSION(3) | :: | ExhaustFlowCoef | = | 0.0d0 | |
| real(kind=r64), | public | :: | ExhaustTemp | = | 0.0d0 | ||
| real(kind=r64), | public, | DIMENSION(3) | :: | PLBasedExhaustTempCoef | = | 0.0d0 | |
| real(kind=r64), | public, | DIMENSION(3) | :: | TempBasedExhaustTempCoef | = | 0.0d0 | |
| real(kind=r64), | public | :: | HeatRecLubeEnergy | = | 0.0d0 | ||
| real(kind=r64), | public | :: | HeatRecLubeRate | = | 0.0d0 | ||
| real(kind=r64), | public, | DIMENSION(3) | :: | HeatRecLubeEnergyCoef | = | 0.0d0 | |
| real(kind=r64), | public | :: | UAtoCapRat | = | 0.0d0 | ||
| real(kind=r64), | public, | DIMENSION(3) | :: | UAtoCapCoef | = | 0.0d0 | |
| real(kind=r64), | public | :: | GTEngineCapacity | = | 0.0d0 | ||
| real(kind=r64), | public | :: | MaxExhaustperGTPower | = | 0.0d0 | ||
| real(kind=r64), | public | :: | DesignSteamSatTemp | = | 0.0d0 | ||
| real(kind=r64), | public | :: | ExhaustStackTemp | = | 0.0d0 | ||
| integer, | public | :: | HeatRecInletNodeNum | = | 0 | ||
| integer, | public | :: | HeatRecOutletNodeNum | = | 0 | ||
| real(kind=r64), | public | :: | HeatRecInletTemp | = | 0.0d0 | ||
| real(kind=r64), | public | :: | HeatRecOutletTemp | = | 0.0d0 | ||
| real(kind=r64), | public | :: | HeatRecMdot | = | 0.0d0 | ||
| real(kind=r64), | public | :: | DesignHeatRecVolFlowRate | = | 0.0d0 | ||
| real(kind=r64), | public | :: | DesignHeatRecMassFlowRate | = | 0.0d0 | ||
| logical, | public | :: | HeatRecActive | = | .false. | ||
| real(kind=r64), | public | :: | FuelHeatingValue | = | 0.0d0 | ||
| real(kind=r64), | public | :: | HeatRecMaxTemp | = | 0.0d0 | ||
| integer, | public | :: | HRLoopNum | = | 0 | ||
| integer, | public | :: | HRLoopSideNum | = | 0 | ||
| integer, | public | :: | HRBranchNum | = | 0 | ||
| integer, | public | :: | HRCompNum | = | 0 |
TYPE GTChillerSpecs
TYPE(BaseChillerSpecs) :: Base
CHARACTER(len=MaxNameLength) :: FuelType =' ' ! Type of Fuel - DIESEL, GASOLINE, GAS
REAL(r64) :: MinPartLoadRat =0.0d0 ! (GT MIN) min allowed operating frac full load
REAL(r64) :: MaxPartLoadRat =0.0d0 ! (GT MAX) max allowed operating frac full load
REAL(r64) :: OptPartLoadRat =0.0d0 ! (GT BEST) optimal operating frac full load
REAL(r64) :: TempDesCondIn =0.0d0 ! C - (GT ADJTC(1)The design secondary loop fluid
! temperature at the chiller condenser side inlet
REAL(r64) :: TempRiseCoef =0.0d0 ! (GT ADJTC(2)) correction factor for off ChillDesign oper.
REAL(r64) :: TempDesEvapOut =0.0d0 ! C - (GT ADJTC(3)The design primary loop fluid
! temperature at the chiller evaporator side outlet
REAL(r64),DIMENSION(3) :: CapRatCoef =0.0d0 ! (GT RCAVC() ) coeff of cap ratio poly fit
REAL(r64),DIMENSION(3) :: PowerRatCoef =0.0d0 ! (GT ADJEC() ) coeff of power rat poly fit
REAL(r64),DIMENSION(3) :: FullLoadCoef =0.0d0 ! (GT RPWRC() ) coeff of full load poly. fit
REAL(r64) :: TempLowLimitEvapOut =0.0d0 ! C - low temperature shut off
! "special" GT chiller input parameters
REAL(r64) :: FuelEnergyIn =0.0d0 !(EFUEL) Amount of Fuel Energy Required to run gas turbine
REAL(r64),DIMENSION(3) :: PLBasedFuelInputCoef =0.0d0 !(FUL1GC) Part Load Ratio Based Fuel Input Coefficients Poly Fit
REAL(r64),DIMENSION(3) :: TempBasedFuelInputCoef =0.0d0 !(FUL2GC) Ambient Temperature Based Fuel Input Coeff Poly Fit
REAL(r64) :: ExhaustFlow =0.0d0 !(FEX) Exhaust Gas Flow Rate cubic meters per second
REAL(r64),DIMENSION(3) :: ExhaustFlowCoef =0.0d0 !(FEXGC) Exhaust Gas Flow Rate Input Coef Poly Fit
REAL(r64) :: ExhaustTemp =0.0d0 !(TEX) Exhaust Gas Temperature in C
REAL(r64),DIMENSION(3) :: PLBasedExhaustTempCoef =0.0d0 !(TEX1GC) Part Load Ratio Based Exhaust Temperature Input Coeffs Poly Fit
REAL(r64),DIMENSION(3) :: TempBasedExhaustTempCoef=0.0d0 !(TEX2GC) Ambient Temperature Based Exhaust Gas Temp to
! Fuel Energy Input Coeffs Poly Fit
REAL(r64) :: HeatRecLubeEnergy =0.0d0 !(ELUBE) Recoverable Lube Oil Energy
REAL(r64) :: HeatRecLubeRate =0.0d0 !(ELUBE) Recoverable Lube Oil Rate of Rwecovery (W)
REAL(r64),DIMENSION(3) :: HeatRecLubeEnergyCoef =0.0d0 !(ELUBEGC) Recoverable Lube Oil Energy Input Coef Poly Fit
REAL(r64) :: UAtoCapRat =0.0d0 !(UACGC) Heat Exchanger UA to Capacity
REAL(r64),DIMENSION(3) :: UAtoCapCoef =0.0d0 !Heat Exchanger UA to Capacity Coeffs Poly Fit
REAL(r64) :: GTEngineCapacity =0.0d0 ! Capacity of GT Unit attached to Chiller
REAL(r64) :: MaxExhaustperGTPower =0.0d0 !Max Exhaust Flow per KW Power Out
REAL(r64) :: DesignSteamSatTemp =0.0d0 !Steam Saturation Temperature
REAL(r64) :: ExhaustStackTemp =0.0d0 !Temperature of Exhaust Gases
INTEGER :: HeatRecInletNodeNum =0 ! Node number on the heat recovery inlet side of the condenser
INTEGER :: HeatRecOutletNodeNum =0 ! Node number on the heat recovery outlet side of the condenser
REAL(r64) :: HeatRecInletTemp =0.0d0 !Inlet Temperature of the heat recovery fluid
REAL(r64) :: HeatRecOutletTemp =0.0d0 !Outlet Temperature of the heat recovery fluid
REAL(r64) :: HeatRecMdot =0.0d0 ! reporting: Heat Recovery Loop Mass flow rate
REAL(r64) :: DesignHeatRecVolFlowRate=0.0d0 ! m3/s, Design Water mass flow rate through heat recovery loop
REAL(r64) :: DesignHeatRecMassFlowRate=0.0d0 ! kg/s, Design Water mass flow rate through heat recovery loop
LOGICAL :: HeatRecActive =.false. ! True entered Heat Rec Vol Flow Rate >0
REAL(r64) :: FuelHeatingValue =0.0d0 !Heating Value of Fuel in kJ/kg
REAL(r64) :: HeatRecMaxTemp =0.0d0 !Max Temp that can be produced in heat recovery
INTEGER :: HRLoopNum = 0 ! heat recovery water plant loop side index
INTEGER :: HRLoopSideNum = 0 ! heat recovery water plant loop side index
INTEGER :: HRBranchNum = 0 ! heat recovery water plant loop branch index
INTEGER :: HRCompNum = 0 ! heat recovery water plant loop component index
END TYPE GTChillerSpecs