Remove dead MOK assignments in Lustre sequential read path

The file_per_process path uses MPI_FILE_READ (sequential),
not MPI_FILE_SET_VIEW, so m_MOK/n_MOK/p_MOK/WP_MOK/var_MOK
were computed but never read. Two of these (n_MOK, p_MOK) also
had a copy-paste bug using m_glb_read instead of n/p_glb_read.

Co-Authored-By: Claude Opus 4.6 <noreply@anthropic.com>

Author: sbryngelson

src/simulation/m_start_up.fpp

@@ -571,44 +571,27 @@ contains
                     p_glb_read = p_glb + 1
                 end if
 
-                ! Resize some integers so MPI can read even the biggest file
-                m_MOK = int(m_glb_read + 1, MPI_OFFSET_KIND)
-                n_MOK = int(m_glb_read + 1, MPI_OFFSET_KIND)
-                p_MOK = int(m_glb_read + 1, MPI_OFFSET_KIND)
-                WP_MOK = int(storage_size(0._wp)/8, MPI_OFFSET_KIND)
-                MOK = int(1._wp, MPI_OFFSET_KIND)
-                str_MOK = int(name_len, MPI_OFFSET_KIND)
-                NVARS_MOK = int(sys_size, MPI_OFFSET_KIND)
-
                 ! Read the data for each variable
                 if (bubbles_euler .or. elasticity) then
                     do i = 1, sys_size!adv_idx%end
-                        var_MOK = int(i, MPI_OFFSET_KIND)
-
                         call MPI_FILE_READ(ifile, MPI_IO_DATA%var(i)%sf, data_size*mpi_io_type, &
                                            mpi_io_p, status, ierr)
                     end do
                     !Read pb and mv for non-polytropic qbmm
                     if (qbmm .and. .not. polytropic) then
                         do i = sys_size + 1, sys_size + 2*nb*nnode
-                            var_MOK = int(i, MPI_OFFSET_KIND)
-
                             call MPI_FILE_READ(ifile, MPI_IO_DATA%var(i)%sf, data_size*mpi_io_type, &
                                                mpi_io_p, status, ierr)
                         end do
                     end if
                 else
                     if (down_sample) then
                         do i = 1, sys_size
-                            var_MOK = int(i, MPI_OFFSET_KIND)
-
                             call MPI_FILE_READ(ifile, q_cons_temp(i)%sf, data_size*mpi_io_type, &
                                                mpi_io_p, status, ierr)
                         end do
                     else
                         do i = 1, sys_size
-                            var_MOK = int(i, MPI_OFFSET_KIND)
-
                             call MPI_FILE_READ(ifile, MPI_IO_DATA%var(i)%sf, data_size*mpi_io_type, &
                                                mpi_io_p, status, ierr)
                         end do