From 5ccc7844d7f101a9b298a77d3b249f9fee306ed1 Mon Sep 17 00:00:00 2001 From: Paul Romano Date: Thu, 21 Mar 2013 15:30:03 -0400 Subject: [PATCH] Fix bug in reassignment of bins for mesh filter. --- src/initialize.F90 | 10 ++-------- 1 file changed, 2 insertions(+), 8 deletions(-) diff --git a/src/initialize.F90 b/src/initialize.F90 index 869c63ac06..944f842745 100644 --- a/src/initialize.F90 +++ b/src/initialize.F90 @@ -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