Skip to content

Commit

Permalink
Merge pull request #3335 from ESMCI/mvertens/updates_for_nuopc_regional
Browse files Browse the repository at this point in the history
Updates needed to get aux_clm tests working with CMEPS
These are updates that were needed to make progress in getting the aux_clm test suite to work with CMEPS.

Test suite: scripts_regression_tests.py
there are still outstanding issues to have the scripts_regression_tests complete successfully with CMEPS
Test baseline: NA
Test namelist changes: NA
Test status: bit for bit
Fixes: None
User interface changes?: None
Update gh-pages html (Y/N)?: N
Code review:
  • Loading branch information
jedwards4b authored Jan 6, 2020
2 parents 9898562 + 990e3a9 commit 4e85304
Showing 1 changed file with 8 additions and 3 deletions.
11 changes: 8 additions & 3 deletions share/timing/perf_mod.F90
Original file line number Diff line number Diff line change
Expand Up @@ -733,7 +733,9 @@ subroutine t_startf(event, handle)
#endif
perf_timing_ovhd = perf_timing_ovhd - ovhd_start
endif
#ifndef NUOPC_INTERFACE
!$OMP END MASTER
#endif
if ((perf_add_detail) .AND. (cur_timing_detail < 100)) then
write(cdetail,'(i2.2)') cur_timing_detail
str_length = min(SHR_KIND_CM-3,len_trim(event))
Expand All @@ -742,7 +744,9 @@ subroutine t_startf(event, handle)
str_length = min(SHR_KIND_CM,len_trim(event))
TIMERSTART(event(1:str_length))
endif
#ifndef NUOPC_INTERFACE
!$OMP MASTER
#endif
if (perf_ovhd_measurement) then
#ifdef HAVE_MPI
ovhd_stop = mpi_wtime()
Expand Down Expand Up @@ -797,12 +801,12 @@ subroutine t_stopf(event, handle)
#endif
perf_timing_ovhd = perf_timing_ovhd - ovhd_start
endif
!$OMP END MASTER
#ifdef NUOPC_INTERFACE
cur_timing_depth = cur_timing_depth - 1
if(cur_timing_depth >= timer_depth_limit) return
#else
!$OMP END MASTER
#endif

if ((perf_add_detail) .AND. (cur_timing_detail < 100)) then
write(cdetail,'(i2.2)') cur_timing_detail
str_length = min(SHR_KIND_CM-3,len_trim(event))
Expand All @@ -811,8 +815,9 @@ subroutine t_stopf(event, handle)
str_length = min(SHR_KIND_CM,len_trim(event))
TIMERSTOP(event(1:str_length))
endif

#ifndef NUOPC_INTERFACE
!$OMP MASTER
#endif
if (perf_ovhd_measurement) then
#ifdef HAVE_MPI
ovhd_stop = mpi_wtime()
Expand Down

0 comments on commit 4e85304

Please sign in to comment.