Skip to content

Commit ee957a8

Browse files
committed
Add TIMING ifdefs around some new timing calls
1 parent 8545631 commit ee957a8

1 file changed

Lines changed: 4 additions & 0 deletions

File tree

src/shr_reprosum_mod.F90

Lines changed: 4 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -1478,7 +1478,9 @@ subroutine shr_reprosum_int (arr, arr_gsum, nsummands, dsummands, nflds, &
14781478
#endif
14791479
#endif
14801480

1481+
#ifdef TIMING
14811482
call t_startf('repro_sum_finalsum')
1483+
#endif
14821484
! Construct global sum from integer vector representation:
14831485
! 1) arr_max_shift is the shift applied to fraction(arr_gmax) .
14841486
! When shifting back, need to 'add back in' the true arr_gmax exponent.
@@ -1852,7 +1854,9 @@ subroutine shr_reprosum_int (arr, arr_gsum, nsummands, dsummands, nflds, &
18521854
endif
18531855

18541856
enddo
1857+
#ifdef TIMING
18551858
call t_stopf('repro_sum_finalsum')
1859+
#endif
18561860

18571861
end subroutine shr_reprosum_int
18581862

0 commit comments

Comments
 (0)