From 56522273ef0c1d3d2c4e6c1169a1c132ef5b9c34 Mon Sep 17 00:00:00 2001
From: knarf <knarf@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45>
Date: Mon, 11 Jan 2010 15:58:25 +0000
Subject: update from public Whisky version

git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinEvolve/GRHydro/trunk@12 c83d129a-5a75-4d5a-9c4d-ed3a5855bf45
---
 src/Whisky_ReconstructPoly.F90 | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'src/Whisky_ReconstructPoly.F90')

diff --git a/src/Whisky_ReconstructPoly.F90 b/src/Whisky_ReconstructPoly.F90
index fce30c3..dc065ce 100644
--- a/src/Whisky_ReconstructPoly.F90
+++ b/src/Whisky_ReconstructPoly.F90
@@ -386,7 +386,9 @@ subroutine ReconstructionPolytype(CCTK_ARGUMENTS)
                  trivial_rp(:,j,k), space_mask(:,j,k), &
                  excision_descriptors)
           else
+            !$OMP CRITICAL
             call CCTK_WARN(0, "Variable type to reconstruct not recognized.")
+            !$OMP END CRITICAL
           end if
           do i = 1, cctk_lsh(1)
             if (trivial_rp(i,j,k)) then
@@ -437,7 +439,9 @@ subroutine ReconstructionPolytype(CCTK_ARGUMENTS)
                  trivial_rp(j,:,k), space_mask(j,:,k), &
                  excision_descriptors)
           else
+            !$OMP CRITICAL
             call CCTK_WARN(0, "Variable type to reconstruct not recognized.")
+            !$OMP END CRITICAL
           end if
           do i = 1, cctk_lsh(2)
             if (trivial_rp(j,i,k)) then
@@ -488,7 +492,9 @@ subroutine ReconstructionPolytype(CCTK_ARGUMENTS)
                  trivial_rp(j,k,:), space_mask(j,k,:), &
                  excision_descriptors)
           else
+            !$OMP CRITICAL
             call CCTK_WARN(0, "Variable type to reconstruct not recognized.")
+            !$OMP END CRITICAL
           end if
           do i = 1, cctk_lsh(3)
             if (trivial_rp(j,k,i)) then
-- 
cgit v1.2.3