User: knarf Date: 2012/11/23 03:25 PM

Modified: /trunk/src/ Utils.F90

Log: remove unused variable; instead of using aint which truncates but doesn't convert type, use int which does both -> silences compiler warning

File Changes:

Directory: /trunk/src/ ======================

File [modified]: Utils.F90 Delta lines: +2 -3 =================================================================== --- trunk/src/Utils.F90 2012-11-09 01:53:23 UTC (rev 439) +++ trunk/src/Utils.F90 2012-11-23 21:25:35 UTC (rev 440) @@ -34,7 +34,7 @@ integer i,j,k integer nx, ny, nz

- GRHydro_reflevel = aint(log10(dble(cctk_levfac(1)))/log10(2.0d0)) + GRHydro_reflevel = int(log10(dble(cctk_levfac(1)))/log10(2.0d0))

nx = cctk_lsh(1) ny = cctk_lsh(2) @@ -67,7 +67,7 @@ implicit none DECLARE_CCTK_ARGUMENTS

- GRHydro_reflevel = aint(log10(dble(cctk_levfac(1)))/log10(2.0d0)) + GRHydro_reflevel = int(log10(dble(cctk_levfac(1)))/log10(2.0d0))

end subroutine GRHydro_RefinementLevel

@@ -169,7 +169,6 @@ DECLARE_CCTK_PARAMETERS

CCTK_INT :: i, j, k, nx, ny, nz - CCTK_REAL :: psi4pt

nx = cctk_lsh(1) ny = cctk_lsh(2)