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).