照射実験の壁・周期軸・下端モデル。汎用 kernel はこの型へ依存しない。
| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| integer(kind=i32), | public, | parameter | :: | irradiation_cell_ok | = | 0_i32 | |
| integer(kind=i32), | public, | parameter | :: | irradiation_cell_invalid | = | 1_i32 |
| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| integer(kind=i32), | public | :: | wall_face | = | 6_i32 | ||
| integer(kind=i32), | public | :: | wall_axis | = | 3_i32 | ||
| integer(kind=i32), | public | :: | outward_normal_sign | = | 1_i32 | ||
| real(kind=dp), | public | :: | wall_position | = | 0.0_dp | ||
| logical, | public | :: | periodic_axes(3) | = | .false. | ||
| character(len=32), | public | :: | lower_boundary_model | = | 'not_applicable' |
| procedure, public :: wall_face_bit | |
| procedure, public :: outward_normal_velocity | |
| procedure, public :: crosses_wall_outward | |
| procedure, public :: wall_coordinate | |
| procedure, public :: wall_face_name | |
| procedure, public :: wall_area | |
| procedure, public :: wall_tangents_periodic |
preflight 済み設定から run に不変な前提を一度解決する。free-space 参照構成も保持する。
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| type(app_config), | intent(in) | :: | app | |||
| type(irradiation_cell_contract_type), | intent(out) | :: | contract | |||
| integer(kind=i32), | intent(out) | :: | status | |||
| character(len=*), | intent(out) | :: | message |