From eddbee9a81643fcd34560aeadffa15fd1204fdaa Mon Sep 17 00:00:00 2001 From: anton-seaice Date: Mon, 9 Dec 2024 09:14:23 +1100 Subject: [PATCH] missing #ifdef --- src/shr_reprosum_mod.F90 | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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