kernels fix (#926)

Author: sbryngelson

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
 

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