Philippe 22/08/2024: fix: add missing deallocation of TBOXNCDIMS when freeing file ressources

7cc059ff · WAUTELET Philippe · 81c7ac2b · 7cc059ff
Commit 7cc059ff authored 8 months ago by WAUTELET Philippe
--- 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()