diff --git a/Tests/test_successive_overlap.f90 b/Tests/test_successive_overlap.f90 index a50f0af272338d4eb7fc9b1d76f4b04b388d2b7e..68aeb4f728933525aa4aeaeba4429e61889731cb 100644 --- a/Tests/test_successive_overlap.f90 +++ b/Tests/test_successive_overlap.f90 @@ -104,30 +104,15 @@ program test_successive_overlap print *, 'Created file "edgelist.csv".' print *, snapshot_1, ":" - print *, "Eddies for which delta_out == 1:" - - do i = 1, flow(1)%number_vis_extr - if (flow(1)%list_vis(i)%delta_out /= huge(0)) & - write(unit = *, fmt = "(i0, 1x)", advance = "no") i - end do - - print * print *, "Valid isolated eddies:" do i = 1, flow(1)%number_vis_extr if (flow(1)%list_vis(i)%valid .and. flow(1)%list_vis(i)%delta_out & == huge(0)) write(unit = *, fmt = "(i0, 1x)", advance = "no") i end do - print * - print *, Snapshot_2, ":" - print *, "Eddies for which delta_in == 1:" - - do i = 1, flow(2)%number_vis_extr - if (flow(2)%list_vis(i)%delta_in /= huge(0)) & - write(unit = *, fmt = "(i0, 1x)", advance = "no") i - end do print * + print *, Snapshot_2, ":" print *, "Valid isolated eddies:" do i = 1, flow(2)%number_vis_extr diff --git a/candidate_overlap.f90 b/candidate_overlap.f90 index ec33a98549eb24e6cd6eb28d31eecfe840244f2a..950601a282bc6c62b93ceca21a27266b37b306a5 100644 --- a/candidate_overlap.f90 +++ b/candidate_overlap.f90 @@ -18,7 +18,8 @@ contains ! extremum. 0 at other points. type(eddy), intent(in):: list_vis(:) - ! Visible eddies at a given date. We need components ? to be defined. + ! Visible eddies at a given date. We need components valid and + ! cyclone to be defined. logical, intent(in):: cyclone ! cyclonicity of the target extremum