Mirror the particle with z>0 with respect to the xy plane, to impose the equatorial-plane symmetry
FT 1.09.2021
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(inout) | :: | npart | |||
| double precision, | intent(inout), | DIMENSION(3,npart) | :: | pos | ||
| double precision, | intent(inout), | optional, | DIMENSION(npart) | :: | nu | |
| double precision, | intent(in), | optional | :: | com_star | ||
| logical, | intent(in), | optional | :: | verbose |
| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| integer, | private | :: | a | ||||
| integer, | private, | DIMENSION(:), ALLOCATABLE | :: | above_xy_plane_a | |||
| double precision, | private | :: | com_d | ||||
| double precision, | private | :: | com_x | ||||
| double precision, | private | :: | com_y | ||||
| double precision, | private | :: | com_z | ||||
| integer, | private | :: | npart_above_xy | ||||
| double precision, | private, | DIMENSION(:), ALLOCATABLE | :: | nu_below | |||
| double precision, | private, | DIMENSION(:,:), ALLOCATABLE | :: | pos_below |