PR change requests

Author: wilfonba

src/common/m_boundary_common.fpp

@@ -1470,9 +1470,9 @@ contains
 
         integer :: j, k, l
 
-        !$acc kernels
-        jac_sf(1)%sf => jac
-        !$acc end kernels
+        #:call GPU_PARALLEL()
+            jac_sf(1)%sf => jac
+        #:endcall GPU_PARALLEL
 
         if (bc_x%beg >= 0) then
             call s_mpi_sendrecv_variables_buffers(jac_sf, 1, -1, 1)

src/simulation/m_igr.fpp

@@ -163,7 +163,9 @@ contains
     end subroutine s_initialize_igr_module
 
     subroutine s_igr_iterative_solve(q_cons_vf, bc_type, t_step)
+#ifdef _CRAYFTN
         !DIR$ OPTIMIZE (-haggress)
+#endif
         type(scalar_field), dimension(sys_size), intent(inout) :: q_cons_vf
         type(integer_field), dimension(1:num_dims, -1:1), intent(in) :: bc_type
         integer, intent(in) :: t_step
@@ -261,7 +263,9 @@ contains
     end subroutine s_igr_iterative_solve
 
     subroutine s_igr_sigma_x(q_cons_vf, rhs_vf)
+#ifdef _CRAYFTN
         !DIR$ OPTIMIZE (-haggress)
+#endif
         type(scalar_field), &
             dimension(sys_size), &
             intent(inout) :: rhs_vf
@@ -328,7 +332,9 @@ contains
     end subroutine s_igr_sigma_x
 
     subroutine s_igr_riemann_solver(q_cons_vf, rhs_vf, idir)
+#ifdef _CRAYFTN
         !DIR$ OPTIMIZE (-haggress)
+#endif
         type(scalar_field), &
             dimension(sys_size), &
             intent(inout) :: rhs_vf