diff --git a/src/output.F90 b/src/output.F90 index 3b0e2c7835..579735007e 100644 --- a/src/output.F90 +++ b/src/output.F90 @@ -1035,7 +1035,7 @@ contains ! Left Surface matching_bins(i_filter_mesh) = & mesh_indices_to_bin(m, (/ i, j, k /)) - matching_bins(i_filter_surf) = OUT_RIGHT + matching_bins(i_filter_surf) = OUT_LEFT filter_index = sum((matching_bins(1:size(t % filters)) - 1) & * t % stride) + 1 write(UNIT=unit_tally, FMT='(5X,A,T35,A,"+/- ",A)') &