Addressed AI comment

Author: danieljvickers

src/post_process/m_start_up.fpp

@@ -41,7 +41,6 @@ module m_start_up
     complex(c_double_complex), allocatable  :: data_cmplx(:,:,:), data_cmplx_y(:,:,:), data_cmplx_z(:,:,:)
     real(wp), allocatable, dimension(:,:,:) :: En_real
     real(wp), allocatable, dimension(:)     :: En
-    integer                                 :: num_procs_x, num_procs_y, num_procs_z
     integer                                 :: Nx, Ny, Nz, Nxloc, Nyloc, Nyloc2, Nzloc, Nf
     integer                                 :: ierr
     integer                                 :: MPI_COMM_CART, MPI_COMM_CART12, MPI_COMM_CART13

src/simulation/m_derived_variables.fpp

@@ -21,8 +21,6 @@ module m_derived_variables
     private; public :: s_initialize_derived_variables_module, s_initialize_derived_variables, s_compute_derived_variables, &
         & s_finalize_derived_variables_module
 
-    ! fd_coeff_x, fd_coeff_y, fd_coeff_z: declared in m_global_parameters so m_viscous can see them too
-
     ! @name Variables for computing acceleration
     !> @{
     real(wp), public, allocatable, dimension(:,:,:) :: accel_mag

src/simulation/m_ibm.fpp

@@ -954,9 +954,9 @@ contains
                         if (ib_idx > 0) then
                             ! get the vector pointing to the grid cell from the IB centroid
                             radial_vector(1) = x_cc(i) - (patch_ib(ib_idx)%x_centroid + real(xp, wp)*(x_domain%end - x_domain%beg))
-                            radial_vector(2) = y_cc(i) - (patch_ib(ib_idx)%y_centroid + real(yp, wp)*(y_domain%end - y_domain%beg))
+                            radial_vector(2) = y_cc(j) - (patch_ib(ib_idx)%y_centroid + real(yp, wp)*(y_domain%end - y_domain%beg))
                             radial_vector(3) = 0._wp
-                            if (num_dims == 3) radial_vector(3) = z_cc(i) - (patch_ib(ib_idx)%z_centroid + real(zp, &
+                            if (num_dims == 3) radial_vector(3) = z_cc(k) - (patch_ib(ib_idx)%z_centroid + real(zp, &
                                 & wp)*(z_domain%end - z_domain%beg))
 
                             local_force_contribution(:) = 0._wp