Remove dummy argument of `dispatch_snapshot`

Remove dummy argument `max_delta` of procedure `dispatch_snapshot`,
use module variable instead.

Overlap/dispatch_snapshot.f90

@@ -4,8 +4,9 @@ module dispatch_snapshot_m
 
 contains
 
-  subroutine dispatch_snapshot(s, unit_isolated, rank, k_begin, max_delta, k)
+  subroutine dispatch_snapshot(s, unit_isolated, rank, k_begin, k)
 
+    use config_graph_m, only: max_delta
     use derived_types, only: snapshot
     use send_snapshot_m, only: send_snapshot
 
@@ -14,7 +15,7 @@ contains
     integer, intent(in):: unit_isolated
     ! logical unit for file isolated_nodes_$rank.csv
 
-    integer, intent(in):: rank, k_begin, max_delta
+    integer, intent(in):: rank, k_begin
     integer, intent(in):: k ! date index
 
     ! Local:

Overlap/eddy_graph.f90

@@ -140,7 +140,7 @@ program eddy_graph
   ! 3. Main loop
 
   do k = k_begin + max_delta + 1, k_end_main_loop
-     call dispatch_snapshot(flow(1), unit_isolated, rank, k_begin, max_delta, &
+     call dispatch_snapshot(flow(1), unit_isolated, rank, k_begin, &
           k = k - max_delta - 1)
      flow(:max_delta) = flow(2:)
      call get_snapshot(flow(max_delta + 1), hshpc, ssm, k, k_end, rank, n_proc)
@@ -154,7 +154,7 @@ program eddy_graph
 
   do k = k_end_main_loop + 1, k_end
      ! {rank < n_proc - 1 and k >= k_end - max_delta + 2}
-     call dispatch_snapshot(flow(1), unit_isolated, rank, k_begin, max_delta, &
+     call dispatch_snapshot(flow(1), unit_isolated, rank, k_begin, &
           k = k - max_delta - 1)
      flow(:max_delta) = flow(2:)
      call get_snapshot(flow(max_delta + 1), hshpc, ssm, k, k_end, rank, n_proc)
@@ -167,7 +167,7 @@ program eddy_graph
   end do
 
   do j = 1, max_delta + 1
-     call dispatch_snapshot(flow(j), unit_isolated, rank, k_begin, max_delta, &
+     call dispatch_snapshot(flow(j), unit_isolated, rank, k_begin, &
           k = k_end - max_delta - 1 + j)
   end do