small IBM bug fixes

Author: anshgupta1234

src/simulation/m_ibm.fpp

@@ -212,9 +212,7 @@ contains
 
             ! Calculate velocity of ghost cell
             if (gp%slip) then
-                norm = gp%ip_loc - physical_loc !
-                buf = sqrt(sum(norm**2))
-                norm = norm/buf
+                norm = levelset_norm%sf(j, k, l, patch_id)
                 vel_norm_IP = sum(vel_IP*norm)*norm
                 vel_g = vel_IP - vel_norm_IP
             else

src/simulation/m_start_up.fpp

@@ -664,7 +664,7 @@ contains
 
                         call MPI_FILE_SET_VIEW(ifile, disp, MPI_INTEGER, MPI_IO_IB_DATA%view, &
                                                'native', mpi_info_int, ierr)
-                        call MPI_FILE_READ(ifile, MPI_IO_IB_DATA%var%sf, data_size, &
+                        call MPI_FILE_READ(ifile, MPI_IO_IB_DATA%var%sf, data_size * num_ibs, &
                                            MPI_INTEGER, status, ierr)
 
                     else