Fast Scenario-Based Optimal Control for Stochastic Portfolio Optimization with Application to a Large-Scale Portfolio