| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| integer(kind=ip), | public | :: | nradii | The number of radii the observer should observe at. |
|||
| integer(kind=ip), | public | :: | ioo_id | The file unit number this observer should use for output. |
|||
| character(len=:), | public, | allocatable | :: | vname | The name of the observer. |
||
| real(kind=wp), | public, | dimension(:), allocatable | :: | radii | A 1d-array containing the radii that the observer should observe at. On allocation the size is nradii. |
||
| integer(kind=ip), | public, | dimension(:), allocatable | :: | elem_index | A 1d-array containing the index of all the elements that contains radii. |
||
| integer(kind=ip), | public, | dimension(:), allocatable | :: | node_index | A 1d-array containing the node index within all the elements that contains radii. |
||
| integer(kind=ip), | public | :: | nl | ||||
| real(kind=wp), | public, | dimension(:,:), allocatable | :: | psi | |||
| real(kind=wp), | public, | dimension(:,:,:), allocatable | :: | dpsidt | |||
| real(kind=wp), | public, | dimension(:,:,:), allocatable | :: | dpsidr | |||
| class(eff_source), | public, | pointer | :: | p |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(sing_observer), | intent(inout) | :: | this | |||
| real(kind=wp), | intent(in), | dimension(:) | :: | rad | ||
| type(rgf), | intent(in) | :: | coord | |||
| class(*), | intent(in), | target | :: | object |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(sing_observer), | intent(inout) | :: | this |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(sing_observer), | intent(inout) | :: | this |
type, extends(observer) :: sing_observer
integer(ip) :: nl
real(wp), dimension(:,:), allocatable :: psi
real(wp), dimension(:,:,:), allocatable :: dpsidt, dpsidr
class(eff_source), pointer :: p
contains
procedure :: init => sobs_init
procedure :: extract => sobs_extract
procedure :: output => sobs_output
final :: close_sing_observer
end type sing_observer