Remove unnecessary critical regions to help ifx compiler

cp2k · Sep 16, 2022 · 60e7897 · 60e7897
1 parent 70ce0ff
commit 60e7897
Showing 1 changed file with 0 additions and 4 deletions.
diff --git a/src/common/timings.F b/src/common/timings.F
@@ -226,7 +226,6 @@ SUBROUTINE timeset_handler(routineN, handle)
       TYPE(timer_env_type), POINTER                      :: timer_env
 
 !$OMP MASTER
-!$OMP CRITICAL(time_setstop)
 
       ! Default value, using a negative value when timing is not taken
       cs_entry%walltime_start = -HUGE(1.0_dp)
@@ -277,7 +276,6 @@ SUBROUTINE timeset_handler(routineN, handle)
 
       CALL offload_timeset(routineN)
 
-!$OMP END CRITICAL(time_setstop)
 !$OMP END MASTER
 
    END SUBROUTINE timeset_handler
@@ -306,7 +304,6 @@ SUBROUTINE timestop_handler(handle)
       routine_id = handle
 
 !$OMP MASTER
-!$OMP CRITICAL(time_setstop)
 
       CALL offload_timestop()
 
@@ -380,7 +377,6 @@ SUBROUTINE timestop_handler(handle)
          CALL m_flush(timer_env%trace_unit)
       END IF
 
-!$OMP END CRITICAL(time_setstop)
 !$OMP END MASTER
 
    END SUBROUTINE timestop_handler