From 49c3d97c45c081ec9fdde881c1e783af364dcd6b Mon Sep 17 00:00:00 2001 From: Bryan Herman Date: Thu, 8 May 2014 11:49:02 -0400 Subject: [PATCH] deallocate neutron balance res --- src/cmfd_header.F90 | 1 + 1 file changed, 1 insertion(+) diff --git a/src/cmfd_header.F90 b/src/cmfd_header.F90 index 3d7786ab8e..73bc0e0163 100644 --- a/src/cmfd_header.F90 +++ b/src/cmfd_header.F90 @@ -194,6 +194,7 @@ contains if (allocated(this % dom)) deallocate(this % dom) if (allocated(this % k_cmfd)) deallocate(this % k_cmfd) if (allocated(this % entropy)) deallocate(this % entropy) + if (allocated(this % resnb)) deallocate(this % resnb) end subroutine deallocate_cmfd