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 | :: | GTYPE | = | 0 | ||
| real(kind=r64), | public | :: | TAS | = | 0.0d0 | ||
| real(kind=r64), | public | :: | TAS_EFF | = | 0.0d0 | ||
| type(CFSFILLGAS), | public | :: | FG | ||||
| real(kind=r64), | public | :: | RHOGAS | = | 0.0d0 |
TYPE CFSGAP
CHARACTER(len=MaxNameLength):: Name=' ' ! Gap layer name
INTEGER :: GTYPE =0 ! gap type (gtyXXX above)
REAL(r64) :: TAS =0.0d0 ! actual surface-surface gap thickness, mm (always > 0)
! VB: minimum tip-surface distance (slats normal to CFS plane)
REAL(r64) :: TAS_EFF=0.0d0 ! effective gap thickness, mm (always > 0)
! if either adjacent layer is VB adjusted
! slat angle and convective behavior
! else = TAS
TYPE( CFSFILLGAS):: FG ! fill gas properties (see above)
REAL(r64) :: RHOGAS =0.0d0 ! fill gas density (kg/m3)
END TYPE CFSGAP