|
PISM, A Parallel Ice Sheet Model stable 0.4.1779
|
00001 /* 00002 Copyright (C) 2011 Ed Bueler 00003 00004 This file is part of PISM. 00005 00006 PISM is free software; you can redistribute it and/or modify it under the 00007 terms of the GNU General Public License as published by the Free Software 00008 Foundation; either version 2 of the License, or (at your option) any later 00009 version. 00010 00011 PISM is distributed in the hope that it will be useful, but WITHOUT ANY 00012 WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS 00013 FOR A PARTICULAR PURPOSE. See the GNU General Public License for more 00014 details. 00015 00016 You should have received a copy of the GNU General Public License 00017 along with PISM; if not, write to the Free Software 00018 Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA 00019 */ 00020 00021 #ifndef __exactTestO_h 00022 #define __exactTestO_h 1 00023 00024 #ifdef __cplusplus 00025 extern "C" 00026 { 00027 #endif 00028 00029 /* 00030 Basal-melt rate computation exact solution. Utterly straightforward arithmetic. 00031 00032 See also src/exact/simpleO.c. 00033 00034 Fills this z-dependent quantity: 00035 TT = temperature at z, whether in ice (z >= 0) or in bedrock (z < 0) 00036 Also fills these z-independent quantities: 00037 Tm = the pressure-melting temperature (K) at the base of the ice (z=0) 00038 qice = upward heat flux (J m-2 s-1) within the ice, 0 <= z < H0 00039 qbed = upward heat flux (J m-2 s-1) within the bedrock, -B0 < z < 0 00040 bmelt = exact solution for melt rate (ice-equivalent m s-1) at base (z=0) 00041 */ 00042 00043 int exactO(const double z, double *TT, double *Tm, double *qice, double *qbed, 00044 double *bmelt); 00045 00046 #ifdef __cplusplus 00047 } 00048 #endif 00049 00050 #endif /* __exactTestO_h */ 00051
1.7.3