Nodes of different colours represent the following:
Solid arrows point from one derived type to another which extends (inherits from) it. Dashed arrows point from a derived type to another type containing it as a components, with a label listing the name(s) of said component(s). Where possible, edges connecting nodes are given different colours to make them easier to distinguish in large graphs.
| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| character(len=MaxNameLength), | public | :: | Name | = | ' ' | ||
| integer, | public | :: | InletNodeNum | = | 0 | ||
| integer, | public | :: | OutletNodeNum | = | 0 | ||
| real(kind=r64), | public | :: | DesVolFlowRate | = | 0.0d0 | ||
| real(kind=r64), | public | :: | MassFlowRateMax | = | 0.0d0 | ||
| logical, | public | :: | EMSOverrideOnMassFlowRateMax | = | .FALSE. | ||
| real(kind=r64), | public | :: | EMSOverrideValueMassFlowRateMax | = | 0.d0 | ||
| real(kind=r64), | public | :: | MassFlowRate | = | 0.0d0 | ||
| integer, | public | :: | TempSpecType | = | 0 | ||
| character(len=MaxNameLength), | public | :: | TempSpecScheduleName | = | '' | ||
| integer, | public | :: | TempSpecScheduleNum | = | 0 | ||
| real(kind=r64), | public | :: | BoundaryTemp | = | 0.0d0 | ||
| real(kind=r64), | public | :: | OutletTemp | = | 0.0d0 | ||
| real(kind=r64), | public | :: | InletTemp | = | 0.0d0 | ||
| real(kind=r64), | public | :: | HeatRate | = | 0.0d0 | ||
| real(kind=r64), | public | :: | HeatEnergy | = | 0.0d0 | ||
| type(PlantLocation), | public | :: | Location | = | PlantLocation(0, 0, 0, 0) | ||
| real(kind=r64), | public | :: | SizFac | = | 0.0d0 | ||
| logical, | public | :: | CheckEquipName | = | .TRUE. | ||
| logical, | public | :: | MyFlag | = | .TRUE. | ||
| logical, | public | :: | MyEnvironFlag | = | .TRUE. |
TYPE WaterSourceSpecs
CHARACTER(len=MaxNameLength) :: Name =' ' ! user identifier
INTEGER :: InletNodeNum =0 ! Node number on the inlet side of the plant
INTEGER :: OutletNodeNum =0 ! Node number on the outlet side of the plant
REAL(r64) :: DesVolFlowRate =0.0d0 ! m**3/s - design nominal volumetric flow rate
REAL(r64) :: MassFlowRateMax =0.0d0 ! kg/s - design mass flow rate
LOGICAL :: EMSOverrideOnMassFlowRateMax = .FALSE. ! if true EMS is calling to override maximum mass flow
REAL(r64) :: EMSOverrideValueMassFlowRateMax = 0.d0 ! value to use if EMS is overriding max mass flow
REAL(r64) :: MassFlowRate = 0.0d0
INTEGER :: TempSpecType = 0 ! temperature specification type
CHARACTER(len=MaxNameLength) :: TempSpecScheduleName = ''
INTEGER :: TempSpecScheduleNum = 0
REAL(r64) :: BoundaryTemp = 0.0d0
REAL(r64) :: OutletTemp = 0.0d0 !may be different if the flow is off
REAL(r64) :: InletTemp = 0.0d0
REAL(r64) :: HeatRate = 0.0d0
REAL(r64) :: HeatEnergy = 0.0d0
TYPE(PlantLocation) :: Location = PlantLocation(0,0,0,0)
REAL(r64) :: SizFac = 0.0d0 ! sizing factor
LOGICAL :: CheckEquipName = .TRUE.
LOGICAL :: MyFlag = .TRUE.
LOGICAL :: MyEnvironFlag = .TRUE.
END TYPE WaterSourceSpecs