From 1ee47c1a25f227c0451160df1100009e55ee4e52 Mon Sep 17 00:00:00 2001 From: alex-huth Date: Fri, 18 Nov 2022 15:30:27 -0500 Subject: [PATCH] merged in mpp_self_sync modification from dev/gfdl --- src/icebergs_io.F90 | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/icebergs_io.F90 b/src/icebergs_io.F90 index 06ff4d2..0d635da 100644 --- 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)