[Commits] [svn:einsteintoolkit] GRHydro/trunk/src/ (Rev. 195)

[cott at tapir.caltech.edu]

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