diff options
Diffstat (limited to 'src/CartGrid3D.F77')
-rw-r--r-- | src/CartGrid3D.F77 | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/src/CartGrid3D.F77 b/src/CartGrid3D.F77 index b4fa02b..44653aa 100644 --- a/src/CartGrid3D.F77 +++ b/src/CartGrid3D.F77 @@ -27,6 +27,8 @@ CCTK_REAL this_dx,this_dy,this_dz CCTK_REAL xmax1,ymax1,zmax1 CCTK_REAL lower,upper,olower,oupper +c Joan was here + character*80 infoline iconv = 2**(cctk_convlevel-1) @@ -108,10 +110,10 @@ c dx,dy,dz on the grid we are on this_dy = coarse_dy*iconv/cctk_levfac(2) this_dz = coarse_dz*iconv/cctk_levfac(3) - write(*,'(1X,A,1X,3(A,G12.7,2X))') + write(infoline,'(1X,A,1X,3(A,G12.7,2X))') & 'Grid by range: Setting ','dx=>',this_dx,'dy=>', & this_dy,'dz=>',this_dz - + call CCTK_INFO(infoline) c ----------------------------------------------------------- c @@ -222,10 +224,10 @@ c Special cases if (cctk_gsh(2) .eq. 1) y_origin = 0.0D0 if (cctk_gsh(3) .eq. 1) z_origin = 0.0D0 - write(*,'(1X,A,1X,3(A,G12.7,2X))') + write(infoline,'(1X,A,1X,3(A,G9.4,1X))') & 'Box grid: Setting ','dx=>',this_dx,'dy=>',this_dy, & 'dz=>',this_dz - + CALL CCTK_INFO(infoline) end if @@ -261,7 +263,7 @@ c ----------------------- upper = z_origin+this_dz*(cctk_gsh(3)-1) call CCTK_RegisterCoordRange(cctkGH,lower,upper,"z") -#ifdef CARTGRID3D_DEBUG +#ifdef CCTK_DEBUG write(*,*) write(*,*) " CartGrid3D" write(*,*) " ----------" |