@@ -463,9 +463,9 @@ contains
463463 call s_open_run_time_information_file()
464464 end if
465465
466- ! Opening and writing the header of the ib data file
467- if (proc_rank == 0 .and. ib_force_wrt ) then
468- call s_open_ib_force_file ()
466+ ! Opening and writing the header of the ib state data file
467+ if (proc_rank == 0 .and. ib_state_wrt ) then
468+ call s_open_ib_state_file ()
469469 end if
470470
471471 if (cfl_dt) then
@@ -636,13 +636,13 @@ contains
636636 if (moving_immersed_boundary_flag) then
637637 call s_propagate_immersed_boundaries(s)
638638 ! compute ib forces for fixed immersed boundaries if requested for output
639- else if (ib_force_wrt .and. s == nstage) then
639+ else if (ib_state_wrt .and. s == nstage) then
640640 call s_compute_ib_forces(q_prim_vf, fluid_pp)
641641 end if
642642
643- ! Write IB forces to file if requested and at the RK final stage
644- if (ib_force_wrt .and. s == nstage) then
645- call s_write_ib_force_file(t_step )
643+ ! Write IB state to file if requested and at the RK final stage
644+ if (ib_state_wrt .and. s == nstage) then
645+ call s_write_ib_state_file( )
646646 end if
647647
648648 ! update the ghost fluid properties point values based on IB state
@@ -1070,8 +1070,8 @@ contains
10701070 end if
10711071
10721072 ! Writing the footer of and closing the IB data file
1073- if (proc_rank == 0 .and. ib_force_wrt ) then
1074- call s_close_ib_force_file ()
1073+ if (proc_rank == 0 .and. ib_state_wrt ) then
1074+ call s_close_ib_state_file ()
10751075 end if
10761076
10771077 end subroutine s_finalize_time_steppers_module
0 commit comments