| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| character(len=MaxNameLength), | public | :: | Name | = | ' ' | ||
| character(len=MaxNameLength), | public | :: | FluidName | = | ' ' | ||
| integer, | public | :: | FluidType | = | 0 | ||
| integer, | public | :: | FluidIndex | = | 0 | ||
| integer, | public | :: | MFErrIndex | = | 0 | ||
| integer, | public | :: | MFErrIndex1 | = | 0 | ||
| integer, | public | :: | MFErrIndex2 | = | 0 | ||
| integer, | public | :: | TempSetPointNodeNum | = | 0 | ||
| integer, | public | :: | MaxBranch | = | 0 | ||
| real(kind=r64), | public | :: | MinTemp | = | 0.0d0 | ||
| real(kind=r64), | public | :: | MaxTemp | = | 0.0d0 | ||
| integer, | public | :: | MinTempErrIndex | = | 0 | ||
| integer, | public | :: | MaxTempErrIndex | = | 0 | ||
| real(kind=r64), | public | :: | MinVolFlowRate | = | 0.0d0 | ||
| real(kind=r64), | public | :: | MaxVolFlowRate | = | 0.0d0 | ||
| real(kind=r64), | public | :: | MinMassFlowRate | = | 0.0d0 | ||
| real(kind=r64), | public | :: | MaxMassFlowRate | = | 0.0d0 | ||
| real(kind=r64), | public | :: | Volume | = | 0.0d0 | ||
| real(kind=r64), | public | :: | Mass | = | 0.0d0 | ||
| logical, | public | :: | EMSCtrl | = | .FALSE. | ||
| real(kind=r64), | public | :: | EMSValue | = | 0.0d0 | ||
| type(HalfLoopData), | public, | ALLOCATABLE, DIMENSION(:) | :: | LoopSide | |||
| character(len=MaxNameLength), | public | :: | OperationScheme | = | ' ' | ||
| integer, | public | :: | NumOpSchemes | = | 0 | ||
| type(OperationData), | public, | ALLOCATABLE, DIMENSION(:) | :: | OpScheme | |||
| integer, | public | :: | LoadDistribution | = | 0 | ||
| integer, | public | :: | PlantSizNum | = | 0 | ||
| integer, | public | :: | LoopDemandCalcScheme | = | 0 | ||
| integer, | public | :: | CommonPipeType | = | 0 | ||
| character(len=MaxNameLength), | public | :: | EconomizerHtExchanger | = | ' ' | ||
| character(len=MaxNameLength), | public | :: | EconPlantSideSensedNodeName | = | ' ' | ||
| character(len=MaxNameLength), | public | :: | EconCondSideSensedNodeName | = | ' ' | ||
| integer, | public | :: | EconPlantSideSensedNodeNum | = | 0 | ||
| integer, | public | :: | EconCondSideSensedNodeNum | = | 0 | ||
| integer, | public | :: | EconPlacement | = | 0 | ||
| integer, | public | :: | EconBranch | = | 0 | ||
| integer, | public | :: | EconComp | = | 0 | ||
| real(kind=r64), | public | :: | EconControlTempDiff | = | 0.0d0 | ||
| logical, | public | :: | LoopHasConnectionComp | = | .FALSE. | ||
| integer, | public | :: | TypeOfLoop | = | 0 | ||
| integer, | public | :: | PressureSimType | = | 1 | ||
| logical, | public | :: | HasPressureComponents | = | .FALSE. | ||
| real(kind=r64), | public | :: | PressureDrop | = | 0.0d0 | ||
| logical, | public | :: | UsePressureForPumpCalcs | = | .FALSE. | ||
| real(kind=r64), | public | :: | PressureEffectiveK | = | 0.0d0 |
TYPE PlantLoopData
CHARACTER(len=MaxNameLength) :: Name = ' ' ! Name of the component list
CHARACTER(len=MaxNameLength) :: FluidName = ' ' ! Name of the fluid specified for this loop
INTEGER :: FluidType = 0 ! Type of fluid in the loop
INTEGER :: FluidIndex = 0 ! Index for Fluid in FluidProperties
INTEGER :: MFErrIndex = 0 ! for recurring mass flow errors
INTEGER :: MFErrIndex1 = 0 ! for recurring mass flow errors
INTEGER :: MFErrIndex2 = 0 ! for recurring mass flow errors
! (see CheckPlantMixerSplitterConsistency)
! Loop Operating Setpoints and Limits
INTEGER :: TempSetPointNodeNum = 0 ! Node Number for Loop Temp SP associated with SP manager
INTEGER :: MaxBranch = 0 ! Max branches in the loop
REAL(r64) :: MinTemp = 0.0d0 ! Minimum temperature allowed in the loop
REAL(r64) :: MaxTemp = 0.0d0 ! Maximum temperature allowed in the loop
INTEGER :: MinTempErrIndex = 0 ! for recurring too cold errors
INTEGER :: MaxTempErrIndex = 0 ! for recurring too hot errors
REAL(r64) :: MinVolFlowRate = 0.0d0 ! Minimum flow rate allowed in the loop
REAL(r64) :: MaxVolFlowRate = 0.0d0 ! Maximum flow rate allowed in the loop
REAL(r64) :: MinMassFlowRate = 0.0d0 ! Minimum flow rate allowed in the loop
REAL(r64) :: MaxMassFlowRate = 0.0d0 ! Maximum flow rate allowed in the loop
REAL(r64) :: Volume = 0.0d0 ! Volume of the fluid in the loop
REAL(r64) :: Mass = 0.0d0 ! Mass of the fluid in the loop
LOGICAL :: EMSCtrl = .FALSE.
REAL(r64) :: EMSValue = 0.0d0
! Loop Inlet and Outlet Nodes
TYPE(HalfLoopData), &
ALLOCATABLE, DIMENSION(:) :: LoopSide ! Half loop data (Demand side or Supply Side)
CHARACTER(len=MaxNameLength) :: OperationScheme = ' ' ! Operation scheme name for the loop
INTEGER :: NumOpSchemes = 0 ! Number of items in list identified by "OpScheme"
TYPE(OperationData), &
ALLOCATABLE, DIMENSION(:) :: OpScheme ! Operation scheme data
INTEGER :: LoadDistribution = 0 ! Load distribution scheme 1 for optimal, 2 for overloading
INTEGER :: PlantSizNum = 0 ! index to corresponding plant sizing data array
INTEGER :: LoopDemandCalcScheme = 0 ! Load distribution scheme 1 SingleSetPoint,
! 2 DualSetPointwithDeadBand
INTEGER :: CommonPipeType = 0
! TYPE(TwoWayCommonPipeData), &
! ALLOCATABLE :: TwoWayCommonPipe ! two-way common pipe data, primary secondary loop model
CHARACTER(len=MaxNameLength) :: EconomizerHtExchanger = ' ' !DSU review, should move these out of here
CHARACTER(len=MaxNameLength) :: EconPlantSideSensedNodeName = ' ' !DSU review, should move these out of here
CHARACTER(len=MaxNameLength) :: EconCondSideSensedNodeName = ' ' !DSU review, should move these out of here
INTEGER :: EconPlantSideSensedNodeNum = 0 !DSU review, should move these out of here
INTEGER :: EconCondSideSensedNodeNum = 0 !DSU review, should move these out of here
INTEGER :: EconPlacement = 0 !DSU review, should move these out of here
INTEGER :: EconBranch = 0 !DSU review, should move these out of here
INTEGER :: EconComp = 0 !DSU review, should move these out of here
REAL(r64) :: EconControlTempDiff = 0.0d0 !DSU review, should move these out of here
LOGICAL :: LoopHasConnectionComp = .FALSE.
INTEGER :: TypeOfLoop = 0
INTEGER :: PressureSimType = 1
LOGICAL :: HasPressureComponents = .FALSE.
REAL(r64) :: PressureDrop = 0.0d0
LOGICAL :: UsePressureForPumpCalcs = .FALSE.
REAL(r64) :: PressureEffectiveK = 0.0d0
END TYPE PlantLoopData