From 86d8e9649b870102a7573499f4a09ac41717be41 Mon Sep 17 00:00:00 2001
From: Lionel GUEZ <guez@lmd.ens.fr>
Date: Fri, 14 Oct 2022 20:25:46 +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 f96dcb50..d15f501f 100644
--- a/Overlap/Tests/test_overlap.f90
+++ b/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)
--
GitLab