Skip to content
Open
2 changes: 2 additions & 0 deletions src/simulation/m_data_output.fpp
Original file line number Diff line number Diff line change
Expand Up @@ -889,6 +889,8 @@ contains

integer, intent(in) :: time_step

$:GPU_UPDATE(host='[patch_ib(1:num_ibs)]')

if (parallel_io) then
call s_write_parallel_ib_data(time_step)
else
Expand Down
Loading
Loading