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 | = | ' ' | ||
| real(kind=r64), | public | :: | AK | = | 0.0d0 | ||
| real(kind=r64), | public | :: | BK | = | 0.0d0 | ||
| real(kind=r64), | public | :: | CK | = | 0.0d0 | ||
| real(kind=r64), | public | :: | ACP | = | 0.0d0 | ||
| real(kind=r64), | public | :: | BCP | = | 0.0d0 | ||
| real(kind=r64), | public | :: | CCP | = | 0.0d0 | ||
| real(kind=r64), | public | :: | AVISC | = | 0.0d0 | ||
| real(kind=r64), | public | :: | BVISC | = | 0.0d0 | ||
| real(kind=r64), | public | :: | CVISC | = | 0.0d0 | ||
| real(kind=r64), | public | :: | MHAT | = | 0.0d0 |
TYPE CFSFILLGAS
CHARACTER(len=MaxNameLength) ::Name=' ' ! Gas Type (AIR, ARGON, XENON, KRYPTON, CUSTOM)
!Gas Conductivity: K = AK + BK*T + CK*T*T
REAL(r64):: AK =0.0d0 ! conductivity coeff constant term, (W/m-K)
REAL(r64):: BK =0.0d0 ! conductivity coeff of T term, (W/m-K2)
REAL(r64):: CK =0.0d0 ! conductivity coeff of T^2 term, (W/m-K^3)
! Gas Specific heat: CP = ACP + BCP*T + CCP*T*T
REAL(r64):: ACP =0.0d0 ! specific heat constant term, (J/kg-K)
REAL(r64):: BCP =0.0d0 ! specific heat coeff of T term, (J/kg-K^2)
REAL(r64):: CCP =0.0d0 ! specific heat coeff of T^2 term, (J/kg-K^3)
!Gas Viscosity: Visc = AVISC + BVISC*T + CVISC*T*T
REAL(r64):: AVISC =0.0d0 ! viscosity constant term, (N-sec/m2)
REAL(r64):: BVISC =0.0d0 ! viscosity coeff of T term, (N-sec/m2-K)
REAL(r64):: CVISC =0.0d0 ! viscosity coeff of T^2 term, (N-sec/m2-K^2)
REAL(r64):: MHAT =0.0d0 ! apparent molecular weight of gas
END TYPE CFSFILLGAS