diff --git a/source/main.f90 b/source/main.f90 index 600e4ae..3e14347 100644 --- a/source/main.f90 +++ b/source/main.f90 @@ -3047,7 +3047,6 @@ subroutine rocket_output(ioout, prob, solver, solutions) trace_names(num_trace) = solver%eq_solver%products%species_names(ii) end if end do - trace_names = trace_names(:num_trace) ! Print the mole or mass fractions write(ioout, *) "" @@ -3471,7 +3470,6 @@ subroutine rocket_output(ioout, prob, solver, solutions) trace_names(num_trace) = solver%eq_solver%products%species_names(ii) end if end do - trace_names = trace_names(:num_trace) ! Print the mole or mass fractions write(ioout, *) ""