diff options
author | Erik Schnetter <schnetter@cct.lsu.edu> | 2011-03-10 22:32:35 -0500 |
---|---|---|
committer | Erik Schnetter <schnetter@cct.lsu.edu> | 2011-03-10 22:32:35 -0500 |
commit | 601bb63197c2eed2ba696c100468f7135339a0ba (patch) | |
tree | 5602ef97600556225c6f8a244bbd9762970f4b69 /CarpetExtra/CarpetProlongateTest/src | |
parent | c8eda9c06840d5f3c3b2afe3acf52e11f62fee3f (diff) |
CarpetProlongateTest: Disable debug output
Diffstat (limited to 'CarpetExtra/CarpetProlongateTest/src')
-rw-r--r-- | CarpetExtra/CarpetProlongateTest/src/init.F90 | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/CarpetExtra/CarpetProlongateTest/src/init.F90 b/CarpetExtra/CarpetProlongateTest/src/init.F90 index 9784dd8e8..85a94903e 100644 --- a/CarpetExtra/CarpetProlongateTest/src/init.F90 +++ b/CarpetExtra/CarpetProlongateTest/src/init.F90 @@ -76,8 +76,8 @@ subroutine CarpetProlongateTest_Init (CCTK_ARGUMENTS) DECLARE_CCTK_ARGUMENTS DECLARE_CCTK_PARAMETERS - print '("CarpetProlongateTest_Init it=",i0," t=",g0.6, " rl=",i0)', & - cctk_iteration, cctk_time, nint(log(dble(cctk_levfac(1)))/log(2.0d0)) +!!$ print '("CarpetProlongateTest_Init it=",i0," t=",g0.6, " rl=",i0)', & +!!$ cctk_iteration, cctk_time, nint(log(dble(cctk_levfac(1)))/log(2.0d0)) ! Add +1 to coordinates so that the domain is not symmetric about ! the origin (which may accidendally cancel out some errors) @@ -109,8 +109,8 @@ subroutine CarpetProlongateTest_InterpInit (CCTK_ARGUMENTS) integer :: i,j,k integer :: ierr - print '("CarpetProlongateTest_InterpInit it=",i0," t=",g0.6, " rl=",i0)', & - cctk_iteration, cctk_time, nint(log(dble(cctk_levfac(1)))/log(2.0d0)) +!!$ print '("CarpetProlongateTest_InterpInit it=",i0," t=",g0.6, " rl=",i0)', & +!!$ cctk_iteration, cctk_time, nint(log(dble(cctk_levfac(1)))/log(2.0d0)) call CCTK_GrouplbndGN (ierr, cctkGH, 3, lbnd, "CarpetProlongateTest::interp_difference") if (ierr/=0) call CCTK_WARN (0, "internal error") @@ -163,8 +163,8 @@ subroutine CarpetProlongateTest_Interp (CCTK_ARGUMENTS) integer :: ierr - print '("CarpetProlongateTest_Interp it=",i0," t=",g0.6, " rl=",i0)', & - cctk_iteration, cctk_time, nint(log(dble(cctk_levfac(1)))/log(2.0d0)) +!!$ print '("CarpetProlongateTest_Interp it=",i0," t=",g0.6, " rl=",i0)', & +!!$ cctk_iteration, cctk_time, nint(log(dble(cctk_levfac(1)))/log(2.0d0)) call CCTK_GrouplshGN (ierr, cctkGH, 3, lsh, "CarpetProlongateTest::interp_difference") if (ierr/=0) call CCTK_WARN (0, "internal error") @@ -223,8 +223,8 @@ subroutine CarpetProlongateTest_InterpDiff (CCTK_ARGUMENTS) implicit none DECLARE_CCTK_ARGUMENTS - print '("CarpetProlongateTest_InterpDiff it=",i0," t=",g0.6, " rl=",i0)', & - cctk_iteration, cctk_time, nint(log(dble(cctk_levfac(1)))/log(2.0d0)) +!!$ print '("CarpetProlongateTest_InterpDiff it=",i0," t=",g0.6, " rl=",i0)', & +!!$ cctk_iteration, cctk_time, nint(log(dble(cctk_levfac(1)))/log(2.0d0)) interp_u0 = & density_time_scale(cctk_time) * & |