From 24f163bd87a83a7a1a77be961f15b0dbab450c6f Mon Sep 17 00:00:00 2001 From: Spencer Bryngelson Date: Thu, 9 Apr 2026 14:37:37 -0400 Subject: [PATCH] Fix s_axis QBMM buffer reflection to branch on z_cc(l) < pi (#1357) --- src/common/m_boundary_common.fpp | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/src/common/m_boundary_common.fpp b/src/common/m_boundary_common.fpp index 903a1e07b7..2f4edc1ec4 100644 --- a/src/common/m_boundary_common.fpp +++ b/src/common/m_boundary_common.fpp @@ -717,8 +717,13 @@ contains do i = 1, nb do q = 1, nnode do j = 1, buff_size - pb_in(k, -j, l, q, i) = pb_in(k, j - 1, l - ((p + 1)/2), q, i) - mv_in(k, -j, l, q, i) = mv_in(k, j - 1, l - ((p + 1)/2), q, i) + if (z_cc(l) < pi) then + pb_in(k, -j, l, q, i) = pb_in(k, j - 1, l + ((p + 1)/2), q, i) + mv_in(k, -j, l, q, i) = mv_in(k, j - 1, l + ((p + 1)/2), q, i) + else + pb_in(k, -j, l, q, i) = pb_in(k, j - 1, l - ((p + 1)/2), q, i) + mv_in(k, -j, l, q, i) = mv_in(k, j - 1, l - ((p + 1)/2), q, i) + end if end do end do end do