diff options
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 |