tDelta_SL.cc - 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
---
tDelta_SL.cc (1816B)
---
1 // Copyright (C) 2011, 2012, 2013, 2014, 2015, 2016, 2017, 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 #include "Delta_SL.hh"
20 #include "pism/coupler/util/ScalarForcing.hh"
21
22 namespace pism {
23 namespace ocean {
24 namespace sea_level {
25
26 Delta_SL::Delta_SL(IceGrid::ConstPtr grid, std::shared_ptr<SeaLevel> in)
27 : SeaLevel(grid, in) {
28
29 m_forcing.reset(new ScalarForcing(grid->ctx(),
30 "ocean.delta_sl", "delta_SL",
31 "m", "m",
32 "sea level elevation offsets"));
33 }
34
35 Delta_SL::~Delta_SL() {
36 // empty
37 }
38
39 void Delta_SL::init_impl(const Geometry &geometry) {
40
41 m_input_model->init(geometry);
42
43 m_log->message(2, "* Initializing scalar sea level forcing...\n");
44
45 m_forcing->init();
46 }
47
48 void Delta_SL::update_impl(const Geometry &geometry, double t, double dt) {
49 m_input_model->update(geometry, t, dt);
50
51 m_forcing->update(t, dt);
52
53 m_sea_level.copy_from(m_input_model->elevation());
54 m_sea_level.shift(m_forcing->value());
55 }
56
57 } // end of namespace sea_level
58 } // end of namespace ocean
59 } // end of namespace pism