make sure kernels is turned on

Author: pletzer

upwind/fortran/upwindF08Gpu.F90

@@ -162,7 +162,8 @@ subroutine upwind_advect(this, deltaTime)
         enddo
 
 #if defined(HAVE_OPENACC)
-    #if defined(USE_OPENACC_KERNELS)
+    #if defined(HAVE_OPENACC_KERNELS)
+        #warning "Using OpenACC kernels directive"
         !$acc kernels
     #else
         !$acc parallel loop
@@ -175,7 +176,7 @@ subroutine upwind_advect(this, deltaTime)
             oldF(i) = fptr(i)
         enddo
 #if defined(HAVE_OPENACC)
-    #if defined(USE_OPENACC_KERNELS)
+    #if defined(HAVE_OPENACC_KERNELS)
         !$acc end kernels
     #else
         !$acc end parallel loop
@@ -187,7 +188,8 @@ subroutine upwind_advect(this, deltaTime)
 
         ! iterate over the cells
 #if defined(HAVE_OPENACC)
-    #if defined(USE_OPENACC_KERNELS)
+    #if defined(HAVE_OPENACC_KERNELS)
+        #warning "Using OpenACC kernels directive"
         !$acc kernels
     #else
         !$acc parallel loop private(inds, j, oldIndex, upI)
@@ -227,7 +229,7 @@ subroutine upwind_advect(this, deltaTime)
             enddo
         enddo
 #if defined(HAVE_OPENACC)
-    #if defined(USE_OPENACC_KERNELS)
+    #if defined(HAVE_OPENACC_KERNELS)
         !$acc end kernels
     #else
         !$acc end parallel loop