Removed loop-level timer barriers

GEOS-ESM · Jul 30, 2024 · f1fd67a · f1fd67a
1 parent 8f7fc9e
commit f1fd67a
Showing 1 changed file with 10 additions and 10 deletions.
diff --git a/gridcomps/Cap/MAPL_CapGridComp.F90 b/gridcomps/Cap/MAPL_CapGridComp.F90
@@ -1139,8 +1139,8 @@ subroutine run_MAPL_GridComp(gc, phase, rc)
        ! Time Loop starts by checking for Segment Ending Time
        !-----------------------------------------------------
        if (cap%compute_throughput) then
-          call ESMF_VMBarrier(cap%vm,rc=status)
-          _VERIFY(status)
+         !call ESMF_VMBarrier(cap%vm,rc=status)
+         !_VERIFY(status)
           cap%starts%loop_start_timer = MPI_WTime()
           cap%started_loop_timer = .true.
        end if
@@ -1168,8 +1168,8 @@ subroutine run_MAPL_GridComp(gc, phase, rc)
           ! initialization costs in the averageing.
           !-------------------------------------------
           if (n == 1 .and. cap%compute_throughput) then
-             call ESMF_VMBarrier(cap%vm,rc=status)
-             _VERIFY(status)
+            !call ESMF_VMBarrier(cap%vm,rc=status)
+            !_VERIFY(status)
              cap%starts%loop_start_timer = MPI_WTime()
           endif
 
@@ -1252,8 +1252,8 @@ subroutine first_phase(rc)
         _VERIFY(status)
 
         if (this%compute_throughput) then
-           call ESMF_VMBarrier(this%vm,rc=status)
-           _VERIFY(status)
+          !call ESMF_VMBarrier(this%vm,rc=status)
+          !_VERIFY(status)
            this%starts%start_run_timer = MPI_WTime()
         end if
 
@@ -1266,8 +1266,8 @@ subroutine last_phase(rc)
         integer :: status
 
         if (this%compute_throughput) then
-           call ESMF_VMBarrier(this%vm,rc=status)
-           _VERIFY(status)
+          !call ESMF_VMBarrier(this%vm,rc=status)
+          !_VERIFY(status)
            end_run_timer = MPI_WTime()
         end if
 
@@ -1325,8 +1325,8 @@ subroutine print_throughput(rc)
         _VERIFY(status)
         delt=currTime-this%cap_restart_time
         ! Call system clock to estimate throughput simulated Days/Day
-        call ESMF_VMBarrier( this%vm, RC=STATUS )
-        _VERIFY(STATUS)
+       !call ESMF_VMBarrier( this%vm, RC=STATUS )
+       !_VERIFY(STATUS)
         END_TIMER = MPI_Wtime()
         n=this%get_step_counter()
         !GridCompRun Timer [Inst]