Skip to content

Commit 8139f00

Browse files
Moved entry out of main and ran format again
1 parent c612854 commit 8139f00

File tree

2 files changed

+4
-4
lines changed

2 files changed

+4
-4
lines changed

src/simulation/m_start_up.fpp

Lines changed: 4 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -1135,6 +1135,10 @@ contains
11351135
end do
11361136
end if
11371137

1138+
if (moving_immersed_boundary_flag) then
1139+
call s_update_mib(num_ibs, levelset, levelset_norm)
1140+
end if
1141+
11381142
call s_compute_derived_variables(t_step)
11391143

11401144

src/simulation/p_main.fpp

Lines changed: 0 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -74,10 +74,6 @@ program p_main
7474
! Time-stepping Loop
7575
do
7676

77-
if (moving_immersed_boundary_flag) then
78-
call s_update_mib(num_ibs, levelset, levelset_norm)
79-
end if
80-
8177
if (cfl_dt) then
8278
if (mytime >= t_stop) then
8379
call s_save_performance_metrics(time_avg, time_final, io_time_avg, &

0 commit comments

Comments
 (0)