Type | Visibility | Attributes | Name | Initial | |||
---|---|---|---|---|---|---|---|
character(len=MaxNameLength), | public | :: | Name | = | ' ' | ||
character(len=MaxNameLength), | public | :: | ZoneName | = | ' ' | ||
integer, | public | :: | ZonePtr | = | 0 | ||
integer, | public | :: | ClassType | = | 0 | ||
real(kind=r64), | public | :: | Height | = | 0.0d0 | ||
logical, | public, | ALLOCATABLE, DIMENSION(:) | :: | SurfMask |
TYPE AirNodeData
CHARACTER(len=MaxNameLength) :: Name =' ' !name
CHARACTER(len=MaxNameLength) :: ZoneName =' '
INTEGER :: ZonePtr =0 ! Pointer to the zone number for this statement
INTEGER :: ClassType =0 !depending on type of model
REAL(r64) :: Height =0.0d0 !height
LOGICAL, ALLOCATABLE, DIMENSION(:) :: SurfMask !limit of 60 surfaces at current sizing
END TYPE AirNodeData