diff options
| author | cott <cott@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45> | 2010-12-21 10:58:39 +0000 |
|---|---|---|
| committer | cott <cott@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45> | 2010-12-21 10:58:39 +0000 |
| commit | c986fa220d4e2efceb7c7939095d0eceff07e151 (patch) | |
| tree | 1046a61d92f53a3775db9b3347361c89439a1bd7 | |
| parent | 0b7357e2bbfc8d9213ac74874ddd2c1e4ba751c5 (diff) | |
* add OMP for HLLE solver
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinEvolve/GRHydro/trunk@195 c83d129a-5a75-4d5a-9c4d-ed3a5855bf45
| -rw-r--r-- | src/GRHydro_HLLE.F90 | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/src/GRHydro_HLLE.F90 b/src/GRHydro_HLLE.F90 index bd976e1..1034359 100644 --- a/src/GRHydro_HLLE.F90 +++ b/src/GRHydro_HLLE.F90 @@ -66,6 +66,12 @@ subroutine GRHydro_HLLE(CCTK_ARGUMENTS) call CCTK_WARN(0, "Flux direction not x,y,z") end if + !$OMP PARALLEL DO PRIVATE(j,i,f1,lamminus,lamplus,consp,consm_i, & + !$OMP fplus,fminus,qdiff,avg_beta,avg_alp, & + !$OMP avg_det,gxxh,gxyh,gxzh,gyyh,gyzh,gzzh, & + !$OMP uxxh,uxyh,uxzh,uyyh,uyzh,uzzh, & + !$OMP usendh, xtemp, charmin, charmax, charpm, & + !$OMP m) do k = GRHydro_stencil, cctk_lsh(3) - GRHydro_stencil do j = GRHydro_stencil, cctk_lsh(2) - GRHydro_stencil do i = GRHydro_stencil, cctk_lsh(1) - GRHydro_stencil @@ -387,7 +393,7 @@ subroutine GRHydro_HLLE(CCTK_ARGUMENTS) end do end do end do - + !$OMP END PARALLEL DO end subroutine GRHydro_HLLE |