diff options
| author | allen <allen@c78560ca-4b45-4335-b268-5f3340f3cb52> | 1999-03-24 12:14:46 +0000 |
|---|---|---|
| committer | allen <allen@c78560ca-4b45-4335-b268-5f3340f3cb52> | 1999-03-24 12:14:46 +0000 |
| commit | 37fd432598b42f0bcf3194a24e18359b8003779d (patch) | |
| tree | ae2c115ea487cade8db665a06a7b844c97ae533d /src | |
| parent | 7fb8aa9cd68dea01c106abfe4ada66dc3737974c (diff) | |
Sorting out some of the grid options
git-svn-id: http://svn.cactuscode.org/arrangements/CactusBase/CartGrid3D/trunk@13 c78560ca-4b45-4335-b268-5f3340f3cb52
Diffstat (limited to 'src')
| -rw-r--r-- | src/CartGrid3D.F | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/src/CartGrid3D.F b/src/CartGrid3D.F index dac1df3..b04f5a7 100644 --- a/src/CartGrid3D.F +++ b/src/CartGrid3D.F @@ -46,10 +46,22 @@ c -------------------------------------------------------------- if (CCTK_Equals(symmetry,'octant') == 1) then iflag = iflag +1 + +c Grid spacing on coarsest grid coarse_dx = grid_xmax/(DBLE(global_sh(1))-1.5d0) coarse_dy = grid_ymax/(DBLE(global_sh(2))-1.5d0) coarse_dz = grid_zmax/(DBLE(global_sh(3))-1.5d0) +c Grid spacing on this grid + dx = -coarse_dx*0.5d0 + dy = -coarse_dy*0.5d0 + dz = -coarse_dz*0.5d0 + +c Minimum coordinate values on this grid + x0 = (0.5-dble(nghostzones))*dx + y0 = (0.5-dble(nghostzones))*dy + z0 = (0.5-dble(nghostzones))*dz + else if (CCTK_Equals(symmetry,'quadrant') == 1) then iflag = iflag +1 |