From 37fd432598b42f0bcf3194a24e18359b8003779d Mon Sep 17 00:00:00 2001 From: allen Date: Wed, 24 Mar 1999 12:14:46 +0000 Subject: Sorting out some of the grid options git-svn-id: http://svn.cactuscode.org/arrangements/CactusBase/CartGrid3D/trunk@13 c78560ca-4b45-4335-b268-5f3340f3cb52 --- src/CartGrid3D.F | 12 ++++++++++++ 1 file changed, 12 insertions(+) (limited to 'src') 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 -- cgit v1.2.3