https://github.com/geodynamics/citcoms
Revision 2b8ed1fa028a0457da2a8c686072407ed5c0d930 authored by Thorsten Becker on 22 August 2012, 21:21:52 UTC, committed by Thorsten Becker on 22 August 2012, 21:21:52 UTC
"a new method of finding the element of a tracer that is too close to an element boundary. Up to now such a tracer was shifted by a constant epsilon theta and phi. If the element boundary is parallel to this theta/phi direction it is not guaranteed to work well (thus the number_of_tries check), and additionally I got the problem that sometimes all elements refuse this tracer. Eh checked in a workaround for this (r15742), deleting orphan tracers in Tracer_setup.c. Because I did not know this, I created my own bugfix moving the tracers an epsilon amount orthogonal to all boundaries that are too close. In order to save computing time I use the already computed vectors for the element boundaries (this assumes that the element boundaries are nearly orthogonal to each other, but unless somebody tries to change CitcomS elements that should work fine). The shift happens now in cartesian coordinates since the boundary-vectors are cartesian and the radius-coordinate of the tracer is normalized prior to this check anyway, so I just need to re-normalize it after the shift. For now I did not touch all the now (hopefully) useless security checks but as far as I can see they do no harm either, so we can remove them later."
1 parent 11854a5
Tip revision: 2b8ed1fa028a0457da2a8c686072407ed5c0d930 authored by Thorsten Becker on 22 August 2012, 21:21:52 UTC
Implemented improved tracer fix by Rene.
Implemented improved tracer fix by Rene.
Tip revision: 2b8ed1f
mesher.c
/*
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
//
//<LicenseText>
//
// CitcomS.py by Eh Tan, Eun-seo Choi, and Pururav Thoutireddy.
// Copyright (C) 2002-2005, California Institute of Technology.
//
// This program is free software; you can redistribute it and/or modify
// it under the terms of the GNU General Public License as published by
// the Free Software Foundation; either version 2 of the License, or
// (at your option) any later version.
//
// This program is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
// GNU General Public License for more details.
//
// You should have received a copy of the GNU General Public License
// along with this program; if not, write to the Free Software
// Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
//
//</LicenseText>
//
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
*/
#include <Python.h>
#include "exceptions.h"
#include "mesher.h"
#include "global_defs.h"
#include "parallel_related.h"
extern void initial_mesh_solver_setup(struct All_variables *);
char pyCitcom_set_3dsphere_defaults__doc__[] = "";
char pyCitcom_set_3dsphere_defaults__name__[] = "set_3dsphere_defaults";
PyObject * pyCitcom_set_3dsphere_defaults(PyObject *self, PyObject *args)
{
PyObject *obj;
struct All_variables* E;
if (!PyArg_ParseTuple(args, "O:set_3dsphere_defaults", &obj))
return NULL;
E = (struct All_variables*)(PyCObject_AsVoidPtr(obj));
(E->solver.set_3dsphere_defaults)(E);
Py_INCREF(Py_None);
return Py_None;
}
char pyCitcom_full_sphere_launch__doc__[] = "";
char pyCitcom_full_sphere_launch__name__[] = "full_sphere_launch";
PyObject * pyCitcom_full_sphere_launch(PyObject *self, PyObject *args)
{
PyObject *obj;
struct All_variables* E;
if (!PyArg_ParseTuple(args, "O:full_sphere_launch", &obj))
return NULL;
E = (struct All_variables*)(PyCObject_AsVoidPtr(obj));
initial_mesh_solver_setup(E);
Py_INCREF(Py_None);
return Py_None;
}
char pyCitcom_regional_sphere_launch__doc__[] = "";
char pyCitcom_regional_sphere_launch__name__[] = "regional_sphere_launch";
PyObject * pyCitcom_regional_sphere_launch(PyObject *self, PyObject *args)
{
PyObject *obj;
struct All_variables* E;
if (!PyArg_ParseTuple(args, "O:regional_sphere_launch", &obj))
return NULL;
E = (struct All_variables*)(PyCObject_AsVoidPtr(obj));
initial_mesh_solver_setup(E);
Py_INCREF(Py_None);
return Py_None;
}
/* $Id$ */
/* End of file */
Computing file changes ...