merged in mpp_self_sync modification from dev/gfdl

NOAA-GFDL · Nov 18, 2022 · 1ee47c1 · 1ee47c1
1 parent b5a4bec
commit 1ee47c1
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/src/icebergs_io.F90 b/src/icebergs_io.F90
@@ -8,7 +8,7 @@ module ice_bergs_io
 use mpp_domains_mod, only: mpp_get_tile_pelist,mpp_get_tile_npes,mpp_get_io_domain,mpp_get_tile_id
 
 use mpp_mod, only: mpp_npes, mpp_pe, mpp_root_pe, mpp_sum, mpp_min, mpp_max, NULL_PE
-use mpp_mod, only: mpp_send, mpp_recv, mpp_gather, mpp_chksum
+use mpp_mod, only: mpp_send, mpp_recv, mpp_gather, mpp_chksum, mpp_sync_self
 use mpp_mod, only: COMM_TAG_11, COMM_TAG_12, COMM_TAG_13, COMM_TAG_14
 
 use fms_mod, only: stdlog, stderr, error_mesg, FATAL, WARNING, NOTE
@@ -1752,10 +1752,10 @@ subroutine write_trajectory(trajectory, save_short_traj, save_fl_traj, fl_r, tra
 integer :: stderrunit, cnt, ij
 !I/O vars
 type(xyt), pointer :: traj4io=>null()
-integer :: ntrajs_sent_io,ntrajs_rcvd_io
 integer :: from_pe,np
 type(buffer), pointer :: obuffer_io=>null(), ibuffer_io=>null()
 logical :: io_is_in_append_mode
+integer :: ntrajs_sent_io,ntrajs_rcvd_io
 
   ! Get the stderr unit number
   stderrunit=stderr()
@@ -1812,7 +1812,7 @@ subroutine write_trajectory(trajectory, save_short_traj, save_fl_traj, fl_r, tra
         call mpp_send(obuffer_io%data, ntrajs_sent_io*buffer_width_traj, to_pe=io_tile_root_pe, tag=COMM_TAG_12)
      endif
   endif
-
+  call mpp_sync_self()
   endif !.NOT. force_all_pes_traj
 
   call mpp_clock_end(clock_trp)