Type | Visibility | Attributes | Name | Initial | |||
---|---|---|---|---|---|---|---|
character(len=MaxNameLength), | public | :: | Name | = | ' ' | ||
character(len=MaxNameLength), | public | :: | PumpSchedule | = | ' ' | ||
character(len=MaxNameLength), | public | :: | PressureCurve_Name | = | ' ' | ||
integer, | public | :: | PumpType | = | 0 | ||
integer, | public | :: | TypeOf_Num | = | 0 | ||
integer, | public | :: | LoopNum | = | 0 | ||
integer, | public | :: | LoopSideNum | = | 0 | ||
integer, | public | :: | BranchNum | = | 0 | ||
integer, | public | :: | CompNum | = | 0 | ||
integer, | public | :: | PumpControl | = | 0 | ||
integer, | public | :: | PumpScheduleIndex | = | 0 | ||
integer, | public | :: | InletNodeNum | = | 0 | ||
integer, | public | :: | OutletNodeNum | = | 0 | ||
integer, | public | :: | SequencingScheme | = | 0 | ||
integer, | public | :: | FluidIndex | = | 0 | ||
integer, | public | :: | NumPumpsInBank | = | 0 | ||
integer, | public | :: | PowerErrIndex1 | = | 0 | ||
integer, | public | :: | PowerErrIndex2 | = | 0 | ||
real(kind=r64), | public | :: | MinVolFlowRateFrac | = | 0.0d0 | ||
real(kind=r64), | public | :: | NomVolFlowRate | = | 0.0d0 | ||
real(kind=r64), | public | :: | MassFlowRateMax | = | 0.0d0 | ||
logical, | public | :: | EMSMassFlowOverrideOn | = | .FALSE. | ||
real(kind=r64), | public | :: | EMSMassFlowValue | = | 0.0D0 | ||
real(kind=r64), | public | :: | NomSteamVolFlowRate | = | 0.0d0 | ||
real(kind=r64), | public | :: | MinVolFlowRate | = | 0.0d0 | ||
real(kind=r64), | public | :: | MassFlowRateMin | = | 0.0d0 | ||
real(kind=r64), | public | :: | NomPumpHead | = | 0.0d0 | ||
logical, | public | :: | EMSPressureOverrideOn | = | .FALSE. | ||
real(kind=r64), | public | :: | EMSPressureOverrideValue | = | 0.0d0 | ||
real(kind=r64), | public | :: | NomPowerUse | = | 0.0d0 | ||
real(kind=r64), | public | :: | MotorEffic | = | 0.0d0 | ||
real(kind=r64), | public | :: | PumpEffic | = | 0.0d0 | ||
real(kind=r64), | public | :: | FracMotorLossToFluid | = | 0.0d0 | ||
real(kind=r64), | public | :: | Energy | = | 0.0d0 | ||
real(kind=r64), | public | :: | Power | = | 0.0d0 | ||
real(kind=r64), | public, | DIMENSION(4) | :: | PartLoadCoef | = | 0.0d0 | |
integer, | public | :: | PressureCurve_Index | = | 0 | ||
real(kind=r64), | public | :: | PumpMassFlowRateMaxRPM | = | 0.0d0 | ||
real(kind=r64), | public | :: | PumpMassFlowRateMinRPM | = | 0.0d0 | ||
real(kind=r64), | public | :: | MinPhiValue | = | 0.0d0 | ||
real(kind=r64), | public | :: | MaxPhiValue | = | 0.0d0 | ||
real(kind=r64), | public | :: | ImpellerDiameter | = | 0.0d0 | ||
real(kind=r64), | public | :: | RotSpeed_RPM | = | 0.0d0 | ||
real(kind=r64), | public | :: | RotSpeed | = | 0.0d0 | ||
logical, | public | :: | PumpInitFlag | = | .TRUE. | ||
logical, | public | :: | PumpOneTimeFlag | = | .TRUE. | ||
logical, | public | :: | CheckEquipName | = | .TRUE. | ||
logical, | public | :: | HasVFD | = | .FALSE. | ||
type(PumpVFDControlData), | public | :: | VFD | ||||
logical, | public | :: | OneTimePressureWarning | = | .TRUE. | ||
logical, | public | :: | HeatLossesToZone | = | .FALSE. | ||
integer, | public | :: | ZoneNum | = | 0 | ||
real(kind=r64), | public | :: | SkinLossRadFraction | = | 0.d0 |
TYPE, PUBLIC :: PumpSpecs
CHARACTER(len=MaxNameLength) :: Name = ' ' ! user identifier
CHARACTER(len=MaxNameLength) :: PumpSchedule = ' ' ! Schedule to modify the design nominal capacity of the pump
CHARACTER(len=MaxNameLength) :: PressureCurve_Name = ' ' !- placeholder for pump curve name
INTEGER :: PumpType = 0 ! pump type integer, based on local parameter values, used to identify
! index in the cPumpTypes string array to do error reporting
INTEGER :: TypeOf_Num = 0 ! pump type of number in reference to the dataplant values
INTEGER :: LoopNum = 0 ! loop where pump is located
INTEGER :: LoopSideNum = 0 ! loopside index on loop where pump is located
INTEGER :: BranchNum = 0 ! branch index on loopside where pump is located
INTEGER :: CompNum = 0 ! component index on branch where pump is located
INTEGER :: PumpControl = 0 ! Integer equivalent of PumpControlType
INTEGER :: PumpScheduleIndex = 0 ! Schedule Pointer
INTEGER :: InletNodeNum = 0 ! Node number on the inlet side of the plant
INTEGER :: OutletNodeNum = 0 ! Node number on the outlet side of the plant
INTEGER :: SequencingScheme = 0 ! Optimal, Sequential, User-Defined
INTEGER :: FluidIndex = 0 ! Index for Fluid Properties
INTEGER :: NumPumpsInBank = 0 ! Node number on the inlet side of the plant
INTEGER :: PowerErrIndex1 = 0 ! for recurring errors
INTEGER :: PowerErrIndex2 = 0 ! for recurring errors
REAL(r64) :: MinVolFlowRateFrac = 0.0d0 ! minimum schedule value fraction modifier
REAL(r64) :: NomVolFlowRate = 0.0d0 ! design nominal capacity of Pump
REAL(r64) :: MassFlowRateMax = 0.0d0 ! design nominal capacity of Pump
LOGICAL :: EMSMassFlowOverrideOn = .FALSE. ! if true, then EMS is calling to override flow requests.
REAL(r64) :: EMSMassFlowValue = 0.0D0 ! EMS value to use for mass flow rate [kg/s]
REAL(r64) :: NomSteamVolFlowRate = 0.0d0 ! For Steam Pump
REAL(r64) :: MinVolFlowRate = 0.0d0 ! For a Variable Flow Pump this is the minimum capacity during operation.
REAL(r64) :: MassFlowRateMin = 0.0d0 ! For a Variable Flow Pump this is the minimum capacity during operation.
REAL(r64) :: NomPumpHead = 0.0d0 ! design nominal head pressure of Pump, [Pa]
LOGICAL :: EMSPressureOverrideOn = .FALSE. ! if true, EMS is calling to override pump pressure
REAL(r64) :: EMSPressureOverrideValue = 0.0d0 ! EMS value to use for pressure [Pa]
REAL(r64) :: NomPowerUse = 0.0d0 ! design nominal capacity of Pump
REAL(r64) :: MotorEffic = 0.0d0 ! efficiency of the motor
REAL(r64) :: PumpEffic = 0.0d0 ! efficiency of the pump
REAL(r64) :: FracMotorLossToFluid = 0.0d0 ! ?????
REAL(r64) :: Energy = 0.0d0 ! Energy consumed
REAL(r64) :: Power = 0.0d0 ! Power used
REAL(r64), DIMENSION(4):: PartLoadCoef = 0.0d0 ! Pump Curve Coefficients
INTEGER :: PressureCurve_Index = 0 ! Pointer to a pump coefficient curve
REAL(r64) :: PumpMassFlowRateMaxRPM = 0.0d0 ! Mass flow rate calculated from maximum rpm
REAL(r64) :: PumpMassFlowRateMinRPM = 0.0d0 ! Mass flow rate calculated from minimum rpm
REAL(r64) :: MinPhiValue = 0.0d0 ! Minimum value of Phi (from CurveManager)
REAL(r64) :: MaxPhiValue = 0.0d0 ! Maximum value of Phi (from CurveManager)
REAL(r64) :: ImpellerDiameter = 0.0d0 ! Pump Impeller Diameter [m]
REAL(r64) :: RotSpeed_RPM = 0.0d0 ! Rotational speed used for input in revs/min
REAL(r64) :: RotSpeed = 0.0d0 ! Rotational speed for calculations in revs/sec
LOGICAL :: PumpInitFlag = .TRUE.
LOGICAL :: PumpOneTimeFlag = .TRUE.
LOGICAL :: CheckEquipName = .TRUE.
LOGICAL :: HasVFD = .FALSE.
TYPE(PumpVFDControlData) :: VFD
LOGICAL :: OneTimePressureWarning = .TRUE.
LOGICAL :: HeatLossesToZone = .FALSE. ! if true then pump losses added to surrounding zone
INTEGER :: ZoneNum = 0 ! index for zone surrounding pump
REAL(r64) :: SkinLossRadFraction = 0.d0 ! radiative split for skin losses to zone
END TYPE PumpSpecs