Do not fix up the boundaries of analysis quantities any more; Kranc now handles this correctly.

3 files changed, 0 insertions, 74 deletions

diff --git a/m/Makefile b/m/Makefile
index 7a4fa90..48c7197 100644
--- a/m/Makefile
+++ b/m/Makefile
@@ -26,7 +26,6 @@ McLachlan_ADMConstraints.out: McLachlan_ADMConstraints.m
 	./runmath.sh $^
 	perl -pi -e 's/MoL_PostStep/MoL_PseudoEvolution/g' ML_ADMConstraints*/schedule.ccl
 	for thorn in ML_ADMConstraints*; do \
-		./fixup-ADMConstraints.pl $$thorn; \
 		./copy-if-changed.sh $$thorn ../$$thorn; \
 	done
 
@@ -35,7 +34,6 @@ McLachlan_ADMQuantities.out: McLachlan_ADMQuantities.m
 	./runmath.sh $^
 	perl -pi -e 's/MoL_PostStep/MoL_PseudoEvolution/g' ML_ADMQuantities*/schedule.ccl
 	for thorn in ML_ADMQuantities*; do \
-		./fixup-ADMQuantities.pl $$thorn; \
 		./copy-if-changed.sh $$thorn ../$$thorn; \
 	done
 
diff --git a/m/fixup-ADMConstraints.pl b/m/fixup-ADMConstraints.pl
deleted file mode 100755
index 121b3b9..0000000
--- a/m/fixup-ADMConstraints.pl
+++ /dev/null
@@ -1,36 +0,0 @@
-#! /usr/bin/perl -w
-
-use strict;
-
-my $thorn = $ARGV[0];
-print "Post-processing thorn $thorn\n";
-
-my $filename = "$thorn/src/Boundaries.c";
-
-open (FILE, "< $filename") or die "Cannot read file \"$filename\"";
-my @lines = <FILE>;
-close FILE or die;
-
-#my $n=0;
-#foreach my $line (@lines) {
-#    print "$n   $line";
-#    ++$n;
-#}
-
-$lines[33] = <<EOF;
-  ierr = Boundary_SelectGroupForBC (cctkGH, CCTK_ALL_FACES, boundary_width, -1, "${thorn}::ML_Ham", "scalar");
-  if (ierr<0) CCTK_WARN (CCTK_WARN_ABORT, "Failed to select boundary condition for ${thorn}::ML_Ham");
-
-  ierr = Boundary_SelectGroupForBC (cctkGH, CCTK_ALL_FACES, boundary_width, -1, "${thorn}::ML_mom", "scalar");
-  if (ierr<0) CCTK_WARN (CCTK_WARN_ABORT, "Failed to select boundary condition for ${thorn}::ML_mom");
-EOF
-
-#my $n=0;
-#foreach my $line (@lines) {
-#    print "$n   $line";
-#    ++$n;
-#}
-
-open (FILE, "> $filename") or die "Cannot write file \"$filename\"";
-print FILE join '', @lines;
-close FILE or die;
diff --git a/m/fixup-ADMQuantities.pl b/m/fixup-ADMQuantities.pl
deleted file mode 100755
index bd1ffb3..0000000
--- a/m/fixup-ADMQuantities.pl
+++ /dev/null
@@ -1,36 +0,0 @@
-#! /usr/bin/perl -w
-
-use strict;
-
-my $thorn = $ARGV[0];
-print "Post-processing thorn $thorn\n";
-
-my $filename = "$thorn/src/Boundaries.c";
-
-open (FILE, "< $filename") or die "Cannot read file \"$filename\"";
-my @lines = <FILE>;
-close FILE or die;
-
-#my $n=0;
-#foreach my $line (@lines) {
-#    print "$n   $line";
-#    ++$n;
-#}
-
-$lines[33] = <<EOF;
-  ierr = Boundary_SelectGroupForBC (cctkGH, CCTK_ALL_FACES, boundary_width, -1, "${thorn}::ML_Jadm", "scalar");
-  if (ierr<0) CCTK_WARN (CCTK_WARN_ABORT, "Failed to select boundary condition for ${thorn}::ML_Jadm");
-
-  ierr = Boundary_SelectGroupForBC (cctkGH, CCTK_ALL_FACES, boundary_width, -1, "${thorn}::ML_Madm", "scalar");
-  if (ierr<0) CCTK_WARN (CCTK_WARN_ABORT, "Failed to select boundary condition for ${thorn}::ML_Madm");
-EOF
-
-#my $n=0;
-#foreach my $line (@lines) {
-#    print "$n   $line";
-#    ++$n;
-#}
-
-open (FILE, "> $filename") or die "Cannot write file \"$filename\"";
-print FILE join '', @lines;
-close FILE or die;