crp/OpenMC
1
0
Fork 0
mirror of https://github.com/openmc-dev/openmc.git synced 2026-07-27 13:45:36 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fixed plotting memory leak and added rxnplot flag

Browse source
This commit is contained in:
nhorelik 2013-05-05 18:51:22 -04:00
parent f51532f5da
commit e950c52067
1 changed files with 12 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

13
src/global.F90
View file

@ -249,6 +249,9 @@ module global
! Mode to run in (fixed source, eigenvalue, plotting, etc)
integer :: run_mode = NONE
! Flag for reaction rate plotting
logical :: rxn_plots = .false.
! Restart run
logical :: restart_run = .false.
@ -391,8 +394,16 @@ contains
if (allocated(lattices)) deallocate(lattices)
if (allocated(surfaces)) deallocate(surfaces)
if (allocated(materials)) deallocate(materials)
if (allocated(plots)) deallocate(plots)
! Deallocate plots
if (allocated(plots)) then
do i = 1, size(plots)
if allocated(plots(i) % colors) deallocate(plots(i) % colors)
if allocated(plots(i) % rxncnt) deallocate(plots(i) % rxncnt)
end do
deallocate(plots)
end if
! Deallocate cross section data, listings, and cache
if (allocated(nuclides)) then
! First call the clear routines