diff options
| author | allen <allen@c78560ca-4b45-4335-b268-5f3340f3cb52> | 1999-03-20 21:38:37 +0000 |
|---|---|---|
| committer | allen <allen@c78560ca-4b45-4335-b268-5f3340f3cb52> | 1999-03-20 21:38:37 +0000 |
| commit | 7fb8aa9cd68dea01c106abfe4ada66dc3737974c (patch) | |
| tree | 989b1581f62820739e4d713aa5700f39af2d6ef7 | |
| parent | 9728dac685873da59dec0811b29646beee508ab4 (diff) | |
Some debuging comments
git-svn-id: http://svn.cactuscode.org/arrangements/CactusBase/CartGrid3D/trunk@12 c78560ca-4b45-4335-b268-5f3340f3cb52
| -rw-r--r-- | src/CartGrid3D.F | 16 |
1 files changed, 12 insertions, 4 deletions
diff --git a/src/CartGrid3D.F b/src/CartGrid3D.F index 720a169..dac1df3 100644 --- a/src/CartGrid3D.F +++ b/src/CartGrid3D.F @@ -7,6 +7,8 @@ @enddesc @@*/ +/*#define CARTGRID3D_DEBUG*/ + #include "cctk.h" #include "declare_arguments.h" #include "declare_parameters.h" @@ -44,9 +46,9 @@ c -------------------------------------------------------------- if (CCTK_Equals(symmetry,'octant') == 1) then iflag = iflag +1 - 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)) + 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 @@ -58,7 +60,7 @@ c -------------------------------------------------------------- iflag = iflag +1 print *,"FIXME" - else ! no symmetries + else if (CCTK_Equals(symmetry,'full') == 1) then iflag = iflag +1 @@ -188,6 +190,12 @@ c ----------------------- x(i,j,k) = dx*(i+lb(1)-1) + x0 y(i,j,k) = dy*(j+lb(2)-1) + y0 z(i,j,k) = dz*(k+lb(3)-1) + z0 + +#ifdef CARTGRID3D_DEBUG + write(*,*) "Index: ",i,j,k + write(*,*) "Coord: ",x(i,j,k),y(i,j,k),z(i,j,k) +#endif + end do end do end do |