Nodes of different colours represent the following:
Solid arrows point from one derived type to another which extends (inherits from) it. Dashed arrows point from a derived type to another type containing it as a components, with a label listing the name(s) of said component(s). Where possible, edges connecting nodes are given different colours to make them easier to distinguish in large graphs.
| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| integer, | public | :: | NumStates | ||||
| integer, | public | :: | CurrentState | = | 1 | ||
| real(kind=r64), | public, | DIMENSION(: , :), ALLOCATABLE | :: | ResultAllStates | |||
| type(BSDFStateDescr), | public, | DIMENSION(:), ALLOCATABLE | :: | State |
TYPE BSDFWindowDescript
INTEGER :: NumStates !Number of states for this window
INTEGER :: CurrentState = 1 !Current state of this window
REAL(r64), DIMENSION(: , :), ALLOCATABLE :: ResultAllStates !Array to hold calculated
!quantities for all states.
!Currently unallocated. To be defined when control
!scheme worked out. This is an array (nvar, nstates)
!to be set up for some number of variables, and calculated
!for all states 1...NumStates each time step. e.g., one variable could be
!total beam transmitted solar, another total transmitted diffuse
!The idea is that for a given time step when one has the
!actual result (total cooling load or whatever), one needs to have
!some information about all the states to decide where to
!set the state variable for the next time step
TYPE (BSDFStateDescr), DIMENSION(:), ALLOCATABLE :: State !State description, dimensioned with number of states
END TYPE BSDFWindowDescript !This structure is located in SurfaceWindow as SurfaceWindow(ISurf)%ComplexFen