tCompleteOceanModel.cc - pism - [fork] customized build of PISM, the parallel ice sheet model (tillflux branch)
 (HTM) git clone git://src.adamsgaard.dk/pism
 (DIR) Log
 (DIR) Files
 (DIR) Refs
 (DIR) LICENSE
       ---
       tCompleteOceanModel.cc (1621B)
       ---
            1 /* Copyright (C) 2018, 2019 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 #include "CompleteOceanModel.hh"
           21 
           22 namespace pism {
           23 namespace ocean {
           24 
           25 // "modifier" constructor
           26 CompleteOceanModel::CompleteOceanModel(IceGrid::ConstPtr g, std::shared_ptr<OceanModel> input)
           27   : OceanModel(g, input) {
           28 
           29   m_shelf_base_temperature = allocate_shelf_base_temperature(g);
           30   m_shelf_base_mass_flux = allocate_shelf_base_mass_flux(g);
           31 }
           32 
           33 // "model" constructor
           34 CompleteOceanModel::CompleteOceanModel(IceGrid::ConstPtr g)
           35   : CompleteOceanModel(g, std::shared_ptr<OceanModel>()) {
           36   // empty
           37 }
           38 
           39 CompleteOceanModel::~CompleteOceanModel() {
           40   // empty
           41 }
           42 
           43 const IceModelVec2S& CompleteOceanModel::shelf_base_temperature_impl() const {
           44   return *m_shelf_base_temperature;
           45 }
           46 
           47 const IceModelVec2S& CompleteOceanModel::shelf_base_mass_flux_impl() const {
           48   return *m_shelf_base_mass_flux;
           49 }
           50 
           51 } // end of namespace ocean
           52 } // end of namespace pism