User: eschnett Date: 2012/05/05 08:52 AM
Modified: /trunk/src/ NoExcision_mod.F90
Log: Declare all loop variables private
File Changes:
Directory: /trunk/src/ ======================
File [modified]: NoExcision_mod.F90 Delta lines: +4 -4 =================================================================== --- trunk/src/NoExcision_mod.F90 2011-10-25 18:45:22 UTC (rev 32) +++ trunk/src/NoExcision_mod.F90 2012-05-05 13:52:50 UTC (rev 33) @@ -67,7 +67,7 @@ select case (order) case (2)
-!$OMP PARALLEL DO PRIVATE(j,i) SCHEDULE(GUIDED) +!$OMP PARALLEL DO PRIVATE(k,j,i) SCHEDULE(GUIDED) do k = 2, nz-1 do j = 2, ny-1 do i = 2, nx-1 @@ -88,7 +88,7 @@
case (4)
-!$OMP PARALLEL DO PRIVATE(j,i) SCHEDULE(GUIDED) +!$OMP PARALLEL DO PRIVATE(k,j,i) SCHEDULE(GUIDED) do k = 3, nz-2 do j = 3, ny-2 do i = 3, nx-2 @@ -113,7 +113,7 @@
case (6)
-!$OMP PARALLEL DO PRIVATE(j,i) SCHEDULE(GUIDED) +!$OMP PARALLEL DO PRIVATE(k,j,i) SCHEDULE(GUIDED) do k = 4, nz-3 do j = 4, ny-3 do i = 4, nx-3 @@ -220,7 +220,7 @@
if (do_inf_reduction) linfred = 0.0
-!$OMP PARALLEL DO SCHEDULE(guided) PRIVATE(j,i) REDUCTION(+:lsumred) & +!$OMP PARALLEL DO SCHEDULE(guided) PRIVATE(k,j,i) REDUCTION(+:lsumred) & !$OMP REDUCTION(max:linfred) do k = 1 + offset, nz - offset do j = 1 + offset, ny - offset