Type | Visibility | Attributes | Name | Initial | |||
---|---|---|---|---|---|---|---|
character(len=MaxNameLength), | public | :: | Name | = | ' ' | ||
integer, | public | :: | NumOfComponents | = | 0 | ||
integer, | public | :: | InletNodeNum | = | 0 | ||
character(len=MaxNameLength), | public, | DIMENSION(:), ALLOCATABLE | :: | ComponentType | |||
integer, | public, | DIMENSION(:), ALLOCATABLE | :: | ComponentType_Num | |||
character(len=MaxNameLength), | public, | DIMENSION(:), ALLOCATABLE | :: | ComponentName | |||
integer, | public, | DIMENSION(:), ALLOCATABLE | :: | ComponentIndex | |||
integer, | public, | DIMENSION(:), ALLOCATABLE | :: | SplitterIndex | |||
integer, | public, | DIMENSION(:), ALLOCATABLE | :: | PlenumIndex | |||
integer, | public | :: | NumOutletNodes | = | 0 | ||
integer, | public, | DIMENSION(:), ALLOCATABLE | :: | OutletNode | |||
integer, | public | :: | NumNodes | = | 0 | ||
integer, | public, | DIMENSION(:), ALLOCATABLE | :: | Node | |||
integer, | public, | DIMENSION(:), ALLOCATABLE | :: | NodeType |
TYPE SupplyAir
CHARACTER(len=MaxNameLength) :: Name = ' ' !
INTEGER :: NumOfComponents = 0 !
INTEGER :: InletNodeNum = 0 !
CHARACTER(len=MaxNameLength), DIMENSION(:), ALLOCATABLE :: ComponentType
INTEGER, DIMENSION(:), ALLOCATABLE :: ComponentType_Num
CHARACTER(len=MaxNameLength), DIMENSION(:), ALLOCATABLE :: ComponentName
INTEGER, DIMENSION(:), ALLOCATABLE :: ComponentIndex
INTEGER, DIMENSION(:), ALLOCATABLE :: SplitterIndex
INTEGER, DIMENSION(:), ALLOCATABLE :: PlenumIndex
INTEGER :: NumOutletNodes = 0
INTEGER, DIMENSION(:), ALLOCATABLE :: OutletNode
INTEGER :: NumNodes = 0
INTEGER, DIMENSION(:), ALLOCATABLE :: Node
INTEGER, DIMENSION(:), ALLOCATABLE :: NodeType
END TYPE SupplyAir