Skip to content

Commit f7dbb7d

Browse files
authored
Update m_start_up.fpp
1 parent 8fc2f6c commit f7dbb7d

File tree

1 file changed

+1
-4
lines changed

1 file changed

+1
-4
lines changed

src/post_process/m_start_up.fpp

Lines changed: 1 addition & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -423,10 +423,7 @@ contains
423423
if (model_eqns == 3 .and. cons_vars_wrt) then
424424
do i = 1, num_fluids
425425

426-
q_sf = q_cons_vf(i + intxb - 1)%sf(-offset_x%beg:m + offset_x%end, &
427-
-offset_y%beg:n + offset_y%end, &
428-
-offset_z%beg:p + offset_z%end)
429-
426+
q_sf = q_cons_vf(i + intxb - 1)%sf(x_beg:x_end, y_beg:y_end, z_beg:z_end)
430427
write (varname, '(A,I0)') 'alpha_rho_e', i
431428
call s_write_variable_to_formatted_database_file(varname, t_step)
432429

0 commit comments

Comments
 (0)