update OMP CRITICAL syntax

CICE-Consortium · Sep 21, 2018 · a91122f · a91122f
1 parent b3c5787
commit a91122f
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/columnphysics/icepack_warnings.F90 b/columnphysics/icepack_warnings.F90
@@ -149,7 +149,7 @@ subroutine icepack_warnings_add(warning)
              iWarning ! warning index
         character(len=*),parameter :: subname='(icepack_warnings_add)'
 
-!$OMP CRITICAL warnings_add
+!$OMP CRITICAL (omp_warnings_add)
         ! check if warnings array is not allocated
         if (.not. allocated(warnings)) then
 
@@ -194,7 +194,7 @@ subroutine icepack_warnings_add(warning)
 
         ! increase warning number
         nWarnings = nWarnings + 1
-!$OMP END CRITICAL warnings_add
+!$OMP END CRITICAL (omp_warnings_add)
 
         ! add the new warning
         warnings(nWarnings) = trim(warning)