fixed mesh indexing error in trigger.F90

This commit is contained in:
Sam Shaner 2016-08-05 10:03:26 -04:00
parent 65eca3d841
commit ad9fe27d26

View file

@ -329,7 +329,7 @@ contains
end if
matching_bins(i_filter_mesh) = &
mesh_indices_to_bin(m, (/ i, j, k /) + 1)
mesh_indices_to_bin(m, (/ i, j, k /))
! Left Surface
matching_bins(i_filter_surf) = OUT_LEFT