From 7cc059ff85a1c95570ad5076425ba8c97c7805ee Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Thu, 22 Aug 2024 16:11:33 +0200
Subject: [PATCH] Philippe 22/08/2024: fix: add missing deallocation of
 TBOXNCDIMS when freeing file ressources

---
 src/LIB/SURCOUCHE/src/mode_io_manage_struct.f90 | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/LIB/SURCOUCHE/src/mode_io_manage_struct.f90 b/src/LIB/SURCOUCHE/src/mode_io_manage_struct.f90
index 2b63ec0cf..535d72c33 100644
--- a/src/LIB/SURCOUCHE/src/mode_io_manage_struct.f90
+++ b/src/LIB/SURCOUCHE/src/mode_io_manage_struct.f90
@@ -1776,6 +1776,7 @@ RECURSIVE SUBROUTINE IO_File_remove_from_list( TPFILE )
 #endif
 
   ! Free file ressources
+  IF ( ASSOCIATED(TPFILE%TBOXNCDIMS) ) DEALLOCATE( TPFILE%TBOXNCDIMS )
   DEALLOCATE( TPFILE )
   TPFILE => NULL()
 
-- 
GitLab