map_et_dalembert.C

00001 /*
00002  *   Copyright (c) 2000-2001 Jerome Novak
00003  *
00004  *   This file is part of LORENE.
00005  *
00006  *   LORENE is free software; you can redistribute it and/or modify
00007  *   it under the terms of the GNU General Public License as published by
00008  *   the Free Software Foundation; either version 2 of the License, or
00009  *   (at your option) any later version.
00010  *
00011  *   LORENE is distributed in the hope that it will be useful,
00012  *   but WITHOUT ANY WARRANTY; without even the implied warranty of
00013  *   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
00014  *   GNU General Public License for more details.
00015  *
00016  *   You should have received a copy of the GNU General Public License
00017  *   along with LORENE; if not, write to the Free Software
00018  *   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
00019  *
00020  */
00021 
00022 
00023 char map_et_dalembert_C[] = "$Header: /cvsroot/Lorene/C++/Source/Map/map_et_dalembert.C,v 1.4 2004/03/01 09:57:03 j_novak Exp $" ;
00024 
00025 /*
00026  * $Id: map_et_dalembert.C,v 1.4 2004/03/01 09:57:03 j_novak Exp $
00027  * $Log: map_et_dalembert.C,v $
00028  * Revision 1.4  2004/03/01 09:57:03  j_novak
00029  * the wave equation is solved with Scalars. It now accepts a grid with a
00030  * compactified external domain, which the solver ignores and where it copies
00031  * the values of the field from one time-step to the next.
00032  *
00033  * Revision 1.3  2003/06/18 08:45:27  j_novak
00034  * In class Mg3d: added the member get_radial, returning only a radial grid
00035  * For dAlembert solver: the way the coefficients of the operator are defined has been changed.
00036  *
00037  * Revision 1.2  2002/01/03 15:30:28  j_novak
00038  * Some comments modified.
00039  *
00040  * Revision 1.1.1.1  2001/11/20 15:19:27  e_gourgoulhon
00041  * LORENE
00042  *
00043  * Revision 1.3  2001/10/16  10:07:52  novak
00044  * *** empty log message ***
00045  *
00046  * Revision 1.2  2001/07/19 14:13:55  novak
00047  * new list of arguments for Map_et::dalembert
00048  *
00049  * Revision 1.1  2000/10/19 15:41:15  novak
00050  * Initial revision
00051  *
00052  *
00053  * $Header: /cvsroot/Lorene/C++/Source/Map/map_et_dalembert.C,v 1.4 2004/03/01 09:57:03 j_novak Exp $
00054  *
00055  */
00056 
00057 // Header Lorene:
00058 #include "tensor.h"
00059 #include "param.h"
00060 
00061 Mtbl_cf sol_dalembert(Param&, const Map_af&, const Mtbl_cf&) ;
00062 
00063 //*****************************************************************************
00064 
00065 void Map_et::dalembert(Param& , Scalar& fJp1, const Scalar& fJ, const Scalar& fJm1,
00066                const Scalar& source) const {
00067     
00068     assert(source.get_etat() != ETATNONDEF) ; 
00069     assert(source.get_mp().get_mg() == mg) ; 
00070     assert(fJ.get_etat() != ETATNONDEF) ; 
00071     assert(fJ.get_mp().get_mg() == mg) ; 
00072     assert(fJm1.get_etat() != ETATNONDEF) ; 
00073     assert(fJm1.get_mp().get_mg() == mg) ; 
00074     assert(fJp1.get_mp().get_mg() == mg) ; 
00075 
00076     cout << "Map_et_dalembert:" << endl ;
00077     cout << "Not implemented" << endl ;
00078     cout << fJp1 << fJ << fJm1 << source ;
00079     abort() ;
00080 
00081     
00082 }
00083 
00084 

Generated on Tue Feb 7 01:35:18 2012 for LORENE by  doxygen 1.4.6