From 7c93c4aacc7133245f5e3c80870184980e9fcd01 Mon Sep 17 00:00:00 2001 From: Daniel J Vickers Date: Thu, 18 Jun 2026 11:46:45 -0400 Subject: [PATCH 1/2] Mark found a bug --- src/simulation/m_ibm.fpp | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/simulation/m_ibm.fpp b/src/simulation/m_ibm.fpp index 18eebf998e..811db7e54f 100644 --- a/src/simulation/m_ibm.fpp +++ b/src/simulation/m_ibm.fpp @@ -935,10 +935,10 @@ contains end do end if - $:GPU_PARALLEL_LOOP(private='[ib_idx, ib_idx_temp, encoded_ib_idx, fluid_idx, radial_vector, local_force_contribution, & - & cell_volume, local_torque_contribution, dynamic_viscosity, viscous_stress_div, & - & viscous_stress_div_1, viscous_stress_div_2, dx, dy, dz]', copy='[forces, torques]', & - & copyin='[dynamic_viscosities]', collapse=3) + $:GPU_PARALLEL_LOOP(private='[i, j, k, l, ib_idx, ib_idx_temp, encoded_ib_idx, fluid_idx, radial_vector, & + & local_force_contribution, cell_volume, local_torque_contribution, dynamic_viscosity, & + & viscous_stress_div, viscous_stress_div_1, viscous_stress_div_2, dx, dy, dz]', copy='[forces, & + & torques]', copyin='[dynamic_viscosities]', collapse=3) do i = 0, m do j = 0, n do k = 0, p From 5e2bccf53fb139b9f49b8baf6e5d0f081bea6ee9 Mon Sep 17 00:00:00 2001 From: Daniel J Vickers Date: Thu, 18 Jun 2026 14:11:22 -0400 Subject: [PATCH 2/2] Added missing GPU update so that the state files obtain the right values in GPU cases --- src/simulation/m_data_output.fpp | 2 ++ 1 file changed, 2 insertions(+) diff --git a/src/simulation/m_data_output.fpp b/src/simulation/m_data_output.fpp index 255e3a4dd3..a05b62d5a5 100644 --- a/src/simulation/m_data_output.fpp +++ b/src/simulation/m_data_output.fpp @@ -1062,6 +1062,8 @@ contains integer, intent(in) :: time_step + $:GPU_UPDATE(host='[patch_ib(1:num_ibs)]') + if (parallel_io) then call s_write_parallel_ib_state(time_step) else