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

Fix bug in reassignment of bins for mesh filter.

Browse source
This commit is contained in:
Paul Romano 2013-03-21 15:30:03 -04:00
parent 49c36b2e95
commit 5ccc7844d7
1 changed files with 2 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/initialize.F90
View file

@ -582,14 +582,8 @@ contains
case (FILTER_MESH)
id = t % filters(j) % int_bins(1)
if (mesh_dict % has_key(id)) then
t % filters(j) % int_bins(1) = mesh_dict % get_key(id)
else
message = "Could not find mesh " // trim(to_str(id)) // &
" specified on tally " // trim(to_str(t % id))
call fatal_error()
end if
! The mesh filter already has been set to the index in meshes rather
! than the user-specified id, so it doesn't need to be changed.
end select