From c95f8197c82159a501321c5e6ddb2d28e7f1c2fe Mon Sep 17 00:00:00 2001
From: Lionel GUEZ <guez@lmd.ens.fr>
Date: Tue, 3 Jan 2023 15:07:25 +0100
Subject: [PATCH] Bug fix: write to `ishape_last.txt`
---
Overlap/Tests/test_read_eddy.f90 | 1 +
1 file changed, 1 insertion(+)
diff --git a/Overlap/Tests/test_read_eddy.f90 b/Overlap/Tests/test_read_eddy.f90
index 15bfba8b..fe234e3a 100644
--- a/Overlap/Tests/test_read_eddy.f90
+++ b/Overlap/Tests/test_read_eddy.f90
@@ -31,6 +31,7 @@ program test_read_eddy
slice = 0, grid_lon_lat = .true.)
CALL shpc_close(hshp_in)
call write_eddy(e, hshp_out, k, eddy_i)
+ write(hshp_out%unit, fmt = *) 0
CALL shpc_close(hshp_out)
print *, 'Created shapefiles in SHPC.'
--
GitLab