From 1c5f52e82584d0d7973839f28bfd98e68f99c4e4 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 | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/src/programs/ectrans-benchmark.F90 b/src/programs/ectrans-benchmark.F90 index a939e9aeb..8d619d290 100644 --- a/src/programs/ectrans-benchmark.F90 +++ b/src/programs/ectrans-benchmark.F90 @@ -1069,6 +1069,9 @@ 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) +#ifdef _OPENACC + use openacc +#endif integer, intent(inout) :: nsmax ! Spectral truncation character(len=16), intent(inout) :: cgrid ! Spectral truncation @@ -1096,7 +1099,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())