Skip to content
Snippets Groups Projects
Commit 757bad90 authored by Lionel GUEZ's avatar Lionel GUEZ
Browse files

Polish

parent 53a93fa8
No related branches found
No related tags found
No related merge requests found
...@@ -59,7 +59,8 @@ ...@@ -59,7 +59,8 @@
] ]
}, },
{ {
"stdin_filename": "$src_dir/Overlap/Tests/Input/successive_overlap_in.txt", "stdin_filename":
"$src_dir/Overlap/Tests/Input/successive_overlap_in.txt",
"description": "Overlap of a snapshot with itself.", "description": "Overlap of a snapshot with itself.",
"title": "Successive_overlap", "title": "Successive_overlap",
"stdout": "test_overlap_stdout.txt", "stdout": "test_overlap_stdout.txt",
......
...@@ -49,7 +49,7 @@ program test_overlap ...@@ -49,7 +49,7 @@ program test_overlap
call mpi_init call mpi_init
call MPI_Comm_rank(MPI_Comm_world, rank) call MPI_Comm_rank(MPI_Comm_world, rank)
call mpi_comm_size(mpi_comm_world, n_proc) call mpi_comm_size(mpi_comm_world, n_proc)
if (n_proc /= 1) then if (n_proc /= 1) then
if (rank == 0) print *, "test_overlap: 1 process only" if (rank == 0) print *, "test_overlap: 1 process only"
call mpi_abort(MPI_Comm_world, errorcode = 1) call mpi_abort(MPI_Comm_world, errorcode = 1)
...@@ -73,7 +73,7 @@ program test_overlap ...@@ -73,7 +73,7 @@ program test_overlap
if (periodic) call assert(2 * dist_lim * step_deg(1) < 180., & if (periodic) call assert(2 * dist_lim * step_deg(1) < 180., &
"test_overlap dist_lim") "test_overlap dist_lim")
copy = merge(dist_lim, 0, periodic) copy = merge(dist_lim, 0, periodic)
corner = corner_deg * deg_to_rad corner = corner_deg * deg_to_rad
step = step_deg * deg_to_rad step = step_deg * deg_to_rad
allocate(flow(max_delta + 1)) allocate(flow(max_delta + 1))
...@@ -121,7 +121,7 @@ program test_overlap ...@@ -121,7 +121,7 @@ program test_overlap
.and. flow(max_delta + 1)%list_vis(i)%delta_in == huge(0)) & .and. flow(max_delta + 1)%list_vis(i)%delta_in == huge(0)) &
write(unit = *, fmt = "(i0, 1x)", advance = "no") i write(unit = *, fmt = "(i0, 1x)", advance = "no") i
end do end do
print * print *
call mpi_finalize call mpi_finalize
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment