Allocation changes to try to satisfy Cray compiler issues

Author: danieljvickers

src/simulation/m_start_up.fpp

@@ -1208,13 +1208,13 @@ contains
 #ifdef MFC_MPI
         if (num_procs == 1) then
             ! single-rank: every patch is local; allocate to exact size and copy
-            allocate (patch_ib(num_gbl_ibs))
+            @:ALLOCATE(patch_ib(num_gbl_ibs))
             patch_ib(1:num_gbl_ibs) = patch_ib_gbl(1:num_gbl_ibs)
             deallocate (patch_ib_gbl)
         else
             ! multi-rank: carve out the local neighbourhood subset
             num_aware_ibs = min(num_local_ibs_max*(2*ib_neighborhood_radius + 1)**num_dims, num_ib_patches_max)
-            allocate (patch_ib(num_aware_ibs))
+            @:ALLOCATE(patch_ib(num_aware_ibs))
 
             num_local_ibs = 0
             num_ibs = 0
@@ -1240,12 +1240,11 @@ contains
         end if
 #else
         ! no-MPI: every patch is local; allocate to exact size and copy
-        allocate (patch_ib(num_gbl_ibs))
+        @:ALLOCATE(patch_ib(num_gbl_ibs))
         patch_ib(1:num_gbl_ibs) = patch_ib_gbl(1:num_gbl_ibs)
         deallocate (patch_ib_gbl)
 #endif
 
-        $:GPU_ENTER_DATA(create='[patch_ib]')
         @:ALLOCATE(ib_gbl_idx_lookup(1:num_gbl_ibs))
 
     end subroutine s_reduce_ib_patch_array