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