| 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 | |||
| real(kind=r64), | public, | ALLOCATABLE, DIMENSION(:) | :: | SurfFlowFrac |
TYPE SurfaceListData
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
REAL(r64), ALLOCATABLE, DIMENSION(:) :: SurfFlowFrac ! Fraction of mass flow/length for a surface
END TYPE SurfaceListData