|
PISM, A Parallel Ice Sheet Model stable 0.4.1779
|
00001 // Copyright (C) 2007-2011 Ed Bueler and Nathan Shemonski and Constantine Khroulev 00002 // 00003 // This file is part of PISM. 00004 // 00005 // PISM is free software; you can redistribute it and/or modify it under the 00006 // terms of the GNU General Public License as published by the Free Software 00007 // Foundation; either version 2 of the License, or (at your option) any later 00008 // version. 00009 // 00010 // PISM is distributed in the hope that it will be useful, but WITHOUT ANY 00011 // WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS 00012 // FOR A PARTICULAR PURPOSE. See the GNU General Public License for more 00013 // details. 00014 // 00015 // You should have received a copy of the GNU General Public License 00016 // along with PISM; if not, write to the Free Software 00017 // Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA 00018 00019 #ifndef __PA_EISMINT_Greenland 00020 #define __PA_EISMINT_Greenland 00021 00022 #include "PISMAtmosphere.hh" 00023 00024 class PA_EISMINT_Greenland : public PAYearlyCycle { 00025 public: 00026 PA_EISMINT_Greenland(IceGrid &g, const NCConfigVariable &conf); 00027 virtual ~PA_EISMINT_Greenland() {} 00028 00029 virtual PetscErrorCode init(PISMVars &vars); 00030 virtual PetscErrorCode update(PetscReal t_years, PetscReal dt_years); 00031 protected: 00032 virtual PetscReal greenhouse_shift(PetscReal t_years, PetscReal dt_years); 00033 bool do_greenhouse_warming; 00034 PetscReal greenhouse_warming_start_year; 00035 IceModelVec2S *lat, *surfelev; 00036 }; 00037 00038 #endif // __PA_EISMINT_Greenland
1.7.3