diff options
| author | miguel <miguel@e296648e-0e4f-0410-bd07-d597d9acff87> | 1999-12-06 12:21:00 +0000 |
|---|---|---|
| committer | miguel <miguel@e296648e-0e4f-0410-bd07-d597d9acff87> | 1999-12-06 12:21:00 +0000 |
| commit | 43fb8a8a0d7fef77f18ebdbcb3d3428a4e36e5c0 (patch) | |
| tree | 13d1f963eb62da1e836a8f014f69057fc7fc7460 /src/slice_evolve.F | |
| parent | 79f81e608351fc2d0fb72ff2a44842a6cd202f9e (diff) | |
Migrating to Cactus 4.0
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/Exact/trunk@8 e296648e-0e4f-0410-bd07-d597d9acff87
Diffstat (limited to 'src/slice_evolve.F')
| -rw-r--r-- | src/slice_evolve.F | 20 |
1 files changed, 7 insertions, 13 deletions
diff --git a/src/slice_evolve.F b/src/slice_evolve.F index 8a0f786..0c58224 100644 --- a/src/slice_evolve.F +++ b/src/slice_evolve.F @@ -39,13 +39,11 @@ C by slice_data. C Synchronize and bound slice. call linextraponebound(CCTK_FARGUMENTS,slicetmp1x) - call synconefunc(slicetmp1x) call linextraponebound(CCTK_FARGUMENTS,slicetmp1y) - call synconefunc(slicetmp1y) call linextraponebound(CCTK_FARGUMENTS,slicetmp1z) - call synconefunc(slicetmp1z) call linextraponebound(CCTK_FARGUMENTS,slicetmp1t) - call synconefunc(slicetmp1t) + + call CCTK_SyncGroup(cctkGH,"Exact::Exact_slicetemp1") C Prepare leapfrog step. C Sum over interior points on the slice, now at midpoint slicetmp1. @@ -94,14 +92,12 @@ C Calculate n^A and dx^A/dt C Synchronize and bound slicetmp2, which contains dx^A/dt. call linextraponebound(CCTK_FARGUMENTS,slicetmp2x) - call synconefunc(slicetmp2x) call linextraponebound(CCTK_FARGUMENTS,slicetmp2y) - call synconefunc(slicetmp2y) call linextraponebound(CCTK_FARGUMENTS,slicetmp2z) - call synconefunc(slicetmp2z) call linextraponebound(CCTK_FARGUMENTS,slicetmp2t) - call synconefunc(slicetmp2t) - + + call CCTK_SyncGroup(cctkGH,"Exact::Exact_slicetemp2") + C Leapfrog step. slicex = slicex + dt * slicetmp2x @@ -112,13 +108,11 @@ C Leapfrog step. C Synchronize and bound slice. call linextraponebound(CCTK_FARGUMENTS,slicex) - call synconefunc(slicex) call linextraponebound(CCTK_FARGUMENTS,slicey) - call synconefunc(slicey) call linextraponebound(CCTK_FARGUMENTS,slicez) - call synconefunc(slicez) call linextraponebound(CCTK_FARGUMENTS,slicet) - call synconefunc(slicet) + + call CCTK_SyncGroup(cctkGH,"Exact::Exact_slice") C Extract Cauchy data at the new position, and store dxA/dt C for use in the next Lax step. |