MoFEM::TimeScaleVector< SPACE_DIM > Struct Template Reference

Force scale operator for reading four columns (time and vector) More...

#include "src/boundary_conditions/ScalingMethod.hpp"

Inheritance diagram for MoFEM::TimeScaleVector< SPACE_DIM >:

Collaboration diagram for MoFEM::TimeScaleVector< SPACE_DIM >:

Public Member Functions
	TimeScaleVector (std::string name="-time_vector_file", bool error_if_file_not_given=false)
	TimeScaleVector (std::string name, int ms_id, bool error_if_file_not_given=false)
virtual FTensor::Tensor1< double, SPACE_DIM >	getVector (const double time)
virtual FTensor::Tensor1< double, SPACE_DIM >	getVectorFromData (const double time)
Public Member Functions inherited from MoFEM::ScalingMethod
virtual double	getScale (const double time)
	Get scaling at given time.
	ScalingMethod ()=default
virtual	~ScalingMethod ()=default

Private Member Functions
MoFEMErrorCode	timeData ()

Private Attributes
std::map< double, FTensor::Tensor1< double, 3 > >	tSeries
int	readFile
int	debug
string	nAme
bool	errorIfFileNotGiven
PetscBool	fLg
std::function< FTensor::Tensor1< double, SPACE_DIM >(double)>	scalingMethod

Detailed Description

template<int SPACE_DIM>
struct MoFEM::TimeScaleVector< SPACE_DIM >

Force scale operator for reading four columns (time and vector)

Definition at line 144 of file ScalingMethod.hpp.

Constructor & Destructor Documentation

TimeScaleVector() [1/2]

template<int SPACE_DIM>

MoFEM::TimeScaleVector< SPACE_DIM >::TimeScaleVector	(	std::string	name = "-time_vector_file",
		bool	error_if_file_not_given = false
	)

TimeScaleVector() [2/2]

template<int SPACE_DIM>

MoFEM::TimeScaleVector< SPACE_DIM >::TimeScaleVector	(	std::string	name,
		int	ms_id,
		bool	error_if_file_not_given = false
	)

Definition at line 151 of file ScalingMethod.cpp.

    : readFile(0), debug(0), errorIfFileNotGiven(error_if_file_not_given) {
  nAme = name + std::to_string(ms_id);
  CHK_THROW_MESSAGE(timeData(), "Error in reading time data");
}

Member Function Documentation

getVector()

template<int SPACE_DIM>

FTensor::Tensor1< double, SPACE_DIM > MoFEM::TimeScaleVector< SPACE_DIM >::getVector ( const double  time )

virtual

Reimplemented in BasicBoundaryConditionsInterface::BasicBCVectorConst, and BasicBoundaryConditionsInterface::BasicBCVectorScale.

Definition at line 224 of file ScalingMethod.cpp.

                                                       {
  return scalingMethod(time);
}

getVectorFromData()

template<int SPACE_DIM>

FTensor::Tensor1< double, SPACE_DIM > MoFEM::TimeScaleVector< SPACE_DIM >::getVectorFromData ( const double  time )

virtual

Definition at line 230 of file ScalingMethod.cpp.

                                                               {
 
  FTensor::Tensor1<double, SPACE_DIM> Nf;
  FTensor::Tensor1<double, 3> acc;
  FTensor::Tensor1<double, 3> acc0 = tSeries.begin()->second;
 
  FTensor::Index<'I', SPACE_DIM> I;
  FTensor::Index<'i', SPACE_DIM> i;
 
  double t0 = 0, t1, dt;
  for (auto &[ts, vec] : tSeries) {
    if (ts > time) {
      t1 = ts;
      dt = time - t0;
      acc(I) = acc0(I) + ((vec(I) - acc0(I)) / (t1 - t0)) * dt;
      break;
    }
    t0 = ts;
    acc0 = vec;
    acc = acc0;
  }
  Nf(i) = acc(i);
  return Nf;
}

timeData()

template<int SPACE_DIM>

MoFEMErrorCode MoFEM::TimeScaleVector< SPACE_DIM >::timeData ( )

private

Definition at line 158 of file ScalingMethod.cpp.

                                                                             {
  MoFEMFunctionBegin;
 
  char time_file_name[255];
  PetscBool flg = PETSC_FALSE;
  if (!nAme.empty())
    CHKERR PetscOptionsGetString(PETSC_NULLPTR, PETSC_NULLPTR, nAme.c_str(),
                                 time_file_name, 255, &flg);
 
  if (!flg) {
    if (errorIfFileNotGiven)
      SETERRQ(PETSC_COMM_SELF, MOFEM_DATA_INCONSISTENCY,
               "*** ERROR %s (time_data FILE NEEDED)", nAme.c_str());
    MoFEMFunctionReturnHot(0);
  }
 
  FILE *time_data = fopen(time_file_name, "r");
  if (time_data == NULL) {
    SETERRQ(PETSC_COMM_SELF, MOFEM_DATA_INCONSISTENCY,
             "*** ERROR data file < %s > open unsuccessful", time_file_name);
  }
  double no1 = 0.0;
  FTensor::Index<'i', 3> i;
  (tSeries[no1])(i) = 0.;
  while (!feof(time_data)) {
    FTensor::Tensor1<double, 3> no2{0., 0., 0.};
    int n =
        fscanf(time_data, "%lf %lf %lf %lf", &no1, &no2(0), &no2(1), &no2(2));
    if (n < 0) {
      fgetc(time_data);
      continue;
    }
    if (n != 4) {
      SETERRQ(PETSC_COMM_SELF, MOFEM_DATA_INCONSISTENCY,
               "*** ERROR read data file error (check input time data file) "
               "{ n = %d }",
               n);
    }
    (tSeries[no1])(i) = no2(i);
  }
  int r = fclose(time_data);
 
  MOFEM_LOG_CHANNEL("WORLD");
  for (auto &[ts, vec] : tSeries) {
    MOFEM_TAG_AND_LOG_C("WORLD", Sev::verbose, "TimeScaleVector",
                        "** read vector %3.2e time %3.2e %3.2e %3.2e", ts,
                        vec(0), vec(1), vec(2));
  }
  MOFEM_LOG_CHANNEL("WORLD");
 
  if (r != 0) {
    SETERRQ(PETSC_COMM_SELF, MOFEM_INVALID_DATA,
            "*** ERROR file close unsuccessful");
  }
  readFile = 1;
 
  if (readFile == 1)
    scalingMethod = [this](double time) {
      return this->getVectorFromData(time);
    };
 
  MoFEMFunctionReturn(0);
}

Member Data Documentation

debug

template<int SPACE_DIM>

int MoFEM::TimeScaleVector< SPACE_DIM >::debug

private

Definition at line 160 of file ScalingMethod.hpp.

errorIfFileNotGiven

template<int SPACE_DIM>

bool MoFEM::TimeScaleVector< SPACE_DIM >::errorIfFileNotGiven

private

Definition at line 162 of file ScalingMethod.hpp.

fLg

template<int SPACE_DIM>

PetscBool MoFEM::TimeScaleVector< SPACE_DIM >::fLg

private

Definition at line 164 of file ScalingMethod.hpp.

nAme

template<int SPACE_DIM>

string MoFEM::TimeScaleVector< SPACE_DIM >::nAme

private

Definition at line 161 of file ScalingMethod.hpp.

readFile

template<int SPACE_DIM>

int MoFEM::TimeScaleVector< SPACE_DIM >::readFile

private

Definition at line 160 of file ScalingMethod.hpp.

scalingMethod

template<int SPACE_DIM>

std::function<FTensor::Tensor1<double, SPACE_DIM>(double)> MoFEM::TimeScaleVector< SPACE_DIM >::scalingMethod

private

Initial value:

=
      [this](double time) {
        FTensor::Index<'i', SPACE_DIM> i;
        FTensor::Tensor1<double, SPACE_DIM> s;
        s(i) = time;
        return s;
      }

Definition at line 165 of file ScalingMethod.hpp.

                          {
        FTensor::Index<'i', SPACE_DIM> i;
        FTensor::Tensor1<double, SPACE_DIM> s;
        s(i) = time;
        return s;
      };

tSeries

template<int SPACE_DIM>

std::map<double, FTensor::Tensor1<double, 3> > MoFEM::TimeScaleVector< SPACE_DIM >::tSeries

private

Definition at line 159 of file ScalingMethod.hpp.

---

The documentation for this struct was generated from the following files:

• src/boundary_conditions/ScalingMethod.hpp
• src/boundary_conditions/impl/ScalingMethod.cpp