CHSystem.hh

Go to the documentation of this file.

/* Copyright (C) 2018, 2021, 2023 PISM Authors
 *
 * This file is part of PISM.
 *
 * PISM is free software; you can redistribute it and/or modify it under the
 * terms of the GNU General Public License as published by the Free Software
 * Foundation; either version 3 of the License, or (at your option) any later
 * version.
 *
 * PISM is distributed in the hope that it will be useful, but WITHOUT ANY
 * WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
 * FOR A PARTICULAR PURPOSE.  See the GNU General Public License for more
 * details.
 *
 * You should have received a copy of the GNU General Public License
 * along with PISM; if not, write to the Free Software
 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
 */
 
#ifndef CHSYSTEM_H
#define CHSYSTEM_H
 
#include "pism/energy/EnergyModel.hh"
 
namespace pism {
namespace energy {
 
class CHSystem : public EnergyModel {
public:
  CHSystem(std::shared_ptr<const Grid> grid,
           std::shared_ptr<const stressbalance::StressBalance> stress_balance);
  virtual ~CHSystem() = default;
 
protected:
  void restart_impl(const File &input_file, int record);
 
  void bootstrap_impl(const File &input_file,
                      const array::Scalar &ice_thickness,
                      const array::Scalar &surface_temperature,
                      const array::Scalar &climatic_mass_balance,
                      const array::Scalar &basal_heat_flux);
 
  void initialize_impl(const array::Scalar &basal_melt_rate,
                       const array::Scalar &ice_thickness,
                       const array::Scalar &surface_temperature,
                       const array::Scalar &climatic_mass_balance,
                       const array::Scalar &basal_heat_flux);
 
  void update_impl(double t, double dt, const Inputs &inputs);
 
  void define_model_state_impl(const File &output) const;
  void write_model_state_impl(const File &output) const;
 
  DiagnosticList diagnostics_impl() const;
};
 
void cryo_hydrologic_warming_flux(double k,
                                  double R,
                                  const array::Scalar &ice_thickness,
                                  const array::Array3D &ice_enthalpy,
                                  const array::Array3D &ch_enthalpy,
                                  array::Array3D &result);
 
} // end of namespace energy
} // end of namespace pism
 
#endif /* CHSYSTEM_H */