started fixing gpu errors

Author: Benjamin Wilfong

src/simulation/m_viscous.f90

@@ -21,7 +21,8 @@ module m_viscous
     s_finalize_viscous_module
 
     type(int_bounds_info) :: iv
-
+    type(int_bounds_info) :: is1, is2, is3
+ !$acc declare create(is1, is2, is3, iv)   
     real(kind(0d0)), allocatable, dimension(:) :: gammas, pi_infs
 !$acc declare create(gammas, pi_infs)
 
@@ -1282,7 +1283,6 @@ subroutine s_reconstruct_cell_boundary_values_visc(v_vf, vL_x_flat, vL_y_flat, v
 
         integer :: i, j, k, l
 
-        type(int_bounds_info) :: is1, is2, is3
         type(int_bounds_info) :: ix, iy, iz
         ! Reconstruction in s1-direction ===================================
 
@@ -1377,4 +1377,4 @@ subroutine s_finalize_viscous_module()
         allocate (Res(1:2, 1:maxval(Re_size)))
     end subroutine s_finalize_viscous_module
 
-end module m_viscous
+end module m_viscous