chiark / gitweb /
Remove some debugging
[ypp-sc-tools.main.git] / 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).