Type | Visibility | Attributes | Name | Initial | |||
---|---|---|---|---|---|---|---|
character(len=MaxNameLength), | public | :: | Name | = | ' ' | ||
integer, | public | :: | SurfPtr | = | 0 | ||
integer, | public | :: | ConstrPtr | = | 0 | ||
integer, | public | :: | SchedPtr | = | 0 |
TYPE SurfaceSolarIncident
CHARACTER(len=MaxNameLength) :: Name = ' ' !
INTEGER :: SurfPtr = 0 ! surface pointer
INTEGER :: ConstrPtr = 0 ! construction pointer
INTEGER :: SchedPtr = 0 ! schedule pointer
END TYPE SurfaceSolarIncident