Compute, store and print the \(\mathrm{BSSNOK}\) constraints to a formatted file. The computaton is done mapping the physical metric from the gravity to the particles, computing e stress-energy tensor on the particles, and mapping it to the gravity grid.
FT 1.02.2021
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(bssn), | intent(inout), | TARGET | :: | this |
bssn object to which this PROCEDURE is bound |
|
| class(particles), | intent(inout) | :: | parts_obj |
particles object used to map the hydrodynamical \(\mathrm{ID}\) to the mesh |
||
| character(len=*), | intent(inout) | :: | namefile | |||
| character(len=*), | intent(inout) | :: | name_logfile | |||
| double precision, | intent(in), | optional, | DIMENSION(:,:,:,:), TARGET | :: | points |
| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| integer, | private | :: | a | ||||
| integer, | private | :: | allocation_status | ||||
| integer, | private, | SAVE | :: | counter | = | 1 | |
| logical, | private, | parameter | :: | debug | = | .FALSE. | |
| logical, | private | :: | exist | ||||
| character(len=:), | private, | ALLOCATABLE | :: | finalname_logfile | |||
| integer, | private | :: | i | ||||
| integer, | private, | DIMENSION(3) | :: | imax | |||
| integer, | private, | DIMENSION(3) | :: | imin | |||
| integer, | private | :: | j | ||||
| integer, | private | :: | k | ||||
| integer, | private | :: | l | ||||
| double precision, | private | :: | min_abs_y | ||||
| double precision, | private | :: | min_abs_z | ||||
| character(len=2), | private | :: | n_reflev | ||||
| character(len=:), | private, | ALLOCATABLE | :: | name_analysis | |||
| character(len=:), | private, | ALLOCATABLE | :: | name_constraint | |||
| double precision, | private, | DIMENSION(:), ALLOCATABLE | :: | nlrf_loc | |||
| double precision, | private, | DIMENSION(:), ALLOCATABLE | :: | nu_loc | |||
| integer, | private | :: | nx | ||||
| integer, | private | :: | ny | ||||
| integer, | private | :: | nz | ||||
| double precision, | private, | DIMENSION(:,:), ALLOCATABLE | :: | pos_loc | |||
| double precision, | private, | DIMENSION(:), ALLOCATABLE | :: | pressure_loc | |||
| double precision, | private, | DIMENSION(:,:,:), POINTER | :: | pts_x | |||
| double precision, | private, | DIMENSION(:,:,:), POINTER | :: | pts_y | |||
| double precision, | private, | DIMENSION(:,:,:), POINTER | :: | pts_z | |||
| double precision, | private, | DIMENSION(:), ALLOCATABLE | :: | sph_density | |||
| double precision, | private, | DIMENSION(:), ALLOCATABLE | :: | theta_loc | |||
| character(len=2), | private | :: | tpo_id | ||||
| double precision, | private, | DIMENSION(:), ALLOCATABLE | :: | u_loc | |||
| integer, | private | :: | unit_logfile | ||||
| double precision, | private, | DIMENSION(:,:), ALLOCATABLE | :: | vel_loc |