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

Added more arrays to free_memory subroutine.

Browse source
This commit is contained in:
Paul Romano 2012-02-20 11:15:59 -05:00
parent 0f79eb83d1
commit 0072e6ebd6
2 changed files with 16 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

20
src/global.F90
View file

@ -215,29 +215,39 @@ module global
contains
!===============================================================================
! FREE_MEMORY deallocates all allocatable arrays in the program, namely the
! cells, surfaces, materials, and sources
! FREE_MEMORY deallocates all global allocatable arrays in the program
!===============================================================================
subroutine free_memory()
! Deallocate cells, surfaces, materials
if (allocated(cells)) deallocate(cells)
if (allocated(universes)) deallocate(universes)
if (allocated(lattices)) deallocate(lattices)
if (allocated(surfaces)) deallocate(surfaces)
if (allocated(materials)) deallocate(materials)
if (allocated(lattices)) deallocate(lattices)
! Deallocate cross section data and listings
! Deallocate cross section data, listings, and cache
if (allocated(nuclides)) deallocate(nuclides)
if (allocated(sab_tables)) deallocate(sab_tables)
if (allocated(xs_listings)) deallocate(xs_listings)
if (allocated(micro_xs)) deallocate(micro_xs)
! Deallocate tally-related arrays
if (allocated(meshes)) deallocate(meshes)
if (allocated(tallies)) deallocate(tallies)
if (allocated(analog_tallies)) deallocate(analog_tallies)
if (allocated(tracklength_tallies)) deallocate(tracklength_tallies)
if (allocated(current_tallies)) deallocate(current_tallies)
if (allocated(tally_maps)) deallocate(tally_maps)
! Deallocate energy grid
if (allocated(e_grid)) deallocate(e_grid)
! Deallocate fission and source bank
! Deallocate fission and source bank and entropy
if (allocated(fission_bank)) deallocate(fission_bank)
if (allocated(source_bank)) deallocate(source_bank)
if (allocated(entropy_p)) deallocate(entropy_p)
end subroutine free_memory

2
src/intercycle.F90
View file

@ -78,7 +78,7 @@ contains
! runs enough particles to avoid this in the first place.
if (n_bank == 0) then
message = "No fission sites banked on procesor " // to_str(rank)
message = "No fission sites banked on processor " // to_str(rank)
call fatal_error()
end if