diff options
author | knarf <knarf@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45> | 2010-01-11 15:58:25 +0000 |
---|---|---|
committer | knarf <knarf@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45> | 2010-01-11 15:58:25 +0000 |
commit | 56522273ef0c1d3d2c4e6c1169a1c132ef5b9c34 (patch) | |
tree | 69b20c15e5849bca81ca21c1f51c4ad8f18005f5 /src/Whisky_ReconstructPoly.F90 | |
parent | 164f1d3d22c248dc212d8f348343bde2a3478987 (diff) |
update from public Whisky version
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinEvolve/GRHydro/trunk@12 c83d129a-5a75-4d5a-9c4d-ed3a5855bf45
Diffstat (limited to 'src/Whisky_ReconstructPoly.F90')
-rw-r--r-- | src/Whisky_ReconstructPoly.F90 | 6 |
1 files changed, 6 insertions, 0 deletions
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 |