diff --git a/src/LIB/SURCOUCHE/src/mode_io_manage_struct.f90 b/src/LIB/SURCOUCHE/src/mode_io_manage_struct.f90
index 2b63ec0cfbd07f074e514b0e2cc7ce9c50156588..535d72c33e146eec7266f8c0935bebd871661175 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()