diff options
| author | allen <allen@c78560ca-4b45-4335-b268-5f3340f3cb52> | 1999-03-20 09:32:20 +0000 |
|---|---|---|
| committer | allen <allen@c78560ca-4b45-4335-b268-5f3340f3cb52> | 1999-03-20 09:32:20 +0000 |
| commit | 9728dac685873da59dec0811b29646beee508ab4 (patch) | |
| tree | 89a9f41bd521ea8a2f97b0ebe0ba5581c3367b44 | |
| parent | 89b83938e74a58097684c6e45307125719de431d (diff) | |
Adding grids
git-svn-id: http://svn.cactuscode.org/arrangements/CactusBase/CartGrid3D/trunk@11 c78560ca-4b45-4335-b268-5f3340f3cb52
| -rw-r--r-- | src/CartGrid3D.F | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/CartGrid3D.F b/src/CartGrid3D.F index 61a5c76..720a169 100644 --- a/src/CartGrid3D.F +++ b/src/CartGrid3D.F @@ -44,7 +44,9 @@ c -------------------------------------------------------------- if (CCTK_Equals(symmetry,'octant') == 1) then iflag = iflag +1 - print *,"FIXME" + 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)) else if (CCTK_Equals(symmetry,'quadrant') == 1) then |