================================================== Contains information that can be provided by the user about the projections ==================================================
| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| integer, | public | :: | l | ||||
| integer, | public | :: | m | ||||
| integer, | public | :: | s | ||||
| integer, | public | :: | radial | = | 1 | ||
| real(kind=dp), | public | :: | site(3) | ||||
| real(kind=dp), | public | :: | s_qaxis(3) | = | (/0.0_dp, 0.0_dp, 1.0_dp/) | ||
| real(kind=dp), | public | :: | z(3) | = | (/0.0_dp, 0.0_dp, 1.0_dp/) | ||
| real(kind=dp), | public | :: | x(3) | = | (/1.0_dp, 0.0_dp, 0.0_dp/) | ||
| real(kind=dp), | public | :: | zona | = | 1.0_dp |
type proj_type !!================================================== !! Contains information that can be provided by the user about the projections !!================================================== ! REVIEW_2021-07-22: site(:,:) has dual usage: for projections and for guiding centres. ! REVIEW_2021-07-22: Make a new type for guiding centres that only contains sites. ! REVIEW_2021-07-22: In the future this can be logically distinct from the projection sites. ! REVIEW_2021-07-22: For now, when defining proj_input_type, also define sites inside the ! REVIEW_2021-07-22: new guiding centres type. ! regarding defaults: specific flow in readwrite means all values are assigned anyway ! using defaults here requires restructuring get_projections() (readwrite.F90) ! site, l, m don't have reasonable defaults integer :: l, m, s integer :: radial = 1 real(kind=dp) :: site(3) real(kind=dp) :: s_qaxis(3) = (/0.0_dp, 0.0_dp, 1.0_dp/) real(kind=dp) :: z(3) = (/0.0_dp, 0.0_dp, 1.0_dp/) real(kind=dp) :: x(3) = (/1.0_dp, 0.0_dp, 0.0_dp/) real(kind=dp) :: zona = 1.0_dp end type proj_type