diff options
| author | rhaas <rhaas@e296648e-0e4f-0410-bd07-d597d9acff87> | 2012-10-13 01:25:24 +0000 |
|---|---|---|
| committer | rhaas <rhaas@e296648e-0e4f-0410-bd07-d597d9acff87> | 2012-10-13 01:25:24 +0000 |
| commit | 55e95e4557524afce0caf9fd5a015c9c8fdf051b (patch) | |
| tree | 100432f323d8c4b31d22f11faf3672c2e4f9d6ee /src/initialize.F77 | |
| parent | bdf875745ae407bf4f8ffbfdccfaf803e0e64101 (diff) | |
use OmpenMP threadprivate variable attribute for SAVE variables in pointwise
routines
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/Exact/trunk@278 e296648e-0e4f-0410-bd07-d597d9acff87
Diffstat (limited to 'src/initialize.F77')
| -rw-r--r-- | src/initialize.F77 | 38 |
1 files changed, 19 insertions, 19 deletions
diff --git a/src/initialize.F77 b/src/initialize.F77 index 28022d7..a6bc967 100644 --- a/src/initialize.F77 +++ b/src/initialize.F77 @@ -60,25 +60,25 @@ C Set data pointwise. ny = cctk_lsh(2) nz = cctk_lsh(3) -C.omp parallel do private( -C.omp$ i, j, k, -C.omp$ tt, xx, yy, zz, -C.omp$ alpjunk, dtalpjunk, axjunk, ayjunk, azjunk, -C.omp$ betaxjunk, betayjunk, betazjunk, -C.omp$ dtbetaxjunk, dtbetayjunk, dtbetazjunk, -C.omp$ bxxjunk, bxyjunk, bxzjunk, -C.omp$ byxjunk, byyjunk, byzjunk, -C.omp$ bzxjunk, bzyjunk, bzzjunk, -C.omp$ dxgxxjunk, dxgyyjunk, dxgzzjunk, -C.omp$ dxgxyjunk, dxgyzjunk, dxgxzjunk, -C.omp$ dygxxjunk, dygyyjunk, dygzzjunk, -C.omp$ dygxyjunk, dygyzjunk, dygxzjunk, -C.omp$ dzgxxjunk, dzgyyjunk, dzgzzjunk, -C.omp$ dzgxyjunk, dzgyzjunk, dzgxzjunk, -C.omp$ exact_psi, -C.omp$ exact_psix, exact_psiy, exact_psiz, -C.omp$ exact_psixx, exact_psiyy, exact_psizz, -C.omp$ exact_psixy, exact_psiyz, exact_psixz) +C$omp parallel do private( +C$omp$ i, j, k, +C$omp$ tt, xx, yy, zz, +C$omp$ alpjunk, dtalpjunk, axjunk, ayjunk, azjunk, +C$omp$ betaxjunk, betayjunk, betazjunk, +C$omp$ dtbetaxjunk, dtbetayjunk, dtbetazjunk, +C$omp$ bxxjunk, bxyjunk, bxzjunk, +C$omp$ byxjunk, byyjunk, byzjunk, +C$omp$ bzxjunk, bzyjunk, bzzjunk, +C$omp$ dxgxxjunk, dxgyyjunk, dxgzzjunk, +C$omp$ dxgxyjunk, dxgyzjunk, dxgxzjunk, +C$omp$ dygxxjunk, dygyyjunk, dygzzjunk, +C$omp$ dygxyjunk, dygyzjunk, dygxzjunk, +C$omp$ dzgxxjunk, dzgyyjunk, dzgzzjunk, +C$omp$ dzgxyjunk, dzgyzjunk, dzgxzjunk, +C$omp$ exact_psi, +C$omp$ exact_psix, exact_psiy, exact_psiz, +C$omp$ exact_psixx, exact_psiyy, exact_psizz, +C$omp$ exact_psixy, exact_psiyz, exact_psixz) do k=1,nz do j=1,ny do i=1,nx |