Polish

Overlap/Tests/test_overlap.f90

@@ -37,7 +37,6 @@ program test_overlap
   read(unit = *, nml = main_nml)
   write(unit = *, nml = main_nml)
 
-  allocate(flow(max_delta + 1))
   call shpc_open(hshp, trim(shpc_dir), cyclone, slice = 0, pszaccess = "rb")
   call dbf_read_attribute_03(ssm%d0, hshp%extremum, hshp%extr_date, ishape = 0)
   call read_opcol(ssm%ishape_last, hshp%unit, my_lbound = ssm%d0)
@@ -49,6 +48,7 @@ program test_overlap
   open(unit, file = "e_overestim.txt", status = "replace", action = "write")
   write(unit, fmt = *) e_overestim
   close(unit)
+  allocate(flow(max_delta + 1))
   call read_snapshot(flow(1), [hshp], [ssm], k_test_1, copy)
   call read_snapshot(flow(max_delta + 1), [hshp], [ssm], k_test_2, copy)
   CALL shpc_close(hshp)