From 81173f3d2b45aee33f7f3941a7539cad4376805b Mon Sep 17 00:00:00 2001
From: Lionel GUEZ <guez@lmd.ens.fr>
Date: Sat, 15 Oct 2022 00:09:00 +0200
Subject: [PATCH] Use variable cyclone of module `config_graph_m`
---
Overlap/Tests/test_read_snapshot.f90 | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/Overlap/Tests/test_read_snapshot.f90 b/Overlap/Tests/test_read_snapshot.f90
index c8e4923a..b7e1f74a 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)
--
GitLab