escript  Revision_
CrossDomainCoupler.h
Go to the documentation of this file.
1 
2 /*****************************************************************************
3 *
4 * Copyright (c) 2003-2018 by The University of Queensland
5 * http://www.uq.edu.au
6 *
7 * Primary Business: Queensland, Australia
8 * Licensed under the Apache License, version 2.0
9 * http://www.apache.org/licenses/LICENSE-2.0
10 *
11 * Development until 2012 by Earth Systems Science Computational Center (ESSCC)
12 * Development 2012-2013 by School of Earth Sciences
13 * Development from 2014 by Centre for Geoscience Computing (GeoComp)
14 *
15 *****************************************************************************/
16 
17 #ifndef __SPECKLEY_CROSSDOMAINCOUPLER_H__
18 #define __SPECKLEY_CROSSDOMAINCOUPLER_H__
19 
20 #include <speckley/Brick.h>
21 #include <speckley/Rectangle.h>
22 
23 #include <ripley/Brick.h>
24 #include <ripley/Rectangle.h>
25 
26 namespace speckley {
27 
28 class RipleyCoupler {
29 public:
30  RipleyCoupler(const SpeckleyDomain *speck, const double s_dx[2], int rank);
31 
32 
33  void interpolate(escript::Data& target, const escript::Data& source) const;
34 private:
35  // a struct type to hold all the relevant info on the target domain
36  struct Ripley {
38  double dx[3];
39  dim_t NE[3];
40  dim_t mins[3];
41  dim_t maxs[3];
42  };
43  void calculateOrder2(int dim, double loc, double *results) const;
44  void calculateOrder3(int dim, double loc, double *results) const;
45  void calculateOrder4(int dim, double loc, double *results) const;
46  void calculateOrder5(int dim, double loc, double *results) const;
47  void calculateOrder6(int dim, double loc, double *results) const;
48  void calculateOrder7(int dim, double loc, double *results) const;
49  void calculateOrder8(int dim, double loc, double *results) const;
50  void calculateOrder9(int dim, double loc, double *results) const;
51  void calculateOrder10(int dim, double loc, double *results) const;
52 
53  void generateLocations(struct Ripley& r, double **positions) const;
54 
55  bool validInterpolation(escript::Data& target, const escript::Data& source,
56  const SpeckleyDomain *speck, const double *s_dx,
57  const ripley::RipleyDomain *other) const;
58  void calculate(struct Ripley& r, dim_t ex, dim_t ey, dim_t ez,
59  int oqx, int oqy, int oqz, double *out, const double *factor_x,
60  const double *factor_y, const double *factor_z,
61  const escript::Data& source) const;
62 
63  void shareWithNeighbours(bool lowerFirst, int hasLower, int hasUpper,
64  double *bottom, double *top, double *brecv, double *trecv,
65  int bSize, int tSize, int distance) const;
66 
67  void getEdgeSpacing(struct Ripley r, int *lower, int *upper) const;
68 
69  void shareBrickXFaces(struct Ripley& r, int hasLower,
70  int hasUpper, int lower, int upper, escript::Data& target) const;
71  void shareBrickYFaces(struct Ripley& r, int hasLower,
72  int hasUpper, int lower, int upper, escript::Data& target) const;
73  void shareBrickZFaces(struct Ripley& r, int hasLower,
74  int hasUpper, int lower, int upper, escript::Data& target) const;
75 
76  void shareRectangleXEdges(struct Ripley& r, int hasLower,
77  int hasUpper, int lower, int upper, escript::Data& target) const;
78  void shareRectangleYEdges(struct Ripley& r, int hasLower,
79  int hasUpper, int lower, int upper, escript::Data& target) const;
80  //speckley info
81  const SpeckleyDomain *speck;
82  dim_t s_NE[3];
83  double s_dx[3];
84  int s_NX[3];
85  double speckley_origin[3];
86  int order;
87  int numQuads;
88 
89  //coupling info
90  bool hasLower[3];
91  bool hasUpper[3];
92 
93  //per interpolation
94  mutable int numComp;
95 
96 #ifdef ESYS_MPI
97  int rank;
98  MPI_Comm comm;
99 #endif
100 
101 };
102 
108 void interpolateAcross3D(escript::Data& target, const escript::Data& source,
109  const Brick *speck, const double s_dx[3], int rank,
110  MPI_Comm comm);
111 
112 bool probeInterpolationAcross(int fsType_source,
113  const escript::AbstractDomain& domain, int fsType_target, int dim);
114 
115 } // end of namespace speckley
116 
117 #endif // __SPECKLEY_CROSSDOMAINCOUPLER_H__
118 
speckley::lagrange_degree10_7
double lagrange_degree10_7(double xi)
Definition: lagrange_functions.h:266
speckley::RipleyCoupler::Ripley::dx
double dx[3]
Definition: CrossDomainCoupler.h:61
speckley::lagrange_degree9_3
double lagrange_degree9_3(double xi)
Definition: lagrange_functions.h:210
speckley::lagrange_degree10_3
double lagrange_degree10_3(double xi)
Definition: lagrange_functions.h:250
speckley::RipleyCoupler::shareBrickZFaces
void shareBrickZFaces(struct Ripley &r, int hasLower, int hasUpper, int lower, int upper, escript::Data &target) const
Definition: CrossDomainCoupler.cpp:751
MPI_Status
int MPI_Status
Definition: EsysMPI.h:43
speckley::lagrange_degree9_8
double lagrange_degree9_8(double xi)
Definition: lagrange_functions.h:230
speckley::RipleyCoupler::Ripley::mins
dim_t mins[3]
Definition: CrossDomainCoupler.h:63
speckley::RipleyCoupler::hasUpper
bool hasUpper[3]
Definition: CrossDomainCoupler.h:114
speckley::RipleyCoupler::s_dx
double s_dx[3]
Definition: CrossDomainCoupler.h:106
speckley::lagrange_degree8_2
double lagrange_degree8_2(double xi)
Definition: lagrange_functions.h:170
speckley::lagrange_degree10_1
double lagrange_degree10_1(double xi)
Definition: lagrange_functions.h:242
ripley::RipleyDomain::getMPIComm
MPI_Comm getMPIComm() const
returns the MPI communicator
Definition: ripley/src/RipleyDomain.h:168
speckley::RipleyCoupler::RipleyCoupler
RipleyCoupler(const SpeckleyDomain *speck, const double s_dx[2], int rank)
Definition: CrossDomainCoupler.cpp:44
speckley::SpeckleyDomain::getLocalCoordinate
virtual double getLocalCoordinate(dim_t index, int dim) const =0
returns the index'th coordinate value in given dimension for this rank
speckley::RipleyCoupler::speck
const SpeckleyDomain * speck
Definition: CrossDomainCoupler.h:104
speckley::lagrange_degree9_2
double lagrange_degree9_2(double xi)
Definition: lagrange_functions.h:206
escript::Data::requireWrite
void requireWrite()
Ensures data is ready for write access. This means that the data will be resolved if lazy and will be...
Definition: Data.cpp:1242
speckley::lagrange_degree10_4
double lagrange_degree10_4(double xi)
Definition: lagrange_functions.h:254
speckley::lagrange_degree4_1
double lagrange_degree4_1(double xi)
Definition: lagrange_functions.h:62
speckley::RipleyCoupler::hasLower
bool hasLower[3]
Definition: CrossDomainCoupler.h:113
INDEX4
#define INDEX4(_X1_, _X2_, _X3_, _X4_, _N1_, _N2_, _N3_)
Definition: index.h:25
speckley::ripleyLocations
const double ripleyLocations[2]
Definition: CrossDomainCoupler.cpp:28
speckley::interpolateAcross3D
void interpolateAcross3D(escript::Data &target, const escript::Data &source, const Brick *speck, const double s_dx[3], int rank, MPI_Comm comm)
interpolates data given on source onto target where source and target are given on different domains
speckley::lagrange_degree4_2
double lagrange_degree4_2(double xi)
Definition: lagrange_functions.h:66
speckley::lagrange_degree8_0
double lagrange_degree8_0(double xi)
Definition: lagrange_functions.h:162
speckley::lagrange_degree8_1
double lagrange_degree8_1(double xi)
Definition: lagrange_functions.h:166
INDEX2
#define INDEX2(_X1_, _X2_, _N1_)
Definition: index.h:21
speckley::RipleyCoupler::calculateOrder7
void calculateOrder7(int dim, double loc, double *results) const
Definition: CrossDomainCoupler.cpp:317
speckley::RipleyCoupler::calculateOrder9
void calculateOrder9(int dim, double loc, double *results) const
Definition: CrossDomainCoupler.cpp:348
escript::Data::getDomain
const_Domain_ptr getDomain() const
Return the domain.
Definition: Data.h:473
speckley::RipleyCoupler::calculateOrder10
void calculateOrder10(int dim, double loc, double *results) const
Definition: CrossDomainCoupler.cpp:365
ripley::RipleyDomain::getElementLength
virtual const double * getElementLength() const =0
returns the lengths of an element
escript::Data::getSampleDataRO
const DataTypes::real_t * getSampleDataRO(DataTypes::RealVectorType::size_type sampleNo, DataTypes::real_t dummy=0) const
Return the sample data for the given sample no. Please do not use this unless you NEED to access samp...
Definition: Data.h:1975
speckley::lagrange_degree7_4
double lagrange_degree7_4(double xi)
Definition: lagrange_functions.h:146
speckley::lagrange_degree8_3
double lagrange_degree8_3(double xi)
Definition: lagrange_functions.h:174
speckley::RipleyCoupler::order
int order
Definition: CrossDomainCoupler.h:109
speckley::RipleyCoupler::shareBrickXFaces
void shareBrickXFaces(struct Ripley &r, int hasLower, int hasUpper, int lower, int upper, escript::Data &target) const
Definition: CrossDomainCoupler.cpp:550
speckley::lagrange_degree7_6
double lagrange_degree7_6(double xi)
Definition: lagrange_functions.h:154
speckley::lagrange_degree9_5
double lagrange_degree9_5(double xi)
Definition: lagrange_functions.h:218
speckley::lagrange_degree10_2
double lagrange_degree10_2(double xi)
Definition: lagrange_functions.h:246
speckley::lagrange_degree9_9
double lagrange_degree9_9(double xi)
Definition: lagrange_functions.h:234
ripley::Elements
Definition: Ripley.h:65
speckley::lagrange_degree5_2
double lagrange_degree5_2(double xi)
Definition: lagrange_functions.h:86
speckley::SpeckleyDomain::getOrder
int getOrder() const
returns the order of the domain
Definition: speckley/src/SpeckleyDomain.h:739
speckley::lagrange_degree5_0
double lagrange_degree5_0(double xi)
Definition: lagrange_functions.h:78
speckley::lagrange_degree2_2
double lagrange_degree2_2(double xi)
Definition: lagrange_functions.h:38
speckley::lagrange_degree8_8
double lagrange_degree8_8(double xi)
Definition: lagrange_functions.h:194
speckley::lagrange_degree6_4
double lagrange_degree6_4(double xi)
Definition: lagrange_functions.h:118
speckley::RipleyCoupler::calculateOrder2
void calculateOrder2(int dim, double loc, double *results) const
Definition: CrossDomainCoupler.cpp:257
speckley::RipleyCoupler::Ripley
Definition: CrossDomainCoupler.h:59
speckley::lagrange_degree5_3
double lagrange_degree5_3(double xi)
Definition: lagrange_functions.h:90
speckley::lagrange_degree9_0
double lagrange_degree9_0(double xi)
Definition: lagrange_functions.h:198
speckley::lagrange_degree10_8
double lagrange_degree10_8(double xi)
Definition: lagrange_functions.h:270
speckley::lagrange_degree8_7
double lagrange_degree8_7(double xi)
Definition: lagrange_functions.h:190
speckley::lagrange_degree7_2
double lagrange_degree7_2(double xi)
Definition: lagrange_functions.h:138
escript::Data::getDataPointSize
int getDataPointSize() const
Return the size of the data point. It is the product of the data point shape dimensions.
Definition: Data.cpp:1363
speckley::lagrange_degree4_3
double lagrange_degree4_3(double xi)
Definition: lagrange_functions.h:70
speckley::RipleyCoupler::shareWithNeighbours
void shareWithNeighbours(bool lowerFirst, int hasLower, int hasUpper, double *bottom, double *top, double *brecv, double *trecv, int bSize, int tSize, int distance) const
Definition: CrossDomainCoupler.cpp:958
speckley::lagrange_degree9_6
double lagrange_degree9_6(double xi)
Definition: lagrange_functions.h:222
speckley::SpeckleyDomain::getNumSubdivisionsPerDim
virtual const int * getNumSubdivisionsPerDim() const =0
returns the number of spatial subdivisions in each dimension
speckley::lagrange_degree8_6
double lagrange_degree8_6(double xi)
Definition: lagrange_functions.h:186
escript::Data::getFunctionSpace
const FunctionSpace & getFunctionSpace() const
Return the function space.
Definition: Data.h:461
speckley::RipleyCoupler::getEdgeSpacing
void getEdgeSpacing(struct Ripley r, int *lower, int *upper) const
Definition: CrossDomainCoupler.cpp:383
speckley::lagrange_degree7_3
double lagrange_degree7_3(double xi)
Definition: lagrange_functions.h:142
speckley::RipleyCoupler::calculateOrder4
void calculateOrder4(int dim, double loc, double *results) const
Definition: CrossDomainCoupler.cpp:278
speckley::probeInterpolationAcross
bool probeInterpolationAcross(int fsType_source, const escript::AbstractDomain &domain, int fsType_target, int dim)
Definition: CrossDomainCoupler.cpp:30
speckley::RipleyCoupler::calculateOrder8
void calculateOrder8(int dim, double loc, double *results) const
Definition: CrossDomainCoupler.cpp:332
ripley::RipleyDomain::getLength
virtual const double * getLength() const =0
returns the lengths of the domain
speckley::lagrange_degree5_4
double lagrange_degree5_4(double xi)
Definition: lagrange_functions.h:94
speckley
Definition: AbstractAssembler.cpp:17
speckley::RipleyCoupler::shareRectangleXEdges
void shareRectangleXEdges(struct Ripley &r, int hasLower, int hasUpper, int lower, int upper, escript::Data &target) const
Definition: CrossDomainCoupler.cpp:820
speckley::lagrange_degree6_6
double lagrange_degree6_6(double xi)
Definition: lagrange_functions.h:126
escript::Data
Data represents a collection of datapoints.
Definition: Data.h:62
ripley::RipleyDomain
RipleyDomain extends the AbstractContinuousDomain interface for the Ripley library and is the base cl...
Definition: ripley/src/RipleyDomain.h:112
speckley::RipleyCoupler::generateLocations
void generateLocations(struct Ripley &r, double **positions) const
Definition: CrossDomainCoupler.cpp:131
INDEX3
#define INDEX3(_X1_, _X2_, _X3_, _N1_, _N2_)
Definition: index.h:23
escript::DataTypes::dim_t
index_t dim_t
Definition: DataTypes.h:87
speckley::RipleyCoupler::Ripley::maxs
dim_t maxs[3]
Definition: CrossDomainCoupler.h:64
speckley::lagrange_degree5_1
double lagrange_degree5_1(double xi)
Definition: lagrange_functions.h:82
escript::Data::getSampleDataRW
DataTypes::real_t * getSampleDataRW(DataTypes::RealVectorType::size_type sampleNo, DataTypes::real_t dummy=0)
Return the sample data for the given sample no. Please do not use this unless you NEED to access samp...
Definition: Data.h:1940
speckley::lagrange_degree2_1
double lagrange_degree2_1(double xi)
Definition: lagrange_functions.h:34
speckley::lagrange_degree10_10
double lagrange_degree10_10(double xi)
Definition: lagrange_functions.h:278
speckley::RipleyCoupler::calculateOrder3
void calculateOrder3(int dim, double loc, double *results) const
Definition: CrossDomainCoupler.cpp:267
speckley::lagrange_degree6_2
double lagrange_degree6_2(double xi)
Definition: lagrange_functions.h:110
speckley::lagrange_degree7_0
double lagrange_degree7_0(double xi)
Definition: lagrange_functions.h:130
speckley::Brick
Brick is the 3-dimensional implementation of a SpeckleyDomain.
Definition: speckley/src/Brick.h:43
speckley::lagrange_degree7_7
double lagrange_degree7_7(double xi)
Definition: lagrange_functions.h:158
ripley::RipleyDomain::getNumSubdivisionsPerDim
virtual const int * getNumSubdivisionsPerDim() const =0
returns the number of spatial subdivisions in each dimension
speckley::RipleyCoupler::calculateOrder5
void calculateOrder5(int dim, double loc, double *results) const
Definition: CrossDomainCoupler.cpp:290
speckley::lagrange_degree6_5
double lagrange_degree6_5(double xi)
Definition: lagrange_functions.h:122
speckley::lagrange_degree6_3
double lagrange_degree6_3(double xi)
Definition: lagrange_functions.h:114
speckley::lagrange_degree10_9
double lagrange_degree10_9(double xi)
Definition: lagrange_functions.h:274
speckley::lagrange_degree8_5
double lagrange_degree8_5(double xi)
Definition: lagrange_functions.h:182
speckley::SpeckleyDomain::getNumElementsPerDim
virtual const dim_t * getNumElementsPerDim() const =0
returns the number of elements per MPI rank in each dimension
speckley::lagrange_degree8_4
double lagrange_degree8_4(double xi)
Definition: lagrange_functions.h:178
speckley::SpeckleyDomain
SpeckleyDomain extends the AbstractContinuousDomain interface for the Speckley library and is the bas...
Definition: speckley/src/SpeckleyDomain.h:95
speckley::lagrange_degree7_5
double lagrange_degree7_5(double xi)
Definition: lagrange_functions.h:150
speckley::SpeckleyDomain::getMPIComm
MPI_Comm getMPIComm() const
returns the MPI communicator
Definition: speckley/src/SpeckleyDomain.h:148
speckley::lagrange_degree9_4
double lagrange_degree9_4(double xi)
Definition: lagrange_functions.h:214
speckley::RipleyCoupler::interpolate
void interpolate(escript::Data &target, const escript::Data &source) const
Definition: CrossDomainCoupler.cpp:451
ripley::RipleyDomain::getDim
virtual int getDim() const
returns the number of spatial dimensions of the domain
Definition: ripley/src/RipleyDomain.h:187
speckley::RipleyCoupler::shareRectangleYEdges
void shareRectangleYEdges(struct Ripley &r, int hasLower, int hasUpper, int lower, int upper, escript::Data &target) const
Definition: CrossDomainCoupler.cpp:898
speckley::lagrange_degree5_5
double lagrange_degree5_5(double xi)
Definition: lagrange_functions.h:98
speckley::RipleyCoupler::s_NX
int s_NX[3]
Definition: CrossDomainCoupler.h:107
speckley::lagrange_degree10_6
double lagrange_degree10_6(double xi)
Definition: lagrange_functions.h:262
speckley::lagrange_degree4_0
double lagrange_degree4_0(double xi)
Definition: lagrange_functions.h:58
speckley::lagrange_degree6_0
double lagrange_degree6_0(double xi)
Definition: lagrange_functions.h:102
speckley::Elements
Definition: Speckley.h:74
speckley::lagrange_degree3_0
double lagrange_degree3_0(double xi)
Definition: lagrange_functions.h:42
MPI_DOUBLE
#define MPI_DOUBLE
Definition: EsysMPI.h:45
speckley::lagrange_degree6_1
double lagrange_degree6_1(double xi)
Definition: lagrange_functions.h:106
SHARED
#define SHARED
Definition: CrossDomainCoupler.cpp:22
speckley::lagrange_degree10_0
double lagrange_degree10_0(double xi)
Definition: lagrange_functions.h:238
speckley::lagrange_degree3_2
double lagrange_degree3_2(double xi)
Definition: lagrange_functions.h:50
speckley::RipleyCoupler::numQuads
int numQuads
Definition: CrossDomainCoupler.h:110
speckley::lagrange_degree3_3
double lagrange_degree3_3(double xi)
Definition: lagrange_functions.h:54
ripley::RipleyDomain::getLocalCoordinate
virtual double getLocalCoordinate(index_t index, int dim) const =0
returns the index'th coordinate value in given dimension for this rank
speckley::lagrange_degree2_0
double lagrange_degree2_0(double xi)
Definition: lagrange_functions.h:30
MINE
#define MINE
Definition: CrossDomainCoupler.cpp:21
speckley::RipleyCoupler::validInterpolation
bool validInterpolation(escript::Data &target, const escript::Data &source, const SpeckleyDomain *speck, const double *s_dx, const ripley::RipleyDomain *other) const
Definition: CrossDomainCoupler.cpp:73
speckley::RipleyCoupler::calculate
void calculate(struct Ripley &r, dim_t ex, dim_t ey, dim_t ez, int oqx, int oqy, int oqz, double *out, const double *factor_x, const double *factor_y, const double *factor_z, const escript::Data &source) const
Definition: CrossDomainCoupler.cpp:407
escript::FunctionSpace::getTypeCode
int getTypeCode() const
Returns the function space type code.
Definition: FunctionSpace.cpp:93
speckley::SpeckleyDomain::getDim
virtual int getDim() const
returns the number of spatial dimensions of the domain
Definition: speckley/src/SpeckleyDomain.h:167
speckley::lagrange_degree9_7
double lagrange_degree9_7(double xi)
Definition: lagrange_functions.h:226
MPI_Comm
int MPI_Comm
Definition: EsysMPI.h:40
ripley::RipleyDomain::getNumFacesPerBoundary
virtual const dim_t * getNumFacesPerBoundary() const =0
returns the number of face elements in the order (left,right,bottom,top,[front,back]) on current MPI ...
speckley::lagrange_degree7_1
double lagrange_degree7_1(double xi)
Definition: lagrange_functions.h:134
speckley::RipleyCoupler::Ripley::domain
const ripley::RipleyDomain * domain
Definition: CrossDomainCoupler.h:60
speckley::RipleyCoupler::speckley_origin
double speckley_origin[3]
Definition: CrossDomainCoupler.h:108
escript::AbstractDomain
Base class for all escript domains.
Definition: AbstractDomain.h:56
speckley::lagrange_degree3_1
double lagrange_degree3_1(double xi)
Definition: lagrange_functions.h:46
speckley::RipleyCoupler::s_NE
dim_t s_NE[3]
Definition: CrossDomainCoupler.h:105
speckley::RipleyCoupler::Ripley::NE
dim_t NE[3]
Definition: CrossDomainCoupler.h:62
speckley::SpeckleyDomain::getNumFacesPerBoundary
virtual const dim_t * getNumFacesPerBoundary() const =0
returns the number of face elements in the order (left,right,bottom,top,[front,back]) on current MPI ...
speckley::lagrange_degree4_4
double lagrange_degree4_4(double xi)
Definition: lagrange_functions.h:74
ripley::RipleyDomain::getNumElementsPerDim
virtual const dim_t * getNumElementsPerDim() const =0
returns the number of elements per MPI rank in each dimension
speckley::RipleyCoupler::calculateOrder6
void calculateOrder6(int dim, double loc, double *results) const
Definition: CrossDomainCoupler.cpp:303
speckley::SpeckleyException
SpeckleyException exception class.
Definition: SpeckleyException.h:40
speckley::lagrange_degree9_1
double lagrange_degree9_1(double xi)
Definition: lagrange_functions.h:202
THEIRS
#define THEIRS
Definition: CrossDomainCoupler.cpp:23
speckley::lagrange_degree10_5
double lagrange_degree10_5(double xi)
Definition: lagrange_functions.h:258
speckley::RipleyCoupler::numComp
int numComp
Definition: CrossDomainCoupler.h:117
speckley::SpeckleyDomain::getLength
virtual const double * getLength() const =0
returns the lengths of the domain
speckley::RipleyCoupler::shareBrickYFaces
void shareBrickYFaces(struct Ripley &r, int hasLower, int hasUpper, int lower, int upper, escript::Data &target) const
Definition: CrossDomainCoupler.cpp:667