chiark / gitweb /
Remove some debugging web
authorIan Jackson <ian@liberator.relativity.greenend.org.uk>
Sat, 5 Sep 2009 19:14:36 +0000 (20:14 +0100)
committerIan Jackson <ian@liberator.relativity.greenend.org.uk>
Sat, 5 Sep 2009 19:14:36 +0000 (20:14 +0100)
yarrg/web/routetrade

index e5e59aa..397e385 100644 (file)
@@ -435,15 +435,15 @@ foreach my $ci (0..($#islandids-1)) {
                next unless grep { $f->{'dst_id'} == $_ }
                        @islandids[$ci+1..@islandids-1];
                push @rel_flows, $f;
-print " RELEVANT $ci $f->{Ix}  ";
+#print " RELEVANT $ci $f->{Ix}  ";
        }
-print " RELEVANT $ci COUNT ".scalar(@rel_flows)."  ";
+#print " RELEVANT $ci COUNT ".scalar(@rel_flows)."  ";
        next unless @rel_flows;
        foreach my $mv (qw(mass volume)) {
                my $max_vn= "max_$mv";
                my $max= $mv eq 'mass' ? $max_mass : $max_volume;
                next unless defined $max;
-print " DEFINED MAX $mv $max ";
+#print " DEFINED MAX $mv $max ";
                $cplex .= "
    ". sprintf("%-10s","${mv}_$ci:")." ".
        join(" + ", map { ($_->{"unit$mv"}*1e-3).' f'.$_->{Ix} } @rel_flows).