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/gauge.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/gauge.F77')
-rw-r--r-- | src/gauge.F77 | 38 |
1 files changed, 19 insertions, 19 deletions
diff --git a/src/gauge.F77 b/src/gauge.F77 index 361321a..3735455 100644 --- a/src/gauge.F77 +++ b/src/gauge.F77 @@ -88,25 +88,25 @@ C if ( set_lapse .or. set_shift .or. set_dtlapse .or. set_dtshift) then -C.omp parallel do private ( -C.omp$ i, j, k, -C.omp$ tt, xx, yy, zz, -C.omp$ alptmp, dtalptmp, axtmp, aytmp, aztmp, -C.omp$ betaxtmp, betaytmp, betaztmp, -C.omp$ dtbetaxtmp, dtbetaytmp, dtbetaztmp, -C.omp$ bxxtmp, bxytmp, bxztmp, -C.omp$ byxtmp, byytmp, byztmp, -C.omp$ bzxtmp, bzytmp, bzztmp, -C.omp$ dxgxxtmp, dxgyytmp, dxgzztmp, -C.omp$ dxgxytmp, dxgyztmp, dxgxztmp, -C.omp$ dygxxtmp, dygyytmp, dygzztmp, -C.omp$ dygxytmp, dygyztmp, dygxztmp, -C.omp$ dzgxxtmp, dzgyytmp, dzgzztmp, -C.omp$ dzgxytmp, dzgyztmp, dzgxztmp, -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$ alptmp, dtalptmp, axtmp, aytmp, aztmp, +C$omp$ betaxtmp, betaytmp, betaztmp, +C$omp$ dtbetaxtmp, dtbetaytmp, dtbetaztmp, +C$omp$ bxxtmp, bxytmp, bxztmp, +C$omp$ byxtmp, byytmp, byztmp, +C$omp$ bzxtmp, bzytmp, bzztmp, +C$omp$ dxgxxtmp, dxgyytmp, dxgzztmp, +C$omp$ dxgxytmp, dxgyztmp, dxgxztmp, +C$omp$ dygxxtmp, dygyytmp, dygzztmp, +C$omp$ dygxytmp, dygyztmp, dygxztmp, +C$omp$ dzgxxtmp, dzgyytmp, dzgzztmp, +C$omp$ dzgxytmp, dzgyztmp, dzgxztmp, +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 |