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

schnetter at cct.lsu.edu schnetter at cct.lsu.edu
Tue Oct 29 19:53:23 CDT 2013


User: eschnett
Date: 2013/10/29 07:53 PM

Modified:
 /trunk/src/
  GRHydro_BvecfromAvec.F90, GRHydro_ENOReconstruct_drv.F90, GRHydro_MP5Reconstruct_drv.F90, GRHydro_PPMMReconstruct_drv.F90, GRHydro_Reconstruct.F90, GRHydro_ReconstructPoly.F90, GRHydro_TVDReconstruct_drv.F90, GRHydro_WENOReconstruct_drv.F90, Utils.F90

Log:
 Declare loop variables OpenMP private

File Changes:

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

File [modified]: GRHydro_BvecfromAvec.F90
Delta lines: +1 -1
===================================================================
--- trunk/src/GRHydro_BvecfromAvec.F90	2013-10-29 22:27:49 UTC (rev 585)
+++ trunk/src/GRHydro_BvecfromAvec.F90	2013-10-30 00:53:23 UTC (rev 586)
@@ -102,7 +102,7 @@
   
  
   call CCTK_WARN(1,"Bvec from Avec start."); 
-  !$OMP PARALLEL DO PRIVATE( sdet, isdet, local_spatial_order, &
+  !$OMP PARALLEL DO PRIVATE( i, j, k, sdet, isdet, local_spatial_order, &
   !$OMP                      Az_y, Ay_z, Ax_z, Az_x, Ay_x, Ax_y)
   do k = GRHydro_stencil, cctk_lsh(3)-GRHydro_stencil+1
     do j = GRHydro_stencil, cctk_lsh(2)-GRHydro_stencil+1

File [modified]: GRHydro_ENOReconstruct_drv.F90
Delta lines: +1 -1
===================================================================
--- trunk/src/GRHydro_ENOReconstruct_drv.F90	2013-10-29 22:27:49 UTC (rev 585)
+++ trunk/src/GRHydro_ENOReconstruct_drv.F90	2013-10-30 00:53:23 UTC (rev 586)
@@ -114,7 +114,7 @@
   nz = cctk_lsh(3)
 
   !initialize trivial_rp to false
-  !$OMP PARALLEL DO
+  !$OMP PARALLEL DO PRIVATE(i,j,k)
   do k=1,nz
      do j=1,ny
         do i=1,nx

File [modified]: GRHydro_MP5Reconstruct_drv.F90
Delta lines: +1 -1
===================================================================
--- trunk/src/GRHydro_MP5Reconstruct_drv.F90	2013-10-29 22:27:49 UTC (rev 585)
+++ trunk/src/GRHydro_MP5Reconstruct_drv.F90	2013-10-30 00:53:23 UTC (rev 586)
@@ -129,7 +129,7 @@
   nz = cctk_lsh(3)
 
   !initialize trivial_rp to false
-  !$OMP PARALLEL DO
+  !$OMP PARALLEL DO PRIVATE(i,j,k)
   do k=1,nz
      do j=1,ny
         do i=1,nx

File [modified]: GRHydro_PPMMReconstruct_drv.F90
Delta lines: +1 -1
===================================================================
--- trunk/src/GRHydro_PPMMReconstruct_drv.F90	2013-10-29 22:27:49 UTC (rev 585)
+++ trunk/src/GRHydro_PPMMReconstruct_drv.F90	2013-10-30 00:53:23 UTC (rev 586)
@@ -130,7 +130,7 @@
   nz = cctk_lsh(3)
 
   !initialize trivial_rp to false                                               
-  !$OMP PARALLEL DO                                                             
+  !$OMP PARALLEL DO PRIVATE(i,j,k)
   do k=1,nz
      do j=1,ny
         do i=1,nx

File [modified]: GRHydro_Reconstruct.F90
Delta lines: +1 -1
===================================================================
--- trunk/src/GRHydro_Reconstruct.F90	2013-10-29 22:27:49 UTC (rev 585)
+++ trunk/src/GRHydro_Reconstruct.F90	2013-10-30 00:53:23 UTC (rev 586)
@@ -54,7 +54,7 @@
   end if
   
   ! Initialize plus and minus states
-  !$OMP PARALLEL DO                                 
+  !$OMP PARALLEL DO PRIVATE(i,j,k)
   do k=1,cctk_lsh(3)
      do j=1,cctk_lsh(2)
         do i=1,cctk_lsh(1)

File [modified]: GRHydro_ReconstructPoly.F90
Delta lines: +1 -1
===================================================================
--- trunk/src/GRHydro_ReconstructPoly.F90	2013-10-29 22:27:49 UTC (rev 585)
+++ trunk/src/GRHydro_ReconstructPoly.F90	2013-10-30 00:53:23 UTC (rev 586)
@@ -127,7 +127,7 @@
 !!$  Should change this.
 
   ! Initialize plus and minus states
-  !$OMP PARALLEL DO
+  !$OMP PARALLEL DO PRIVATE(i,j,k)
   do k=1,cctk_lsh(3)
      do j=1,cctk_lsh(2)
         do i=1,cctk_lsh(1)

File [modified]: GRHydro_TVDReconstruct_drv.F90
Delta lines: +1 -1
===================================================================
--- trunk/src/GRHydro_TVDReconstruct_drv.F90	2013-10-29 22:27:49 UTC (rev 585)
+++ trunk/src/GRHydro_TVDReconstruct_drv.F90	2013-10-30 00:53:23 UTC (rev 586)
@@ -143,7 +143,7 @@
   nz = cctk_lsh(3)
 
   !initialize trivial_rp to false
-  !$OMP PARALLEL DO
+  !$OMP PARALLEL DO PRIVATE(i,j,k)
   do k=1,nz
      do j=1,ny
         do i=1,nx

File [modified]: GRHydro_WENOReconstruct_drv.F90
Delta lines: +1 -1
===================================================================
--- trunk/src/GRHydro_WENOReconstruct_drv.F90	2013-10-29 22:27:49 UTC (rev 585)
+++ trunk/src/GRHydro_WENOReconstruct_drv.F90	2013-10-30 00:53:23 UTC (rev 586)
@@ -188,7 +188,7 @@
   nz = cctk_lsh(3)
 
   !initialize trivial_rp to false
-  !$OMP PARALLEL DO
+  !$OMP PARALLEL DO PRIVATE(i,j,k)
   do k=1,nz
      do j=1,ny
         do i=1,nx

File [modified]: Utils.F90
Delta lines: +1 -1
===================================================================
--- trunk/src/Utils.F90	2013-10-29 22:27:49 UTC (rev 585)
+++ trunk/src/Utils.F90	2013-10-30 00:53:23 UTC (rev 586)
@@ -107,7 +107,7 @@
   ny = cctk_lsh(2)
   nz = cctk_lsh(3)
 
-  !$OMP PARALLEL DO
+  !$OMP PARALLEL DO PRIVATE(i,j,k)
   do k=1,nz
      do j=1,ny
         do i=1,nx



More information about the Commits mailing list