Some cleaning, info calls, banners, etc.

and changing the default of PUGH::padding_active to "no". This obscure
thingy is in principle only useful on the T3E...

- Joan


git-svn-id: http://svn.cactuscode.org/arrangements/CactusBase/CartGrid3D/trunk@42 c78560ca-4b45-4335-b268-5f3340f3cb52

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(*,*) " ----------"