Added some additional declares to imrpove cray compiler support

:

Author: danieljvickers

src/common/m_ib_patches.fpp

@@ -31,26 +31,32 @@ module m_ib_patches
 
     real(wp) :: x_centroid, y_centroid, z_centroid
     real(wp) :: length_x, length_y, length_z
+    $:GPU_DECLARE(create='[x_centroid, y_centroid, z_centroid]')
+    $:GPU_DECLARE(create='[length_x, length_y, length_z]')
 
     integer :: smooth_patch_id
-    real(wp) :: smooth_coeff !<
+    real(wp) :: smooth_coeff
+    $:GPU_DECLARE(create='[smooth_patch_id, smooth_coeff]')
     !! These variables are analogous in both meaning and use to the similarly
     !! named components in the ic_patch_parameters type (see m_derived_types.f90
     !! for additional details). They are employed as a means to more concisely
     !! perform the actions necessary to lay out a particular patch on the grid.
 
-    real(wp) :: eta !<
+    real(wp) :: eta
+    $:GPU_DECLARE(create='[eta]')
     !! In the case that smoothing of patch boundaries is enabled and the boundary
     !! between two adjacent patches is to be smeared out, this variable's purpose
     !! is to act as a pseudo volume fraction to indicate the contribution of each
     !! patch toward the composition of a cell's fluid state.
 
     real(wp) :: cart_x, cart_y, cart_z
     real(wp) :: sph_phi !<
+    $:GPU_DECLARE(create='[cart_x, cart_y, cart_z, sph_phi]')
     !! Variables to be used to hold cell locations in Cartesian coordinates if
     !! 3D simulation is using cylindrical coordinates
 
-    type(bounds_info) :: x_boundary, y_boundary, z_boundary  !<
+    type(bounds_info) :: x_boundary, y_boundary, z_boundary
+    $:GPU_DECLARE(create='[x_boundary, y_boundary, z_boundary]')
     !! These variables combine the centroid and length parameters associated with
     !! a particular patch to yield the locations of the patch boundaries in the
     !! x-, y- and z-coordinate directions. They are used as a means to concisely