use acc_init instead

lukasm91 · Oct 30, 2024 · 216597a · 216597a
1 parent 01619b3
commit 216597a
Showing 1 changed file with 2 additions and 1 deletion.
diff --git 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())