diff --git a/src/shr_reprosum_mod.F90 b/src/shr_reprosum_mod.F90 index fb61f42..9996c51 100644 --- a/src/shr_reprosum_mod.F90 +++ b/src/shr_reprosum_mod.F90 @@ -450,8 +450,9 @@ subroutine shr_reprosum_calc (arr, arr_gsum, nsummands, dsummands, & else mpi_comm = MPI_COMM_WORLD endif +#ifdef TIMING call t_barrierf('sync_repro_sum',mpi_comm) - +#endif ! check whether should abort if input contains NaNs or INFs abort_inf_nan = .not. repro_sum_allow_infnan if ( present(allow_infnan) ) then