diff options
-rw-r--r-- | src/apply_dissipation.F77 | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/apply_dissipation.F77 b/src/apply_dissipation.F77 index b4e3545..d4a9519 100644 --- a/src/apply_dissipation.F77 +++ b/src/apply_dissipation.F77 @@ -15,7 +15,7 @@ c $Header$ if (order .eq. 1) then -c$omp parallel do +c$omp parallel do private(i,j,k) do k = 2, nk-1 do j = 2, nj-1 do i = 2, ni-1 @@ -30,7 +30,7 @@ c$omp parallel do else if (order .eq. 3) then -c$omp parallel do +c$omp parallel do private(i,j,k) do k = 3, nk-2 do j = 3, nj-2 do i = 3, ni-2 @@ -46,7 +46,7 @@ c$omp parallel do else if (order .eq. 5) then -c$omp parallel do +c$omp parallel do private(i,j,k) do k = 4, nk-3 do j = 4, nj-3 do i = 4, ni-3 @@ -62,7 +62,7 @@ c$omp parallel do else if (order .eq. 7) then -c$omp parallel do +c$omp parallel do private(i,j,k) do k = 5, nk-4 do j = 5, nj-4 do i = 5, ni-4 |