From ec0fdc1db6b0e9ae3826c13d9ee1bd338ad6fea1 Mon Sep 17 00:00:00 2001
From: Lionel GUEZ <guez@lmd.ens.fr>
Date: Wed, 27 Jul 2022 10:09:31 +0200
Subject: [PATCH] Polish

---
 Overlap/Tests/test_read_eddy.f90 | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/Overlap/Tests/test_read_eddy.f90 b/Overlap/Tests/test_read_eddy.f90
index 7e6bd7fa..071aa8f7 100644
--- a/Overlap/Tests/test_read_eddy.f90
+++ b/Overlap/Tests/test_read_eddy.f90
@@ -26,9 +26,8 @@ program test_read_eddy
   read(unit = *, nml = main_nml)
   call shpc_open(hshp_in, shpc_dir, pszaccess = "rb")
   call read_eddy(e, k, eddy_i, hshp_in, ishape)
-  CALL shpc_close(hshp_in)
-
   call shpc_create(hshp_out, shpc_dir = "SHPC", cyclone = hshp_in%cyclone)
+  CALL shpc_close(hshp_in)
   call write_eddy(e, hshp_out, k, eddy_i)
   CALL shpc_close(hshp_out)
   print *, 'Created shapefiles in SHPC.'
-- 
GitLab