crp/OpenMC
1
0
Fork 0
mirror of https://github.com/openmc-dev/openmc.git synced 2026-07-28 14:15:42 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions 5

cmfd now deallocated with call to destructor

Browse source
This commit is contained in:
Bryan Herman 2012-01-27 20:30:23 -05:00
parent f95e33d404
commit 01eba53388
1 changed files with 1 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

16
src/global.F90
View file

@ -239,21 +239,7 @@ contains
if (allocated(source_bank)) deallocate(source_bank)
! Deallocate cmfd
if (allocated(cmfd % totalxs)) deallocate(cmfd % totalxs)
if (allocated(cmfd % p1scattxs)) deallocate(cmfd % p1scattxs)
if (allocated(cmfd % scattxs)) deallocate(cmfd % scattxs)
if (allocated(cmfd % nfissxs)) deallocate(cmfd % nfissxs)
if (allocated(cmfd % diffcof)) deallocate(cmfd % diffcof)
if (allocated(cmfd % current)) deallocate(cmfd % current)
if (allocated(cmfd % flux)) deallocate(cmfd % flux)
if (allocated(cmfd % dtilde)) deallocate(cmfd % dtilde)
if (allocated(cmfd % dhat)) deallocate(cmfd % dhat)
if (allocated(cmfd % hxyz)) deallocate(cmfd % hxyz)
if (allocated(cmfd % coremap)) deallocate(cmfd % coremap)
if (allocated(cmfd % phi)) deallocate(cmfd % phi)
if (allocated(cmfd % sourcepdf)) deallocate(cmfd % sourcepdf)
if (allocated(cmfd % sourcecounts)) deallocate(cmfd % sourcecounts)
if (allocated(cmfd % weightfactors)) deallocate(cmfd % weightfactors)
call deallocate_cmfd(cmfd)
end subroutine free_memory