| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| real(kind=r64), | private, | parameter | :: | SmallIncrement | = | 1.0d-10 | |
| real(kind=r64), | private, | parameter | :: | HCMULT | = | 100000.d0 | |
| real(kind=r64), | private, | parameter | :: | sqHCMULT | = | HCMULT*HCMULT | |
| real(kind=r64), | private, | parameter | :: | kHCMULT | = | 1.0d0/(HCMULT*HCMULT) | |
| integer, | private, | parameter | :: | NoOverlap | = | 1 | |
| integer, | private, | parameter | :: | FirstSurfWithinSecond | = | 2 | |
| integer, | private, | parameter | :: | SecondSurfWithinFirst | = | 3 | |
| integer, | private, | parameter | :: | PartialOverlap | = | 4 | |
| integer, | private, | parameter | :: | TooManyVertices | = | 5 | |
| integer, | private, | parameter | :: | TooManyFigures | = | 6 | |
| character(len=*), | private, | parameter, DIMENSION(6) | :: | cOverLapStatus | = | (/'No-Overlap ', '1st-Surf-within-2nd', '2nd-Surf-within-1st', 'Partial-Overlap ', 'Too-Many-Vertices ', 'Too-Many-Figures '/) | |
| integer, | private | :: | MAXHCV | = | 12 | ||
| integer, | private | :: | MAXHCS | = | 15000 | ||
| integer, | public | :: | MAXHCArrayBounds | = | 0 | ||
| integer, | private | :: | MAXHCArrayIncrement | = | 0 | ||
| integer, | private | :: | NVS | ||||
| integer, | private | :: | NumVertInShadowOrClippedSurface | ||||
| integer, | private | :: | CurrentSurfaceBeingShadowed | ||||
| integer, | private | :: | CurrentShadowingSurface | ||||
| integer, | private | :: | OverlapStatus | ||||
| real(kind=r64), | private, | ALLOCATABLE, DIMENSION(:) | :: | CTHETA | |||
| integer, | private | :: | FBKSHC | ||||
| integer, | private | :: | FGSSHC | ||||
| integer, | private | :: | FINSHC | ||||
| integer, | private | :: | FRVLHC | ||||
| integer, | private | :: | FSBSHC | ||||
| integer, | private | :: | LOCHCA | = | 0 | ||
| integer, | private | :: | NBKSHC | ||||
| integer, | private | :: | NGSSHC | ||||
| integer, | private | :: | NINSHC | ||||
| integer, | private | :: | NRVLHC | ||||
| integer, | private | :: | NSBSHC | ||||
| logical, | private | :: | CalcSkyDifShading | ||||
| integer, | private | :: | ShadowingCalcFrequency | = | 0 | ||
| integer, | private | :: | ShadowingDaysLeft | = | 0 | ||
| logical, | private | :: | debugging | = | .false. | ||
| integer, | private | :: | OutputFileShading | ||||
| integer, | private, | ALLOCATABLE, DIMENSION(:) | :: | HCNS | |||
| integer, | private, | ALLOCATABLE, DIMENSION(:) | :: | HCNV | |||
| integer(kind=i64), | private, | ALLOCATABLE, DIMENSION(:,:) | :: | HCA | |||
| integer(kind=i64), | private, | ALLOCATABLE, DIMENSION(:,:) | :: | HCB | |||
| integer(kind=i64), | private, | ALLOCATABLE, DIMENSION(:,:) | :: | HCC | |||
| integer(kind=i64), | private, | ALLOCATABLE, DIMENSION(:,:) | :: | HCX | |||
| integer(kind=i64), | private, | ALLOCATABLE, DIMENSION(:,:) | :: | HCY | |||
| integer, | private, | ALLOCATABLE, DIMENSION(:,:,:) | :: | WindowRevealStatus | |||
| real(kind=r64), | private, | ALLOCATABLE, DIMENSION(:) | :: | HCAREA | |||
| real(kind=r64), | private, | ALLOCATABLE, DIMENSION(:) | :: | HCT | |||
| real(kind=r64), | private, | ALLOCATABLE, DIMENSION(:) | :: | ISABSF | |||
| real(kind=r64), | private, | ALLOCATABLE, DIMENSION(:) | :: | SAREA | |||
| type(SurfaceErrorTracking), | private, | ALLOCATABLE, DIMENSION(:) | :: | TrackTooManyFigures | |||
| integer, | private | :: | NumTooManyFigures | = | 0 | ||
| type(SurfaceErrorTracking), | private, | ALLOCATABLE, DIMENSION(:) | :: | TrackTooManyVertices | |||
| integer, | private | :: | NumTooManyVertices | = | 0 | ||
| type(SurfaceErrorTracking), | private, | ALLOCATABLE, DIMENSION(:) | :: | TrackBaseSubSurround | |||
| integer, | private | :: | NumBaseSubSurround | = | 0 | ||
| type(SurfaceErrorTracking), | private, | ALLOCATABLE, DIMENSION(:) | :: | TempSurfErrorTracking | |||
| real(kind=r64), | private, | DIMENSION(3) | :: | SUNCOS | |||
| real(kind=r64), | private | :: | XShadowProjection | ||||
| real(kind=r64), | private | :: | YShadowProjection | ||||
| real(kind=r64), | private, | ALLOCATABLE, DIMENSION(:) | :: | XTEMP | |||
| real(kind=r64), | private, | ALLOCATABLE, DIMENSION(:) | :: | XVC | |||
| real(kind=r64), | private, | ALLOCATABLE, DIMENSION(:) | :: | XVS | |||
| real(kind=r64), | private, | ALLOCATABLE, DIMENSION(:) | :: | YTEMP | |||
| real(kind=r64), | private, | ALLOCATABLE, DIMENSION(:) | :: | YVC | |||
| real(kind=r64), | private, | ALLOCATABLE, DIMENSION(:) | :: | YVS | |||
| real(kind=r64), | private, | ALLOCATABLE, DIMENSION(:) | :: | ZVC | |||
| real(kind=r64), | private, | ALLOCATABLE, DIMENSION(:) | :: | ATEMP | |||
| real(kind=r64), | private, | ALLOCATABLE, DIMENSION(:) | :: | BTEMP | |||
| real(kind=r64), | private, | ALLOCATABLE, DIMENSION(:) | :: | CTEMP | |||
| real(kind=r64), | private, | ALLOCATABLE, DIMENSION(:) | :: | XTEMP1 | |||
| real(kind=r64), | private, | ALLOCATABLE, DIMENSION(:) | :: | YTEMP1 | |||
| integer, | public | :: | maxNumberOfFigures | = | 0 |
| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| integer, | public | :: | SurfIndex1 | = | 0 | ||
| integer, | public | :: | SurfIndex2 | = | 0 | ||
| integer, | public | :: | MiscIndex | = | 0 |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | SurfNum | |||
| integer, | intent(in) | :: | ConstNum |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | SurfNum | |||
| integer, | intent(in) | :: | ConstNum |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | NBS | |||
| integer, | intent(in) | :: | NRS |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | NRS | |||
| integer, | intent(in) | :: | NSS | |||
| real(kind=r64), | intent(in) | :: | ZMIN | |||
| logical, | intent(out) | :: | CannotShade |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | HTS | |||
| integer, | intent(in) | :: | GRSNR | |||
| integer, | intent(in) | :: | SBSNR |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | NVT | |||
| real(kind=r64), | intent(inout), | DIMENSION(:) | :: | XVT | ||
| real(kind=r64), | intent(inout), | DIMENSION(:) | :: | YVT | ||
| real(kind=r64), | intent(inout), | DIMENSION(:) | :: | ZVT |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | NS | |||
| integer, | intent(in) | :: | NGRS | |||
| integer, | intent(out) | :: | NVT | |||
| real(kind=r64), | intent(out), | DIMENSION(:) | :: | XVT | ||
| real(kind=r64), | intent(out), | DIMENSION(:) | :: | YVT | ||
| real(kind=r64), | intent(out), | DIMENSION(:) | :: | ZVT |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | I | |||
| integer, | intent(in) | :: | NS | |||
| integer, | intent(in) | :: | NumVertices |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | NS | |||
| integer, | intent(in) | :: | NumVertices |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | NS | |||
| integer, | intent(in) | :: | NumVertices |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | N1 | |||
| integer, | intent(in) | :: | N1NumVert | |||
| integer, | intent(in) | :: | N2 | |||
| integer, | intent(in) | :: | N2NumVert | |||
| integer, | intent(inout) | :: | NumVerticesOverlap | |||
| integer, | intent(out) | :: | NIN |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | NV1 | |||
| integer, | intent(in) | :: | NV2 | |||
| integer, | intent(inout) | :: | NV3 | |||
| integer, | intent(in) | :: | NS1 | |||
| integer, | intent(in) | :: | NS2 |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | NS1 | |||
| integer, | intent(in) | :: | NS2 | |||
| integer, | intent(in) | :: | NV1 | |||
| integer, | intent(in) | :: | NV2 | |||
| integer, | intent(inout) | :: | NV3 |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | NNN | |||
| integer, | intent(in) | :: | LOC0 | |||
| integer, | intent(in) | :: | NRFIGS |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | NV3 | |||
| integer, | intent(in) | :: | NS3 |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | NS1 | |||
| integer, | intent(in) | :: | NS2 | |||
| integer, | intent(in) | :: | NS3 |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| real(kind=r64), | intent(in) | :: | AvgEqOfTime | |||
| real(kind=r64), | intent(in) | :: | AvgSinSolarDeclin | |||
| real(kind=r64), | intent(in) | :: | AvgCosSolarDeclin |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | iHour | |||
| integer, | intent(in) | :: | iTimeStep | |||
| real(kind=r64), | intent(in) | :: | EqOfTime | |||
| real(kind=r64), | intent(in) | :: | SinSolarDeclin | |||
| real(kind=r64), | intent(in) | :: | CosSolarDeclin |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | iHour | |||
| integer, | intent(in) | :: | iTimeStep |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | IHOUR | |||
| integer, | intent(in) | :: | TS |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | NGRS | |||
| integer, | intent(in) | :: | CurSurf | |||
| integer, | intent(in) | :: | NBKS | |||
| integer, | intent(in) | :: | HTS |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | NGRS | |||
| integer, | intent(in) | :: | IHOUR | |||
| integer, | intent(in) | :: | TS | |||
| integer, | intent(in) | :: | CurSurf | |||
| integer, | intent(in) | :: | NGSS | |||
| integer, | intent(in) | :: | HTS |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | IHOUR | |||
| integer, | intent(in) | :: | NBKS | |||
| integer, | intent(in) | :: | HTSS | |||
| integer, | intent(in) | :: | GRSNR | |||
| integer, | intent(in) | :: | TS |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | HTSS | |||
| integer, | intent(in) | :: | SBSNR | |||
| integer, | intent(in) | :: | Hour | |||
| integer, | intent(in) | :: | TS |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | IHOUR | |||
| integer, | intent(in) | :: | CurSurf | |||
| integer, | intent(in) | :: | NBKS | |||
| integer, | intent(in) | :: | NSBS | |||
| integer, | intent(in) | :: | HTS | |||
| integer, | intent(in) | :: | TS |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | JulianDayOfYear | |||
| real(kind=r64), | intent(out) | :: | SineOfSolarDeclination | |||
| real(kind=r64), | intent(out) | :: | EquationOfTime |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| real(kind=r64), | intent(in) | :: | CurrentTime | |||
| real(kind=r64), | intent(in) | :: | EqOfTime | |||
| real(kind=r64), | intent(in) | :: | SinSolarDeclin | |||
| real(kind=r64), | intent(in) | :: | CosSolarDeclin |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | SurfNum | |||
| integer, | intent(in) | :: | FrDivNum | |||
| integer, | intent(in) | :: | HourNum |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer | :: | ZoneNum | ||||
| integer | :: | IntWinSurfNum | ||||
| real(kind=r64) | :: | IntWinDifSolarTransW |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| type(BSDFGeomDescr), | intent(inout) | :: | Geom | |||
| type(BSDFWindowGeomDescr), | intent(in) | :: | Window | |||
| integer, | intent(in) | :: | ISurf |