diff options
author | knarf <knarf@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45> | 2010-04-06 19:19:03 +0000 |
---|---|---|
committer | knarf <knarf@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45> | 2010-04-06 19:19:03 +0000 |
commit | 93a0c872bcf866991c6a37fef6de05c0bbebc613 (patch) | |
tree | c69a8cbf5582a76ec811ecdd32b2b191fedf4d5e /src | |
parent | 36b450e84061db36db617bae3b21636c09b1ac24 (diff) |
openmp for primitive2conservativegeneral
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinEvolve/GRHydro/trunk@97 c83d129a-5a75-4d5a-9c4d-ed3a5855bf45
Diffstat (limited to 'src')
-rw-r--r-- | src/Whisky_Prim2Con.F90 | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/Whisky_Prim2Con.F90 b/src/Whisky_Prim2Con.F90 index 4ab24f2..996b27d 100644 --- a/src/Whisky_Prim2Con.F90 +++ b/src/Whisky_Prim2Con.F90 @@ -545,6 +545,8 @@ subroutine primitive2conservativegeneral(CCTK_ARGUMENTS) ierr = EOS_SetGFs(cctkGH, EOS_Prim2ConBndCallPlus) ierr = EOS_SetGFs(cctkGH, EOS_Prim2ConBndCallMinus) + !$OMP PARALLEL DO PRIVATE(i, j, gxxl,gxyl,gxzl,gyyl,gyzl,gzzl,avg_detl,& + !$OMP gxxr,gxyr,gxzr,gyyr,gyzr,gzzr,avg_detr,psi4r,psi4l) do k = whisky_stencil , cctk_lsh(3) - whisky_stencil + 1 do j = whisky_stencil , cctk_lsh(2) - whisky_stencil + 1 do i = whisky_stencil , cctk_lsh(1) - whisky_stencil + 1 @@ -604,6 +606,7 @@ subroutine primitive2conservativegeneral(CCTK_ARGUMENTS) end do end do end do + !$OMP END PARALLEL DO end subroutine primitive2conservativegeneral |