[Commits] [svn:einsteintoolkit] GRHydro/trunk/src/ (Rev. 414)
rhaas at tapir.caltech.edu
rhaas at tapir.caltech.edu
Mon Aug 27 14:19:32 CDT 2012
User: rhaas
Date: 2012/08/27 02:19 PM
Modified:
/trunk/src/
GRHydro_HLLEM.F90
Log:
GRHydro: Adding back OpenMP support to HLLEM.F90
From: Philipp Moesta <pmoesta at tapir.caltech.edu>
File Changes:
Directory: /trunk/src/
======================
File [modified]: GRHydro_HLLEM.F90
Delta lines: +12 -0
===================================================================
--- trunk/src/GRHydro_HLLEM.F90 2012-08-27 19:19:29 UTC (rev 413)
+++ trunk/src/GRHydro_HLLEM.F90 2012-08-27 19:19:32 UTC (rev 414)
@@ -123,6 +123,17 @@
! constraint transport needs to be able to average fluxes in the directions
! other that flux_direction
+
+ !$OMP PARALLEL DO PRIVATE(k,j,i,f1,lamminus,lamplus,cons_p,cons_m,fplus,fminus,qdiff,psidcf,psidcp,psidcm,prim_p,prim_m,&
+ !$OMP avg_betax,avg_betay,avg_betaz,avg_beta,avg_alp,&
+ !$OMP gxxh,gxyh,gxzh,gyyh,gyzh,gzzh,avg_det,sdet,uxxh,uxyh,uxzh,uyyh,uyzh,uzzh,&
+ !$OMP vxtp,vxtm,vytp,vytm,vztp,vztm,&
+ !$OMP velxlowp,velxlowm,Bvecxlowp,Bvecxlowm,&
+ !$OMP velylowp,velylowm,Bvecylowp,Bvecylowm,&
+ !$OMP velzlowp,velzlowm,Bveczlowp,Bveczlowm,&
+ !$OMP bdotvp,bdotvm,b2p,b2m,v2p,v2m,wp,wm,&
+ !$OMP bxlowp,bxlowm,bylowp,bylowm,bzlowp,bzlowm,&
+ !$OMP rhoenth_p,rhoenth_m,ab0p,ab0m,vA2p,vA2m,pressstarp,pressstarm,usendh,psidcdiff,psidcfp,psidcfm,charmin,charmax,chartop,charpm,m)
do k = GRHydro_stencil, cctk_lsh(3) - GRHydro_stencil + transport_constraints*(1-zoffset)
do j = GRHydro_stencil, cctk_lsh(2) - GRHydro_stencil + transport_constraints*(1-yoffset)
do i = GRHydro_stencil, cctk_lsh(1) - GRHydro_stencil + transport_constraints*(1-xoffset)
@@ -608,6 +619,7 @@
end do
end do
end do
+ !$OMP END PARALLEL DO
#undef faulty_gxx
#undef faulty_gxy
#undef faulty_gxz
More information about the Commits
mailing list