From d0a8cdee224d62f3f13fcd4d575cf9098c7a040d Mon Sep 17 00:00:00 2001 From: malmahrouqi3 Date: Sat, 12 Jul 2025 14:28:56 -0400 Subject: [PATCH 1/2] fixed #ifdef MFC_MPI...#endif placements --- src/post_process/m_data_input.f90 | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/src/post_process/m_data_input.f90 b/src/post_process/m_data_input.f90 index 3b2e1a8b7..5921ad8b6 100644 --- a/src/post_process/m_data_input.f90 +++ b/src/post_process/m_data_input.f90 @@ -108,6 +108,7 @@ impure subroutine s_read_grid_data_direction(t_step_dir, direction, cb_array, d_ end subroutine s_read_grid_data_direction +#ifdef MFC_MPI !> Helper subroutine to setup MPI data I/O parameters !! @param data_size Local array size (output) !! @param m_MOK, n_MOK, p_MOK MPI offset kinds for dimensions (output) @@ -138,6 +139,7 @@ impure subroutine s_setup_mpi_io_params(data_size, m_MOK, n_MOK, p_MOK, WP_MOK, NVARS_MOK = int(sys_size, MPI_OFFSET_KIND) end subroutine s_setup_mpi_io_params +#endif !> Helper subroutine to read IB data files !! @param file_loc_base Base file location for IB data @@ -148,9 +150,11 @@ impure subroutine s_read_ib_data_files(file_loc_base) character(LEN=len_trim(file_loc_base) + 20) :: file_loc logical :: file_exist integer :: ifile, ierr, data_size + +#ifdef MFC_MPI integer, dimension(MPI_STATUS_SIZE) :: status integer(KIND=MPI_OFFSET_KIND) :: disp - +#endif if (.not. ib) return if (parallel_io) then @@ -426,6 +430,7 @@ impure subroutine s_read_parallel_data_files(t_step) end subroutine s_read_parallel_data_files +#ifdef MFC_MPI !> Helper subroutine to read parallel conservative variable data !! @param t_step Current time-step !! @param m_MOK, n_MOK, p_MOK MPI offset kinds for dimensions @@ -436,8 +441,6 @@ impure subroutine s_read_parallel_conservative_data(t_step, m_MOK, n_MOK, p_MOK, integer(KIND=MPI_OFFSET_KIND), intent(inout) :: m_MOK, n_MOK, p_MOK integer(KIND=MPI_OFFSET_KIND), intent(inout) :: WP_MOK, MOK, str_MOK, NVARS_MOK -#ifdef MFC_MPI - integer :: ifile, ierr, data_size integer, dimension(MPI_STATUS_SIZE) :: status integer(KIND=MPI_OFFSET_KIND) :: disp, var_MOK @@ -512,7 +515,6 @@ impure subroutine s_read_parallel_conservative_data(t_step, m_MOK, n_MOK, p_MOK, call s_mpi_abort('File '//trim(file_loc)//' is missing. Exiting.') end if end if - #endif end subroutine s_read_parallel_conservative_data From 69eb3b151047e7c843aac090172d67646e95aa41 Mon Sep 17 00:00:00 2001 From: malmahrouqi3 Date: Sat, 12 Jul 2025 14:36:50 -0400 Subject: [PATCH 2/2] small change --- src/post_process/m_data_input.f90 | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/src/post_process/m_data_input.f90 b/src/post_process/m_data_input.f90 index 5921ad8b6..8409f8776 100644 --- a/src/post_process/m_data_input.f90 +++ b/src/post_process/m_data_input.f90 @@ -515,9 +515,8 @@ impure subroutine s_read_parallel_conservative_data(t_step, m_MOK, n_MOK, p_MOK, call s_mpi_abort('File '//trim(file_loc)//' is missing. Exiting.') end if end if -#endif - end subroutine s_read_parallel_conservative_data +#endif !> Computation of parameters, allocation procedures, and/or !! any other tasks needed to properly setup the module