|
PISM, A Parallel Ice Sheet Model stable 0.4.1779
|
00001 /* 00002 Copyright (C) 2004-2006 Jed Brown and 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 __exactTestIJ_h 00022 #define __exactTestIJ_h 1 00023 00024 #ifdef __cplusplus 00025 extern "C" 00026 { 00027 #endif 00028 00029 /* 00030 12/8/06; 8/24/07 00031 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 00032 ! 00033 ! exactTestIJ contains C implementations of: 00034 ! 1. an exact solution for an ice stream sliding over plastic till described 00035 ! on pages 237 and 238 of C. Schoof 2006 "A variational approach to ice 00036 ! streams" J Fluid Mech 556 pp 227--251 00037 ! 2. an exact solution for a linearized ice shelf with periodic boundary 00038 ! conditions [CREATED BY ELB; ONLY REFERENCE IS EARLY PREPRINT] 00039 ! 00040 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 00041 */ 00042 00043 int exactI(const double m, const double x, const double y, 00044 double *bed, double *tauc, double *u, double *v); 00045 00046 int exactJ(const double x, const double y, 00047 double *H, double *nu, double *u, double *v); 00048 00049 #ifdef __cplusplus 00050 } 00051 #endif 00052 00053 00054 #endif /* __exactTestIJ_h */
1.7.3