30char TBL_VAL_INTER_C[] =
"$Header: /cvsroot/Lorene/C++/Source/Valencia/tbl_val_interp.C,v 1.13 2014/10/13 08:53:48 j_novak Exp $" ;
101 if (
etat == ETATZERO) {
117 int* nphi =
new int[
nzin] ;
130 cout <<
"Tbl_val::to_spectral: The numbers of points in phi" <<
endl ;
131 cout <<
"in the different domains of Meudon grid are not" <<
endl;
132 cout <<
"well defined; see the documentation." <<
endl ;
137 cout <<
"Tbl_val::to_spectral: The numbers of points in theta"<<
endl ;
138 cout <<
"in the different domains of Meudon grid are not" <<
endl;
139 cout <<
"well defined; see the documentation." <<
endl ;
145 resu.allocate_all() ;
159 fdep.set_etat_qcq() ;
163 rarr.set_etat_qcq() ;
188 fdep.set_etat_qcq() ;
197 rarr.set_etat_qcq() ;
231 cout <<
"The use of routine INSMTS is not well suited" <<
endl ;
232 cout <<
"for 3D interpolation." <<
endl ;
239 fdep.set_etat_qcq() ;
250 rarr.set_etat_qcq() ;
277 for (
int k=0;
k<nphi[
l-
lmin];
k++) {
294 cout <<
"Tbl_val::to_spectral:Strange error..." <<
endl ;
315 cout <<
"Tbl_val::from_spectral() : " <<
endl ;
319 if (
meudon.get_etat() == ETATZERO) {
327 switch (
gval->get_ndim()) {
357 cout <<
"Tbl_val::from_spectral:Strange error..." <<
endl ;
Active physical coordinates and mapping derivatives.
Time evolution with partial storage (*** under development ***).
Class for spherical Godunov-type grids.
Base class for coordinate mappings.
Coord r
r coordinate centered on the grid
Coord tet
coordinate centered on the grid
Coord phi
coordinate centered on the grid
const Mg3d * get_mg() const
Gives the Mg3d on which the mapping is defined.
Tensor field of valence 0 (or component of a tensorial field).
const Grille_val * gval
The Grille_val (cartesian or spherical) on which the array is defined.
void from_spectral(const Scalar &meudon, int lmax, int lmin=0, bool interfr=false, bool interft=false)
Interpolation from a Scalar to a Tbl_val (spectral summation).
const Dim_tbl * dim
The Dim_tbl giving the dimensions and number of points (without the hidden cells).
double * txti
The array at x (or ) interfaces.
double * tzri
The array at z (or r) interfaces.
void annule_hard()
Sets the Tbl_val to zero in a hard way.
void set_etat_qcq()
Sets the logical state to ETATQCQ (ordinary state).
Scalar to_spectral(const Map &map, const int lmax, const int lmin=0, int type_inter=2) const
Interpolation from a Tbl_val to a Scalar .
double * t
The array of double at the nodes.
int get_taille() const
Gives the size of the node array (including the hidden cells)
int etat
logical state (ETATNONDEF , ETATQCQ or ETATZERO ).