User: cott Date: 2010/12/21 04:58 AM

Modified: /trunk/src/ GRHydro_HLLE.F90

Log: * add OMP for HLLE solver

File Changes:

Directory: /trunk/src/ ======================

File [modified]: GRHydro_HLLE.F90 Delta lines: +7 -1 =================================================================== --- trunk/src/GRHydro_HLLE.F90 2010-12-21 10:26:24 UTC (rev 194) +++ trunk/src/GRHydro_HLLE.F90 2010-12-21 10:58:39 UTC (rev 195) @@ -66,6 +66,12 @@ 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 @@ end do end do end do - + !$OMP END PARALLEL DO

end subroutine GRHydro_HLLE