Type | Visibility | Attributes | Name | Initial | |||
---|---|---|---|---|---|---|---|
character(len=MaxNameLength), | public | :: | Name | = | ' ' | ||
real(kind=r64), | public | :: | A | = | 0.0d0 | ||
real(kind=r64), | public | :: | DP | = | 0.0d0 |
TYPE DisSysCompCPDProp ! Constant pressure drop component
CHARACTER(len=MaxNameLength) :: Name = ' ' ! Name of constant pressure drop component
REAL(r64) :: A = 0.0d0 ! cross section area
REAL(r64) :: DP = 0.0d0 ! Pressure difference across the component
END TYPE DisSysCompCPDProp