From 216597aabd4e1c1bbc4a4a177278b37990590d36 Mon Sep 17 00:00:00 2001 From: Lukas Mosimann Date: Wed, 30 Oct 2024 02:04:23 -0700 Subject: [PATCH] use acc_init instead --- src/programs/ectrans-benchmark.F90 | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/programs/ectrans-benchmark.F90 b/src/programs/ectrans-benchmark.F90 index a939e9aeb..1aa4c0ff7 100644 --- a/src/programs/ectrans-benchmark.F90 +++ b/src/programs/ectrans-benchmark.F90 @@ -1069,6 +1069,7 @@ subroutine parsing_failed(message) subroutine get_command_line_arguments(nsmax, cgrid, iters, iters_warmup, nfld, nlev, lvordiv, lscders, luvders, & & luseflt, nopt_mem_tr, nproma, verbosity, ldump_values, lprint_norms, & & lmeminfo, nprtrv, nprtrw, ncheck) + use openacc integer, intent(inout) :: nsmax ! Spectral truncation character(len=16), intent(inout) :: cgrid ! Spectral truncation @@ -1096,7 +1097,7 @@ subroutine get_command_line_arguments(nsmax, cgrid, iters, iters_warmup, nfld, n integer :: iarg = 1 ! Argument index #ifdef _OPENACC - !$acc init + call acc_init(acc_get_device_type()) #endif do while (iarg <= command_argument_count())