Adds parenthesis around named critical sections

E3SM-Project · Jul 6, 2022 · 2094b26 · 2094b26
1 parent 8bb433b
commit 2094b26
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/components/mpas-seaice/src/column/ice_warnings.F90 b/components/mpas-seaice/src/column/ice_warnings.F90
@@ -42,7 +42,7 @@ subroutine add_warning(warning)
     integer :: &
          nWarningsArray, & ! size of warnings array at start
          iWarning ! warning index
-    !$omp critical ice_warnings_add_warning
+    !$omp critical (ice_warnings_add_warning_critical)
     ! check if warnings array is not allocated
     if (.not. allocated(warnings)) then
 
@@ -90,7 +90,7 @@ subroutine add_warning(warning)
 
     ! add the new warning
     warnings(nWarnings) = trim(warning)
-    !$omp end critical ice_warnings_add_warning
+    !$omp end critical (ice_warnings_add_warning_critical)
   end subroutine add_warning
 
 !=======================================================================