Type | Visibility | Attributes | Name | Initial | |||
---|---|---|---|---|---|---|---|
character(len=MaxNameLength), | public | :: | Name | = | ' ' | ||
integer, | public | :: | TypeOf | = | 0 | ||
integer, | public | :: | EquipNum | = | 0 | ||
integer, | public | :: | FlowCtrl | = | 0 | ||
character(len=MaxNameLength), | public | :: | NodeNameIn | = | ' ' | ||
integer, | public | :: | NodeNumIn | = | 0 | ||
character(len=MaxNameLength), | public | :: | NodeNameOut | = | ' ' | ||
integer, | public | :: | NodeNumOut | = | 0 | ||
integer, | public | :: | ParentHalfLoop | = | 0 |
TYPE PipeData
CHARACTER(len=MaxNameLength) :: Name = ' ' ! Pipe name
INTEGER :: TypeOf = 0
INTEGER :: EquipNum = 0
INTEGER :: FlowCtrl = 0 ! Pipe control (should always be BYPASS)
CHARACTER(len=MaxNameLength) :: NodeNameIn = ' ' ! Pipe inlet node name
INTEGER :: NodeNumIn = 0 ! Pipe inlet node number
CHARACTER(len=MaxNameLength) :: NodeNameOut = ' ' ! Pipe outlet node name
INTEGER :: NodeNumOut = 0 ! Pipe outlet node number
INTEGER :: ParentHalfLoop = 0 ! Half loop where the pipe is present
END TYPE PipeData