From 2094b264c9b981f42e5a0b5763240f390c891c29 Mon Sep 17 00:00:00 2001 From: Balwinder Singh Date: Wed, 6 Jul 2022 12:09:09 -0700 Subject: [PATCH] Adds parenthesis around named critical sections --- components/mpas-seaice/src/column/ice_warnings.F90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/components/mpas-seaice/src/column/ice_warnings.F90 b/components/mpas-seaice/src/column/ice_warnings.F90 index 8f455915613e..a3424c176bb7 100644 --- 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 !=======================================================================