Added something that may fix the cray issue

Author: danieljvickers

src/common/m_compute_levelset.fpp

@@ -264,7 +264,7 @@ contains
 
         integer, intent(in) :: ib_patch_id
         real(wp) :: top_right(2), bottom_left(2)
-        real(wp) :: min_dist
+        real(wp) :: min_dist, initial_min_dist
         real(wp) :: side_dists(4)
 
         real(wp) :: length_x, length_y
@@ -286,9 +286,10 @@ contains
         top_right(2) = length_y/2
         bottom_left(1) = -length_x/2
         bottom_left(2) = -length_y/2
+        initial_min_dist = initial_distance_buffer
 
         $:GPU_PARALLEL_LOOP(private='[i,j,k,min_dist,idx,side_dists,xy_local,dist_vec]', copy='[levelset,levelset_norm]',&
-                  & copyin='[ib_patch_id,center,bottom_left,top_right,initial_distance_buffer,inverse_rotation,rotation]', collapse=2)
+                  & copyin='[ib_patch_id,center,bottom_left,top_right,initial_min_dist,inverse_rotation,rotation]', collapse=2)
         do i = 0, m
             do j = 0, n
                 xy_local = [x_cc(i) - center(1), y_cc(j) - center(2), 0._wp]
@@ -301,7 +302,7 @@ contains
                     side_dists(2) = top_right(1) - xy_local(1)
                     side_dists(3) = bottom_left(2) - xy_local(2)
                     side_dists(4) = top_right(2) - xy_local(2)
-                    min_dist = initial_distance_buffer
+                    min_dist = initial_min_dist
                     idx = 1
 
                     do k = 1, 4

src/simulation/m_data_output.fpp

@@ -1020,7 +1020,7 @@ contains
 
             call MPI_FILE_CLOSE(ifile, ierr)
 
-            !Writeib data
+            !Write ib data
             if (ib) then
                 write (file_loc, '(A)') 'ib.dat'
                 file_loc = trim(case_dir)//'/restart_data'//trim(mpiiofs)//trim(file_loc)

src/simulation/p_main.fpp

@@ -70,9 +70,6 @@ program p_main
 
     call nvtxEndRange ! INIT
 
-    ! save the data at t_step=0
-    ! call s_save_data(t_step, start, finish, io_time_avg, nt)
-
     call nvtxStartRange("SIMULATION-TIME-MARCH")
     ! Time-stepping Loop
     do