From 37a5d7cc1df2b0220e95937e77d83049db1324bf Mon Sep 17 00:00:00 2001 From: Roland Haas Date: Wed, 30 Mar 2011 09:33:44 -0400 Subject: CarpetLib: remove superfluous OMP PARALLEL section in (W)ENO prolongation --- Carpet/CarpetLib/src/prolongate_3d_real8_eno.F90 | 1 - Carpet/CarpetLib/src/prolongate_3d_real8_weno.F90 | 1 - 2 files changed, 2 deletions(-) diff --git a/Carpet/CarpetLib/src/prolongate_3d_real8_eno.F90 b/Carpet/CarpetLib/src/prolongate_3d_real8_eno.F90 index 3bfd3f6a7..d803ec2e6 100644 --- a/Carpet/CarpetLib/src/prolongate_3d_real8_eno.F90 +++ b/Carpet/CarpetLib/src/prolongate_3d_real8_eno.F90 @@ -191,7 +191,6 @@ subroutine prolongate_3d_real8_eno (src, srciext, srcjext, & !!$ Loop over fine region -!$omp parallel do private (k0, fk, j0, fj, i0, fi) do k = 0, regkext-1 k0 = (srckoff + k) / dstkfac fk = mod(srckoff + k, dstkfac) diff --git a/Carpet/CarpetLib/src/prolongate_3d_real8_weno.F90 b/Carpet/CarpetLib/src/prolongate_3d_real8_weno.F90 index 199f455a8..d5ec43427 100644 --- a/Carpet/CarpetLib/src/prolongate_3d_real8_weno.F90 +++ b/Carpet/CarpetLib/src/prolongate_3d_real8_weno.F90 @@ -271,7 +271,6 @@ subroutine prolongate_3d_real8_weno (src, srciext, srcjext, & !!$ Loop over fine region -!$omp parallel do private (k0, fk, j0, fj, i0, fi) do k = 0, regkext-1 k0 = (srckoff + k) / dstkfac fk = mod(srckoff + k, dstkfac) -- cgit v1.2.3