| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| character(len=MaxNameLength), | public | :: | Name | = | ' ' | ||
| integer, | public | :: | NumOfSurfaces | = | 0 | ||
| character(len=MaxNameLength), | public, | ALLOCATABLE, DIMENSION(:) | :: | SurfName | |||
| integer, | public, | ALLOCATABLE, DIMENSION(:) | :: | SurfPtr | |||
| character(len=MaxNameLength), | public, | ALLOCATABLE, DIMENSION(:) | :: | ZoneName | |||
| integer, | public, | ALLOCATABLE, DIMENSION(:) | :: | ZonePtr | |||
| real(kind=r64), | public, | ALLOCATABLE, DIMENSION(:) | :: | CoreDiameter | |||
| real(kind=r64), | public, | ALLOCATABLE, DIMENSION(:) | :: | CoreLength | |||
| real(kind=r64), | public, | ALLOCATABLE, DIMENSION(:) | :: | CoreNumbers | |||
| character(len=MaxNameLength), | public, | ALLOCATABLE, DIMENSION(:) | :: | SlabInNodeName | |||
| character(len=MaxNameLength), | public, | ALLOCATABLE, DIMENSION(:) | :: | SlabOutNodeName |
TYPE SlabListData
CHARACTER(len=MaxNameLength) :: Name =' ' ! Name of the surface list
INTEGER :: NumOfSurfaces =0 ! Number of surfaces in the list
CHARACTER(len=MaxNameLength), ALLOCATABLE, DIMENSION(:) :: SurfName ! Surfaces named in the list
INTEGER, ALLOCATABLE, DIMENSION(:) :: SurfPtr ! Location of surfaces in Surface derived type
CHARACTER(len=MaxNameLength), ALLOCATABLE, DIMENSION(:) :: ZoneName ! Zone named in the list
INTEGER, ALLOCATABLE, DIMENSION(:) :: ZonePtr ! Location of Zone in Surface derived type
REAL(r64), ALLOCATABLE, DIMENSION(:) :: CoreDiameter ! Fraction of mass flow/length for a surface
REAL(r64), ALLOCATABLE, DIMENSION(:) :: CoreLength ! Fraction of mass flow/length for a surface
REAL(r64), ALLOCATABLE, DIMENSION(:) :: CoreNumbers ! Fraction of mass flow/length for a surface
CHARACTER(len=MaxNameLength), ALLOCATABLE, DIMENSION(:) :: SlabInNodeName ! Zone named in the list
CHARACTER(len=MaxNameLength), ALLOCATABLE, DIMENSION(:) :: SlabOutNodeName ! Zone named in the list
END TYPE SlabListData