Polish

Overlap/Tests/test_overlap.f90

@@ -30,7 +30,6 @@ program test_overlap
   !-------------------------------------------------------------------------
 
   call get_command_arg_dyn(1, shpc_dir, "Required argument: SHPC-directory")
-  call new_unit(unit)
   call read_grid(rank = 0, shpc_dir = shpc_dir)
   call config_graph(rank = 0)
 
@@ -48,6 +47,7 @@ program test_overlap
   call assert(ssm%d0 <= [k_test_1, k_test_2] .and. [k_test_1, k_test_2] &
        < ssm%d0 + n_dates, "test_overlap k_test_1, k_test_2")
   e_overestim = maxval([ssm%ishape_last(ssm%d0) + 1, ediff1d(ssm%ishape_last)])
+  call new_unit(unit)
   open(unit, file = "e_overestim.txt", status = "replace", action = "write")
   write(unit, fmt = *) e_overestim
   close(unit)