From 534a8a999e07db29ec40e58950ae8bd552b34c53 Mon Sep 17 00:00:00 2001 From: Spencer Bryngelson Date: Tue, 8 Jul 2025 10:02:09 -0400 Subject: [PATCH] kernels fix --- src/simulation/m_data_output.fpp | 14 +++++++------- src/simulation/m_time_steppers.fpp | 6 +++--- 2 files changed, 10 insertions(+), 10 deletions(-) diff --git a/src/simulation/m_data_output.fpp b/src/simulation/m_data_output.fpp index f233bb5374..87a59c8866 100644 --- a/src/simulation/m_data_output.fpp +++ b/src/simulation/m_data_output.fpp @@ -316,14 +316,14 @@ contains Rc_min_loc = minval(Rc_sf) end if #else - #:call GPU_PARALLEL() - icfl_max_loc = maxval(icfl_sf) - #:endcall GPU_PARALLEL + !$acc kernels + icfl_max_loc = maxval(icfl_sf) + !$acc end kernels if (viscous) then - #:call GPU_PARALLEL() - vcfl_max_loc = maxval(vcfl_sf) - Rc_min_loc = minval(Rc_sf) - #:endcall GPU_PARALLEL + !$acc kernels + vcfl_max_loc = maxval(vcfl_sf) + Rc_min_loc = minval(Rc_sf) + !$acc end kernels end if #endif diff --git a/src/simulation/m_time_steppers.fpp b/src/simulation/m_time_steppers.fpp index 381455be2b..761ebdd792 100644 --- a/src/simulation/m_time_steppers.fpp +++ b/src/simulation/m_time_steppers.fpp @@ -993,9 +993,9 @@ contains end do end do - #:call GPU_PARALLEL() - dt_local = minval(max_dt) - #:endcall GPU_PARALLEL + !$acc kernels + dt_local = minval(max_dt) + !$acc end kernels if (num_procs == 1) then dt = dt_local