diff options
| author | Roland Haas <roland.haas@physics.gatech.edu> | 2011-03-30 09:33:44 -0400 |
|---|---|---|
| committer | Barry Wardell <barry.wardell@gmail.com> | 2011-12-14 18:26:04 +0000 |
| commit | 37a5d7cc1df2b0220e95937e77d83049db1324bf (patch) | |
| tree | a40b098838d41f0bbdc30ab1fd94c951cae72069 /Carpet | |
| parent | d28b646fbecdc055ac1f154f4b0b4707b9d089eb (diff) | |
CarpetLib: remove superfluous OMP PARALLEL section in (W)ENO prolongation
Diffstat (limited to 'Carpet')
| -rw-r--r-- | Carpet/CarpetLib/src/prolongate_3d_real8_eno.F90 | 1 | ||||
| -rw-r--r-- | Carpet/CarpetLib/src/prolongate_3d_real8_weno.F90 | 1 |
2 files changed, 0 insertions, 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) |