tPatersonBuddWarm.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
       ---
       tPatersonBuddWarm.cc (1735B)
       ---
            1 /* Copyright (C) 2015 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 <cmath>
           21 
           22 #include "PatersonBuddWarm.hh"
           23 
           24 namespace pism {
           25 namespace rheology {
           26 
           27 PatersonBuddWarm::PatersonBuddWarm(const std::string &prefix,
           28                    const Config &config, EnthalpyConverter::Ptr ec)
           29   : PatersonBudd(prefix, config, ec) {
           30   m_name = "Paterson-Budd (warm case)";
           31 }
           32 
           33 PatersonBuddWarm::~PatersonBuddWarm() {
           34   // empty
           35 }
           36 
           37 double PatersonBuddWarm::tempFromSoftness(double A) const {
           38   return - m_Q_warm / (m_ideal_gas_constant * (log(A) - log(m_A_warm)));
           39 }
           40 
           41 // takes care of hardness...
           42 double PatersonBuddWarm::softness_from_temp(double T_pa) const {
           43   return m_A_warm * exp(-m_Q_warm / (m_ideal_gas_constant * T_pa));
           44 }
           45 
           46 // ignores pressure and uses non-pressure-adjusted temperature
           47 double PatersonBuddWarm::flow_from_temp(double stress, double temp,
           48                                         double , double) const {
           49   return softness_from_temp(temp) * pow(stress,m_n-1);
           50 }
           51 
           52 
           53 } // end of namespace rheology
           54 } // end of namespace pism