From 3a60973261adb4f2c1cac1d0e8d0528f3652f334 Mon Sep 17 00:00:00 2001 From: Lionel GUEZ <guez@lmd.ens.fr> Date: Tue, 4 Apr 2023 18:22:14 +0200 Subject: [PATCH] Polish --- Overlap/Tests/test_overlap.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Overlap/Tests/test_overlap.f90 b/Overlap/Tests/test_overlap.f90 index f64273c7..ddc3d734 100644 --- a/Overlap/Tests/test_overlap.f90 +++ b/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) -- GitLab