From 17987251c131472e719de654b813d90166eee9a2 Mon Sep 17 00:00:00 2001 From: Kyle Klenk <kyle.c.klenk@gmail.com> Date: Tue, 24 May 2022 11:35:13 -0600 Subject: [PATCH] fixed allocation error --- build/source/interface/file_access_actor/cppwrap_fileAccess.f90 | 2 ++ 1 file changed, 2 insertions(+) diff --git a/build/source/interface/file_access_actor/cppwrap_fileAccess.f90 b/build/source/interface/file_access_actor/cppwrap_fileAccess.f90 index 18f6d2e..74ee288 100644 --- a/build/source/interface/file_access_actor/cppwrap_fileAccess.f90 +++ b/build/source/interface/file_access_actor/cppwrap_fileAccess.f90 @@ -411,6 +411,7 @@ subroutine FileAccessActor_DeallocateStructures(handle_forcFileInfo, handle_ncid USE globalData,only:structInfo ! information on the data structures USE globalData,only:vecTime USE globalData,only:outputTimeStep + USE globalData,only:failedHRUs USE summaActors_deallocateOuptutStruct,only:deallocateOutputStruc implicit none type(c_ptr),intent(in), value :: handle_forcFileInfo @@ -452,6 +453,7 @@ subroutine FileAccessActor_DeallocateStructures(handle_forcFileInfo, handle_ncid deallocate(outputStructure) deallocate(outputTimeStep) deallocate(ncid) + deallocate(failedHRUs) if(allocated(vecTime)) then; deallocate(vecTime); endif end subroutine FileAccessActor_DeallocateStructures -- GitLab