Skip to content

Commit 0b1675e

Browse files
Move t_step_string declaration outside of MPI block
Co-authored-by: Copilot Autofix powered by AI <175728472+Copilot@users.noreply.github.com>
1 parent 7ea6dd9 commit 0b1675e

1 file changed

Lines changed: 1 addition & 1 deletion

File tree

src/post_process/m_data_input.f90

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -109,13 +109,13 @@ impure subroutine s_read_ib_data_files(file_loc_base, t_step)
109109
character(LEN=path_len + 2*name_len) :: file_loc
110110
logical :: file_exist
111111
integer :: ifile, ierr, data_size
112+
character(len=10) :: t_step_string
112113

113114
#ifdef MFC_MPI
114115
integer, dimension(MPI_STATUS_SIZE) :: status
115116
integer(KIND=MPI_OFFSET_KIND) :: disp
116117
integer(KIND=MPI_OFFSET_KIND) :: m_MOK, n_MOK, p_MOK, MOK, WP_MOK, var_MOK
117118
integer :: save_index
118-
character(len=10) :: t_step_string
119119
#endif
120120

121121
if (.not. ib) return

0 commit comments

Comments
 (0)