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

[schnetter at cct.lsu.edu]

User: eschnett
Date: 2010/12/17 03:30 PM

Modified:
 /trunk/src/
  GRHydro_Prim2Con.F90

Log:
 Correct OpenMP errors

File Changes:

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

File [modified]: GRHydro_Prim2Con.F90
Delta lines: +3 -3
===================================================================
--- trunk/src/GRHydro_Prim2Con.F90	2010-12-06 21:13:20 UTC (rev 189)
+++ trunk/src/GRHydro_Prim2Con.F90	2010-12-17 21:30:18 UTC (rev 190)
@@ -320,7 +320,7 @@
   character(len=512) :: warnline
 
   if(evolve_temper.ne.1) then
-     !$OMP PARALLEL DO PRIVATE(i, j)
+     !$OMP PARALLEL DO PRIVATE(i, j, det)
      do k = GRHydro_stencil,cctk_lsh(3)-GRHydro_stencil+1
         do j = GRHydro_stencil,cctk_lsh(2)-GRHydro_stencil+1
            do i = GRHydro_stencil,cctk_lsh(1)-GRHydro_stencil+1
@@ -339,7 +339,7 @@
      end do
      !$OMP END PARALLEL DO
   else
-     !$OMP PARALLEL DO PRIVATE(i, j)
+     !$OMP PARALLEL DO PRIVATE(i, j, det)
      do k = GRHydro_stencil,cctk_lsh(3)-GRHydro_stencil+1
         do j = GRHydro_stencil,cctk_lsh(2)-GRHydro_stencil+1
            do i = GRHydro_stencil,cctk_lsh(1)-GRHydro_stencil+1
@@ -557,7 +557,7 @@
   CCTK_INT :: i, j, k
   CCTK_REAL :: det
   
-  !$OMP PARALLEL DO PRIVATE(i, j)
+  !$OMP PARALLEL DO PRIVATE(i, j, det)
   do k = GRHydro_stencil,cctk_lsh(3)-GRHydro_stencil+1
     do j = GRHydro_stencil,cctk_lsh(2)-GRHydro_stencil+1
       do i = GRHydro_stencil,cctk_lsh(1)-GRHydro_stencil+1