patch_ib Memory Copy Reduction (#1531)

Co-authored-by: Daniel Vickers <danieljvickers@frontier10309.frontier.olcf.ornl.gov>

Author: danieljvickers

src/simulation/m_data_output.fpp

@@ -893,6 +893,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