| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| character(len=MaxNameLength), | public | :: | Name | = | ' ' | ||
| real(kind=r64), | public | :: | EquivDiameter | = | 0.0d0 | ||
| real(kind=r64), | public | :: | MinorLossCoeff | = | 0.0d0 | ||
| real(kind=r64), | public | :: | EquivLength | = | 0.0d0 | ||
| real(kind=r64), | public | :: | EquivRoughness | = | 0.0d0 | ||
| logical, | public | :: | ConstantFpresent | = | .FALSE. | ||
| real(kind=r64), | public | :: | ConstantF | = | 0.0d0 | ||
| logical, | public | :: | EMSOverrideOn | = | .FALSE. | ||
| real(kind=r64), | public | :: | EMSOverrideCurveValue | = | 0.0D0 | ||
| real(kind=r64), | public | :: | CurveOutput | = | 0.0d0 | ||
| real(kind=r64), | public | :: | CurveInput1 | = | 0.0d0 | ||
| real(kind=r64), | public | :: | CurveInput2 | = | 0.0d0 | ||
| real(kind=r64), | public | :: | CurveInput3 | = | 0.0d0 |
TYPE PlantPressureCurveData
CHARACTER(len=MaxNameLength) :: Name = ' '
REAL(r64) :: EquivDiameter = 0.0d0 !- An effective diameter for calculation of Re & e/D [m]
REAL(r64) :: MinorLossCoeff = 0.0d0 !- K factor [-]
REAL(r64) :: EquivLength = 0.0d0 !- An effective length to apply friction calculation [m]
REAL(r64) :: EquivRoughness = 0.0d0 !- An effective roughness (e) to calculate e/D [m]
LOGICAL :: ConstantFpresent = .FALSE. !- Signal for if a constant value of f was entered
REAL(r64) :: ConstantF = 0.0d0 !- Constant value of f (if applicable) [-]
LOGICAL :: EMSOverrideOn = .FALSE. ! if TRUE, then EMS is calling to override curve value
REAL(r64) :: EMSOverrideCurveValue = 0.0D0 ! Value of curve result EMS is directing to use
! report variables.
REAL(r64) :: CurveOutput = 0.0d0
REAL(r64) :: CurveInput1 = 0.0d0 !- MassFlow [kg/s]
REAL(r64) :: CurveInput2 = 0.0d0 !- Density [kg/m3]
REAL(r64) :: CurveInput3 = 0.0d0 !- Velocity [m/s]
END TYPE PlantPressureCurveData