ASL  0.1.7
Advanced Simulation Library
cubePoroelasticGravity.cc
/*
* Advanced Simulation Library <http://asl.org.il>
*
* Copyright 2015 Avtech Scientific <http://avtechscientific.com>
*
*
* This file is part of Advanced Simulation Library (ASL).
*
* ASL is free software: you can redistribute it and/or modify it
* under the terms of the GNU Affero General Public License as
* published by the Free Software Foundation, version 3 of the License.
*
* ASL 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 Affero General Public License for more details.
*
* You should have received a copy of the GNU Affero General Public License
* along with ASL. If not, see <http://www.gnu.org/licenses/>.
*
*/
#include <aslDataInc.h>
#include <acl/aclGenerators.h>
#include <writers/aslVTKFormatWriters.h>
#include <num/aslFDPoroElasticity.h>
#include <num/aslFDElasticityBC.h>
#include <num/aslFDPoroElasticityBC.h>
#include <utilities/aslTimer.h>
#include <utilities/aslParametersManager.h>
#include <math/aslTemplates.h>
#include <acl/aclMath/aclVectorOfElements.h>
#include <aslGeomInc.h>
#include <acl/aclUtilities.h>
typedef float FlT;
//typedef double FlT;
int main(int argc, char* argv[])
{
asl::ApplicationParametersManager appParamsManager("cubePoroelasticGravity",
"1.0");
asl::Parameter<asl::AVec<int> > size(asl::makeAVec<int>(50, 50, 50), "size", "3D size");
asl::Parameter<cl_float> dx(4e-3, "dx", "dx");
asl::Parameter<cl_float> dt(0.0001, "dt", "dt");
asl::Parameter<cl_float> bulkModulus(1000.0, "bulk_modulus", "bulk modulus");
asl::Parameter<cl_float> shearModulus(30.0, "shear_modulus", "shear modulus");
asl::Parameter<cl_float> hydraulicConductivity(1e-10, "hydraulic_conductivity", "hydraulic conductivity");
asl::Parameter<cl_float> rho(1e3, "rho", "density");
asl::Parameter<asl::AVec<FlT> > g(asl::makeAVec<FlT>(-9.8, 0.0, 0.0), "g", "gravity vector");
asl::Parameter<unsigned int> tsim(20000, "num_iterations", "number of iterations");
asl::Parameter<unsigned int> tout(500, "num_it_out", "number of iterations between outputs");
appParamsManager.load(argc, argv);
Param bulkModulusNum(bulkModulus.v()/rho.v()/dx.v()/dx.v()*dt.v()*dt.v());
Param shearModulusNum(shearModulus.v()/rho.v()/dx.v()/dx.v()*dt.v()*dt.v());
asl::AVec<FlT> gNum(g.v()*dt.v()*dt.v());
std::cout << "Data initialization... " << flush;
asl::Block block(size.v(), dx.v());
auto displacement(asl::generateDataContainerACL_SP<FlT>(block, 3, 1u));
asl::initData(displacement, asl::makeAVec(0.,0.,0.));
auto pressureL(asl::generateDataContainerACL_SP<FlT>(block, 1, 1u));
asl::initData(pressureL, 0.);
auto mapDF(asl::normalize(asl::generateDFInBlock(block, 0), dx.v()));
auto map(asl::generateDataContainer_SP(block, mapDF, 1u, acl::typeToTypeID<FlT>()));
auto mapX(asl::generateDataContainerACL_SP<FlT>(block, 1, 1u));
initData(mapX, mapDF);
std::cout << "Finished" << endl;
std::cout << "Numerics initialization... " << flush;
auto elasticity(generateFDPoroElasticity(displacement,
pressureL,
bulkModulusNum.v(),
shearModulusNum.v(),
hydraulicConductivity.v(),
&asl::d3q15()));
elasticity->setForce(acl::generateVEConstant(gNum));
elasticity->init();
std::vector<asl::SPNumMethod> bc;
asl::addBCZeroStress(bc, elasticity, mapX);
asl::addBCRigidWall(bc, elasticity, {asl::X0});
asl::WriterVTKXML writer(appParamsManager.getDir() + "cubePoroelasticGravity");
writer.addScalars("map", *mapX);
writer.addVector("displacement", *displacement);
writer.addScalars("pressure", *elasticity->getPressureData());
writer.addScalars("pressureL", *elasticity->getLiquidPressureData());
std::cout << "Finished" << endl;
std::cout << "Computing..." << endl;
asl::Timer timer, timerBulk, timerBC;
writer.write();
timer.start();
timerBulk.reset();
timerBC.reset();
for (unsigned int i(0); i < tsim.v(); ++i)
{
timerBulk.start();
elasticity->execute();
timerBulk.stop();
timerBC.start();
timerBC.stop();
if (!(i % tout.v()))
{
cout << i << endl;
writer.write();
}
}
timer.stop();
cout << "Finished" << endl;
cout << "Computation statistic:" << endl;
cout << "Real Time = " << timer.realTime() << "; Processor Time = "
<< timer.processorTime() << "; Processor Load = "
<< timer.processorLoad() * 100 << "%" << endl;
cout << "timeBulk=" << timerBulk.realTime() <<
"; timeBC=" << timerBC.realTime() << endl;
return 0;
}
asl::generateDFInBlock
SPDistanceFunction generateDFInBlock(const Block &b, unsigned int nG)
generates map corresponding to external (ghost) part of the block
asl::generateDataContainer_SP
SPDataWrapperACL generateDataContainer_SP(const Block &b, const acl::VectorOfElements &a)
asl::Timer::processorLoad
const double processorLoad() const
Definition: aslTimer.h:47
asl::Timer::stop
void stop()
Definition: aslTimer.h:44
asl::WriterVTKXML
Definition: aslVTKFormatWriters.h:42
asl::Timer::start
void start()
Definition: aslTimer.h:43
asl::Timer
Definition: aslTimer.h:34
acl::VectorOfElements::initData
void initData(VectorOfElements a, VectorOfElements initializationValue, const KernelConfiguration &kernelConfig)
asl::Writer::addVector
void addVector(std::string name, AbstractData &data)
asl::dx
acl::VectorOfElements dx(const TemplateVE &a)
differential operator
asl::ApplicationParametersManager::load
void load(int argc, char *argv[])
asl::Parameter
Definition: aslParametersManager.h:45
FlT
float FlT
Definition: cubePoroelasticGravity.cc:42
asl::ParametersManager::getDir
std::string getDir()
asl::WriterVTKXML::write
void write()
asl::UValue< FlT >
asl::Writer::addScalars
void addScalars(std::string name, AbstractData &data)
main
int main(int argc, char *argv[])
Definition: cubePoroelasticGravity.cc:47
asl::initAll
void initAll(std::vector< T * > &v)
Definition: aslNumMethod.h:67
asl::X0
@ X0
Definition: aslBCond.h:309
asl::UValue::v
const T & v() const
Definition: aslUValue.h:43
asl::Block
Definition: aslBlocks.h:57
asl::Parameter::v
const T & v() const
Definition: aslParametersManager.h:179
asl::initData
void initData(SPAbstractData d, double a)
acl::generateVEConstant
VectorOfElements generateVEConstant(T a)
Generates VectorOfElements with 1 Element acl::Constant with value a.
cl::flush
cl_int flush(void)
Definition: cl.hpp:7042
asl::ApplicationParametersManager
Definition: aslParametersManager.h:159
asl::Timer::reset
void reset()
Definition: aslTimer.h:48
asl::generateFDPoroElasticity
SPFDPoroElasticity generateFDPoroElasticity(SPDataWithGhostNodesACLData d, SPDataWithGhostNodesACLData pl, double bM, double sM, double k, const VectorTemplate *vT)
asl::makeAVec
AVec< T > makeAVec(T a1)
Definition: aslVectorsDynamicLength.h:176
asl::d3q15
const VectorTemplate & d3q15()
Vector template.
Param
asl::UValue< FlT > Param
Definition: cubePoroelasticGravity.cc:44
asl::addBCRigidWall
void addBCRigidWall(std::vector< SPNumMethod > &bcList, SPFDPoroElasticity nm, const std::vector< SlicesNames > &sl)
asl::addBCZeroStress
void addBCZeroStress(std::vector< SPNumMethod > &bcList, SPFDPoroElasticity nm, SPAbstractDataWithGhostNodes map)
Bondary condition set given values to pressure.
asl::Timer::realTime
const double realTime() const
Definition: aslTimer.h:45
asl::executeAll
void executeAll(std::vector< T * > &v)
Definition: aslNumMethod.h:55
asl::Timer::processorTime
const double processorTime() const
Definition: aslTimer.h:46
acl::map
std::shared_ptr< T > map(ElementData m)
Definition: aclMemBlock.h:68
asl::AVec
Definition: aslVectorsDynamicLength.h:40
asl::normalize
SPDistanceFunction normalize(SPDistanceFunction a, double dx)