PrimalMinimizer.h

Go to the documentation of this file.

/*
 * (C) Copyright 2009-2016 ECMWF.
 *
 * This software is licensed under the terms of the Apache Licence Version 2.0
 * which can be obtained at http://www.apache.org/licenses/LICENSE-2.0.
 * In applying this licence, ECMWF does not waive the privileges and immunities
 * granted to it by virtue of its status as an intergovernmental organisation nor
 * does it submit to any jurisdiction.
 */
 
#ifndef OOPS_ASSIMILATION_PRIMALMINIMIZER_H_
#define OOPS_ASSIMILATION_PRIMALMINIMIZER_H_
 
#include <string>
 
#include "eckit/config/Configuration.h"
#include "oops/assimilation/BMatrix.h"
#include "oops/assimilation/ControlIncrement.h"
#include "oops/assimilation/CostFunction.h"
#include "oops/assimilation/Minimizer.h"
#include "oops/util/Logger.h"
 
namespace oops {
 
/// Primal Minimizer
/*!
 * PrimalMinimizer is the base class for all minimizers that minimize the
 * variational data assimilation cost function in primal (model) space.
 */
 
// -----------------------------------------------------------------------------
 
template<typename MODEL, typename OBS> class PrimalMinimizer : public Minimizer<MODEL, OBS> {
  typedef CostFunction<MODEL, OBS>        CostFct_;
  typedef ControlIncrement<MODEL, OBS>    CtrlInc_;
  typedef BMatrix<MODEL, OBS>             Bmat_;
  typedef HessianMatrix<MODEL, OBS>       Hessian_;
  typedef Minimizer<MODEL, OBS>           Minimizer_;
 
 public:
  explicit PrimalMinimizer(const CostFct_ & J): Minimizer_(J), J_(J) {}
  ~PrimalMinimizer() {}
  const std::string classname() const override = 0;
 
 private:
  CtrlInc_ * doMinimize(const eckit::Configuration &) override;
  virtual double solve(CtrlInc_ &, const CtrlInc_ &,
                       const Hessian_ &, const Bmat_ &,
                       const int, const double) = 0;
 
  const CostFct_ & J_;
};
 
// =============================================================================
 
template<typename MODEL, typename OBS>
ControlIncrement<MODEL, OBS> *
PrimalMinimizer<MODEL, OBS>::doMinimize(const eckit::Configuration & config) {
  int ninner = config.getInt("ninner");
  double gnreduc = config.getDouble("gradient norm reduction");
 
  bool runOnlineAdjTest = config.getBool("online diagnostics.online adj test", false);
 
  Log::info() << classname() << ": max iter = " << ninner
              << ", requested norm reduction = " << gnreduc << std::endl;
 
// Define the matrices
  Hessian_ hessian(J_, runOnlineAdjTest);
  Bmat_ B(J_);
 
// Compute RHS
  CtrlInc_ rhs(J_.jb());
  J_.computeGradientFG(rhs);
  J_.jb().addGradientFG(rhs);
  rhs *= -1.0;
  Log::info() << classname() << " rhs" << rhs << std::endl;
 
// Define minimisation starting point
  CtrlInc_ * dx = new CtrlInc_(J_.jb());
 
// Solve the linear system
  double reduc = this->solve(*dx, rhs, hessian, B, ninner, gnreduc);
 
  Log::test() << classname() << ": reduction in residual norm = " << reduc << std::endl;
  Log::info() << classname() << " output" << *dx << std::endl;
 
  return dx;
}
 
// -----------------------------------------------------------------------------
 
}  // namespace oops
 
#endif  // OOPS_ASSIMILATION_PRIMALMINIMIZER_H_