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.
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 | |||
|---|---|---|---|---|---|---|---|
| character(len=MaxNameLength), | public | :: | Name | = | ' ' | ||
| integer, | public | :: | LTYPE | = | 0 | ||
| integer, | public | :: | iGZS | = | 0 | ||
| type(CFSSWP), | public | :: | SWP_MAT | ||||
| type(CFSLWP), | public | :: | LWP_MAT | ||||
| type(CFSSWP), | public | :: | SWP_EL | ||||
| type(CFSLWP), | public | :: | LWP_EL | ||||
| real(kind=r64), | public | :: | S | = | 0.0d0 | ||
| real(kind=r64), | public | :: | W | = | 0.0d0 | ||
| real(kind=r64), | public | :: | C | = | 0.0d0 | ||
| real(kind=r64), | public | :: | PHI_DEG | = | 0.0d0 | ||
| integer, | public | :: | CNTRL | = | 0 |
TYPE CFSLAYER
CHARACTER(len=MaxNameLength)::Name =' '! ID of layer
INTEGER :: LTYPE =0 ! layer type (see ltyXXX above)
INTEGER :: iGZS =0 ! re spectral glazing
! = GZSTbl idx of LTYPE=ltyGZS (spectral glazing)
! else 0
! material properties
! ltyGLAZE, ltyROLLB: as measured
TYPE( CFSSWP) :: SWP_MAT ! ltyGZS: derived from GSZ file data
TYPE( CFSLWP) :: LWP_MAT ! ltyVBxxx = slat properties (diffuse only)
! short wave (solar)
! long wave (thermal)
! equivalent layer properties (see FinalizeCFSLAYER())
! = diff + direct-normal properties for pseudo flat layer
TYPE( CFSSWP) :: SWP_EL ! ltyGLAZE, ltyGZS, ltyROLLB: same as _MAT
TYPE( CFSLWP) :: LWP_EL ! ltyVBxxx: see VB_xxx()
! short wave (solar)
! long wave (thermal)
! Shade Geometry (Slat, Drape, Insect Screen)
REAL(r64) :: S =0.0d0 ! spacing
! VB: slat spacing, m, >0
! PD: rectangular pleat spacing, m >0
! IS: wire center-to-center spacing (pitch), m, >0
! else unused
REAL(r64) :: W =0.0d0 ! width
! VB: slat tip-to-tip (chord width), m, >0
! if crown > 0, W < slat flattened width
! PD: pleat depth, m >= 0
! IS: wire diameter, m, >0, <S
REAL(r64) :: C =0.0d0 ! crown
! VB: slat crown, m >=0 if used
! crown assume upward for ltyVBHOR else unused
REAL(r64) :: PHI_DEG =0.0d0 ! Angle
! VB: slat angle, degrees (-90 <= PHI_DEG <= 90)
! ltyVBHOR: + = front-side slat tip below horizontal
! ltyVBVER: + = front-side slat tip is counter-
! clockwise from normal (viewed from above)
! else unused
! shade control method
INTEGER :: CNTRL =0 ! VB: lscNONE: PHI_DEG not changed
! lscVBPROF: PHI_DEG = profile angle (max gain)
! lscVBNOBM: exclude beam (max visibility w/o beam)
! PHI_DEG altered to just exclude beam
! PHI_DEG = 20 if diffuse only
END TYPE CFSLAYER