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 | :: | WaterTempMode | = | 0 | ||
| character(len=MaxNameLength), | public | :: | NodeName | = | ' ' | ||
| integer, | public | :: | NodeNum | = | 0 | ||
| integer, | public | :: | SchedNum | = | 0 | ||
| integer, | public | :: | WaterSupRateCurveID | = | 0 | ||
| integer, | public | :: | PmpPowerCurveID | = | 0 | ||
| real(kind=r64), | public | :: | PmpPowerLossFactor | = | 0.0d0 | ||
| logical, | public | :: | IsModeled | = | .TRUE. | ||
| real(kind=r64), | public | :: | TwaterIntoCompress | = | 0.0d0 | ||
| real(kind=r64), | public | :: | TwaterIntoFCPM | = | 0.0d0 | ||
| real(kind=r64), | public | :: | PwaterCompEl | = | 0.0d0 | ||
| real(kind=r64), | public | :: | QskinLoss | = | 0.0d0 |
TYPE FCWaterSupplyDataStruct
CHARACTER(len=MaxNameLength) :: Name = ' ' !name of this water supply module
INTEGER :: WaterTempMode =0 ! temperature of water inlet determination
CHARACTER(len=MaxNameLength) :: NodeName = ' ' !node name for temperature at input
INTEGER :: NodeNum = 0 ! node number for temperature at input
INTEGER :: SchedNum = 0 ! water temperature at input
INTEGER :: WaterSupRateCurveID = 0 ! "pointer" to water flow rate curve as a function of fuel rate
INTEGER :: PmpPowerCurveID = 0 !"pointer to Pump power curve as a function of water flow Rate
REAL(r64) :: PmpPowerLossFactor = 0.0d0 !Pump heat loss factor
!calculated data
LOGICAL :: IsModeled = .TRUE.
REAL(r64) :: TwaterIntoCompress = 0.0d0 ! inlet Water Temperature
REAL(r64) :: TwaterIntoFCPM = 0.0d0 ! pumped water temp
REAL(r64) :: PwaterCompEl = 0.0d0 ! water pump power
REAL(r64) :: QskinLoss = 0.0d0 ! pumping losses for zone
END TYPE FCWaterSupplyDataStruct