| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| logical, | public | :: | is_PT | ||||
| logical, | public | :: | hugoniot_bc |
exact Rankine-Hugoniot relations at this boundary_PT |
|||
| type(signal_t), | public | :: | imposed_PorM | ||||
| type(signal_t), | public | :: | imposed_T | ||||
| type(FF_flux_port_t), | public, | pointer | :: | port | |||
| real(kind=dp), | public | :: | wave_time |
Minimum time for wave propagation |
type boundary_t logical :: is_PT logical :: hugoniot_bc !! exact Rankine-Hugoniot relations at this boundary_PT type(signal_t) :: imposed_PorM, imposed_T type(FF_flux_port_t), pointer :: port real(dp) :: wave_time !! Minimum time for wave propagation end type boundary_t