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