diff --git a/Overlap/Tests/test_read_snapshot.f90 b/Overlap/Tests/test_read_snapshot.f90
index c8e4923a4e2d4943f4bf3ae2fa9cd7de12f71088..b7e1f74af8db882b397c198b8b9fc16966987a2f 100644
--- a/Overlap/Tests/test_read_snapshot.f90
+++ b/Overlap/Tests/test_read_snapshot.f90
@@ -6,7 +6,7 @@ program test_read_snapshot
   use jumble, only: get_command_arg_dyn, new_unit, read_opcol
   use shapelib_03, only: dbf_read_attribute_03
 
-  use config_graph_m, only: config_graph, copy
+  use config_graph_m, only: config_graph, copy, cyclone
   use derived_types, only: snapshot, shpc_slice_handler, shpc_slice_meta
   use read_grid_m, only: read_grid
   use read_snapshot_m, only: read_snapshot
@@ -49,7 +49,7 @@ program test_read_snapshot
   allocate(hshp(n_slices), ssm(n_slices))
 
   do i = 1, n_slices
-     call shpc_open(hshp(i), trim(shpc_dir), cyclone = .false., slice = i - 1, &
+     call shpc_open(hshp(i), trim(shpc_dir), cyclone, slice = i - 1, &
           pszaccess = "rb")
      call dbf_read_attribute_03(ssm(i)%d0, hshp(i)%extremum, &
           hshp(i)%extr_date, ishape = 0)