tCHSystem.hh - pism - [fork] customized build of PISM, the parallel ice sheet model (tillflux branch)
HTML git clone git://src.adamsgaard.dk/pism
DIR Log
DIR Files
DIR Refs
DIR LICENSE
---
tCHSystem.hh (2316B)
---
1 /* Copyright (C) 2018 PISM Authors
2 *
3 * This file is part of PISM.
4 *
5 * PISM is free software; you can redistribute it and/or modify it under the
6 * terms of the GNU General Public License as published by the Free Software
7 * Foundation; either version 3 of the License, or (at your option) any later
8 * version.
9 *
10 * PISM is distributed in the hope that it will be useful, but WITHOUT ANY
11 * WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
12 * FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
13 * details.
14 *
15 * You should have received a copy of the GNU General Public License
16 * along with PISM; if not, write to the Free Software
17 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
18 */
19
20 #ifndef CHSYSTEM_H
21 #define CHSYSTEM_H
22
23 #include "EnergyModel.hh"
24
25 namespace pism {
26 namespace energy {
27
28 class CHSystem : public EnergyModel {
29 public:
30 CHSystem(IceGrid::ConstPtr grid, stressbalance::StressBalance *stress_balance);
31 virtual ~CHSystem();
32
33 protected:
34 void restart_impl(const File &input_file, int record);
35
36 void bootstrap_impl(const File &input_file,
37 const IceModelVec2S &ice_thickness,
38 const IceModelVec2S &surface_temperature,
39 const IceModelVec2S &climatic_mass_balance,
40 const IceModelVec2S &basal_heat_flux);
41
42 void initialize_impl(const IceModelVec2S &basal_melt_rate,
43 const IceModelVec2S &ice_thickness,
44 const IceModelVec2S &surface_temperature,
45 const IceModelVec2S &climatic_mass_balance,
46 const IceModelVec2S &basal_heat_flux);
47
48 void update_impl(double t, double dt, const Inputs &inputs);
49
50 void define_model_state_impl(const File &output) const;
51 void write_model_state_impl(const File &output) const;
52 };
53
54 void cryo_hydrologic_warming_flux(double k,
55 double R,
56 const IceModelVec2S &ice_thickness,
57 const IceModelVec3 &ice_enthalpy,
58 const IceModelVec3 &ch_enthalpy,
59 IceModelVec3 &result);
60
61 } // end of namespace energy
62 } // end of namespace pism
63
64 #endif /* CHSYSTEM_H */