[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