tlapse_rates.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
       ---
       tlapse_rates.cc (1435B)
       ---
            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 #include <cmath>                // fabs
           21 
           22 #include "pism/util/iceModelVec.hh"
           23 
           24 namespace pism {
           25 
           26 void lapse_rate_correction(const IceModelVec2S &surface,
           27                            const IceModelVec2S &reference_surface,
           28                            double lapse_rate,
           29                            IceModelVec2S &result) {
           30   IceGrid::ConstPtr grid = result.grid();
           31 
           32   if (fabs(lapse_rate) < 1e-12) {
           33     return;
           34   }
           35 
           36   IceModelVec::AccessList list{&surface, &reference_surface, &result};
           37 
           38   for (Points p(*grid); p; p.next()) {
           39     const int i = p.i(), j = p.j();
           40 
           41     result(i, j) -= lapse_rate * (surface(i,j) - reference_surface(i, j));
           42   }
           43 }
           44 
           45 } // end of namespace pism