PentaInput2 Class Reference

#include <PentaInput2.h>

Inheritance diagram for PentaInput2:

Public Member Functions
	PentaInput2 ()
	PentaInput2 (int nbe_in, int nbv_in, int interp_in)
	~PentaInput2 ()
Input2 *	copy ()
void	DeepEcho ()
void	Echo ()
int	Id ()
void	Marshall (char **pmarshalled_data, int *pmarshalled_data_size, int marshall_direction)
int	ObjectEnum ()
void	SetInput (int interp_in, int row, IssmDouble value_in)
void	SetInput (int interp_in, int numinds, int *rows, IssmDouble *values_in)
void	SetInput (int interp_in, int row, int numinds, IssmDouble *values_in)
int	GetInterpolation ()
void	GetInputDerivativeValue (IssmDouble *derivativevalues, IssmDouble *xyz_list, Gauss *gauss)
void	GetInputAverage (IssmDouble *pvalue)
IssmDouble	GetInputMin ()
IssmDouble	GetInputMax ()
IssmDouble	GetInputMaxAbs ()
PentaInput2 *	GetPentaInput ()
void	GetInputValue (IssmDouble *pvalue, Gauss *gauss)
void	Scale (IssmDouble scalar)
void	Pow (IssmDouble scalar)
void	AXPY (Input2 *xinput, IssmDouble scalar)
void	PointWiseMult (Input2 *xinput)
void	Serve (int numindices, int *indices)
void	Serve (int row, int numindices)
void	ServeCollapsed (int row, int state)
void	SetServeCollapsed (int)
int	GetResultArraySize (void)
int	GetResultInterpolation (void)
int	GetResultNumberOfNodes (void)
void	Reset (int interp_in)
Public Member Functions inherited from ElementInput2
	ElementInput2 ()
	~ElementInput2 ()
int	GetInputInterpolationType ()
Public Member Functions inherited from Input2
int	InstanceEnum ()
void	ChangeEnum (int newenumtype)
virtual	~Input2 ()
virtual void	Configure (Parameters *parameters)
virtual SegInput2 *	GetSegInput ()
virtual TriaInput2 *	GetTriaInput ()
Public Member Functions inherited from Object
virtual	~Object ()
Public Member Functions inherited from PentaRef
	PentaRef ()
	~PentaRef ()
void	BasalNodeIndices (int *pnumindices, int **pindices, int finiteelement)
void	GetInputDerivativeValue (IssmDouble *pvalues, IssmDouble *plist, IssmDouble *xyz_list, Gauss *gauss, int finiteelement)
void	GetInputValue (IssmDouble *pvalue, IssmDouble *plist, Gauss *gauss, int finiteelement)
void	GetJacobian (IssmDouble *J, IssmDouble *xyz_list, Gauss *gauss)
void	GetJacobianDeterminant (IssmDouble *Jdet, IssmDouble *xyz_list, Gauss *gauss)
void	GetJacobianInvert (IssmDouble *Jinv, IssmDouble *xyz_list, Gauss *gauss)
void	GetLprimeFSSSA (IssmDouble *LprimeFSSSA, IssmDouble *xyz_list, Gauss *gauss)
void	GetNodalFunctions (IssmDouble *basis, Gauss *gauss, int finiteelement)
void	GetNodalFunctionsDerivatives (IssmDouble *dbasis, IssmDouble *xyz_list, Gauss *gauss, int finiteelement)
void	GetNodalFunctionsDerivativesReference (IssmDouble *dbasis, Gauss *gauss, int finiteelement)
void	GetQuadJacobianDeterminant (IssmDouble *Jdet, IssmDouble *xyz_list, Gauss *gauss)
void	GetSegmentJacobianDeterminant (IssmDouble *Jdet, IssmDouble *xyz_list, Gauss *gauss)
void	GetTriaJacobianDeterminant (IssmDouble *Jdet, IssmDouble *xyz_list, Gauss *gauss)
void	VerticalSegmentIndicesBase (int **pindices, int *pnumseg, int finiteelement)
void	Marshall (char **pmarshalled_data, int *pmarshalled_data_size, int marshall_direction)
int	NumberofNodes (int finiteelement)
int	PressureInterpolation (int fe_stokes)
void	SurfaceNodeIndices (int *pnumindices, int **pindices, int finiteelement)
int	TensorInterpolation (int fe_stokes)
int	VelocityInterpolation (int fe_stokes)

Private Attributes
int	isserved_collapsed

Additional Inherited Members
Data Fields inherited from ElementInput2
IssmDouble *	element_values
Protected Attributes inherited from ElementInput2
int	numberofelements_local
int	numberofvertices_local
int	interpolation
int	M
int	N
bool	isserved
IssmDouble *	values

Detailed Description

Definition at line 8 of file PentaInput2.h.

Constructor & Destructor Documentation

PentaInput2() [1/2]

PentaInput2::PentaInput2

(

void

)

Definition at line 16 of file PentaInput2.cpp.

                            {/*{{{*/
 
   this->numberofelements_local = -1;
   this->numberofvertices_local = -1;
   this->isserved       = false;
   this->isserved_collapsed= 0;
   this->M = -1;
   this->N = -1;
   this->values         = NULL;
   this->element_values = NULL;
 
}/*}}}*/

PentaInput2() [2/2]

PentaInput2::PentaInput2	(	int	nbe_in,
		int	nbv_in,
		int	interp_in
	)

Definition at line 28 of file PentaInput2.cpp.

                                                           {/*{{{*/
 
   _assert_(nbe_in>0);
   _assert_(nbe_in<1e11);
   _assert_(nbv_in>0);
   _assert_(nbv_in<1e11);
   this->numberofelements_local = nbe_in;
   this->numberofvertices_local = nbv_in;
   this->isserved           = false;
   this->isserved_collapsed = 0;
 
   /*Reset takes care of the rest*/
   this->Reset(interp_in);
 
}/*}}}*/

~PentaInput2()

PentaInput2::~PentaInput2

(

)

Definition at line 43 of file PentaInput2.cpp.

                         {/*{{{*/
   if(this->element_values) xDelete<IssmDouble>(this->element_values);
   if(this->values)         xDelete<IssmDouble>(this->values);
}

Member Function Documentation

copy()

Input2 * PentaInput2::copy ( void  )

virtual

Implements ElementInput2.

Definition at line 73 of file PentaInput2.cpp.

                          {/*{{{*/
 
   /*Create output*/
   PentaInput2* output = new PentaInput2(this->numberofelements_local,this->numberofvertices_local,this->interpolation);
 
   /*Copy values*/
   xMemCpy<IssmDouble>(output->values,this->values,this->M*this->N);
 
   /*Return output*/
   return output;
 
}

DeepEcho()

void PentaInput2::DeepEcho ( void  )

virtual

Implements ElementInput2.

Definition at line 86 of file PentaInput2.cpp.

                              {/*{{{*/
   _printf_("PentaInput2 Echo:\n");
   _printf_("   interpolation:      "<<EnumToStringx(this->interpolation)<<"\n");
   _printf_("   nbe_local:          "<<this->numberofvertices_local<<"\n");
   _printf_("   nbv_local:          "<<this->numberofelements_local<<"\n");
   _printf_("   Size:               "<<M<<"x"<<N<<"\n");
   _printf_("   isserved:           "<<(isserved?"true":"false") << "\n");
   _printf_("   isserved_collapsed: "<<isserved_collapsed << "\n");
   if(isserved){
      _printf_("   current values:      ");
      if(isserved_collapsed){
         _printf_("[ ");
         for(int i=0;i<3;i++) _printf_(" "<<this->element_values[i]);
         _printf_("] ("<<EnumToStringx(this->interpolation)<<")\n");
      }
      else{
         _printf_("[ ");
         for(int i=0;i<PentaRef::NumberofNodes(this->interpolation);i++) _printf_(" "<<this->element_values[i]);
         _printf_("] ("<<EnumToStringx(this->interpolation)<<")\n");
      }
   }
}

Echo()

void PentaInput2::Echo ( void  )

virtual

Implements ElementInput2.

Definition at line 109 of file PentaInput2.cpp.

                          {/*{{{*/
   _printf_(setw(15)<<"   PentaInput "<<setw(25)<<left<<EnumToStringx(-1));
   if(isserved){
      if(isserved_collapsed){
         _printf_("[ ");
         for(int i=0;i<3;i++) _printf_(" "<<this->element_values[i]);
         _printf_("] ("<<EnumToStringx(this->interpolation)<<")\n");
      }
      else{
         _printf_("[ ");
         for(int i=0;i<PentaRef::NumberofNodes(this->interpolation);i++) _printf_(" "<<this->element_values[i]);
         _printf_("] ("<<EnumToStringx(this->interpolation)<<")\n");
      }
   }
}

Id()

int PentaInput2::Id ( void  )

virtual

Implements ElementInput2.

Definition at line 125 of file PentaInput2.cpp.

                        {/*{{{*/
   return -1;
}/*}}}*/

Marshall()

void PentaInput2::Marshall ( char **  pmarshalled_data, int *  pmarshalled_data_size, int  marshall_direction  )

virtual

Implements ElementInput2.

Definition at line 128 of file PentaInput2.cpp.

                                                                                                    { /*{{{*/
 
   MARSHALLING_ENUM(PentaInput2Enum);
   MARSHALLING(this->numberofelements_local);
   MARSHALLING(this->numberofvertices_local);
   MARSHALLING(this->interpolation);
   MARSHALLING(this->M);
   MARSHALLING(this->N);
   this->isserved = false;
   this->isserved_collapsed = 0;
   if(this->M*this->N){
      MARSHALLING_DYNAMIC(this->values,IssmDouble,this->M*this->N);
   }
   else this->values = NULL;
 
   if(marshall_direction == MARSHALLING_BACKWARD){
      this->element_values = xNewZeroInit<IssmDouble>(PentaRef::NumberofNodes(this->interpolation));
   }
}

ObjectEnum()

int PentaInput2::ObjectEnum ( void  )

virtual

Implements ElementInput2.

Definition at line 148 of file PentaInput2.cpp.

                                {/*{{{*/
   return PentaInput2Enum;
}

SetInput() [1/3]

void PentaInput2::SetInput ( int  interp_in, int  row, IssmDouble  value_in  )

virtual

Implements ElementInput2.

Definition at line 154 of file PentaInput2.cpp.

                                                                   {/*{{{*/
 
   _assert_(this);
   _assert_(row>=0);
   _assert_(row<this->M);
   _assert_(this->N==1);
 
   this->values[row] = value_in;
   this->isserved    = false;
}

SetInput() [2/3]

void PentaInput2::SetInput ( int  interp_in, int  numinds, int *  rows, IssmDouble *  values_in  )

virtual

Implements ElementInput2.

Definition at line 165 of file PentaInput2.cpp.

                                                                                         {/*{{{*/
 
   _assert_(this);
   if(interp_in==P1Enum && this->interpolation==P1Enum){
      _assert_(this->N==1);
      for(int i=0;i<numindices;i++){
         int row = indices[i];
         _assert_(row>=0);
         _assert_(row<this->M);
         this->values[row] = values_in[i];
      }
   }
   else if(this->interpolation!=P1Enum && interp_in==P1Enum){
      this->Reset(interp_in);
      for(int i=0;i<numindices;i++){
         int row = indices[i];
         _assert_(row>=0);
         _assert_(row<this->M);
         this->values[row] = values_in[i];
      }
   }
   else{
      _error_("not supported");
   }
 
   this->isserved    = false;
}

SetInput() [3/3]

void PentaInput2::SetInput ( int  interp_in, int  row, int  numinds, IssmDouble *  values_in  )

virtual

Implements ElementInput2.

Definition at line 193 of file PentaInput2.cpp.

                                                                                    {/*{{{*/
 
   _assert_(this);
   if(interp_in==this->interpolation){
      _assert_(this->N==numindices);
   }
   else{
      this->Reset(interp_in);
      _assert_(this->N==numindices);
   }
   for(int i=0;i<numindices;i++) this->values[row*this->N+i] = values_in[i];
 
   this->isserved    = false;
}

GetInterpolation()

int PentaInput2::GetInterpolation ( )

virtual

Implements ElementInput2.

Definition at line 266 of file PentaInput2.cpp.

                                  {/*{{{*/
   return this->interpolation;
}/*}}}*/

GetInputDerivativeValue()

void PentaInput2::GetInputDerivativeValue ( IssmDouble *  derivativevalues, IssmDouble *  xyz_list, Gauss *  gauss  )

virtual

Implements ElementInput2.

Definition at line 334 of file PentaInput2.cpp.

                                                                                                         {/*{{{*/
   _assert_(this);
   _assert_(this->isserved);
   if(this->isserved_collapsed){
      _assert_(gauss->Enum()==GaussTriaEnum);
      if(this->interpolation==P0Enum){
         derivativevalues[0] = 0.;
         derivativevalues[1] = 0.;
      }
      else{
         TriaRef temp;
         temp.GetInputDerivativeValue(derivativevalues,this->element_values,xyz_list,(GaussTria*)gauss,P1Enum);
      }
   }
   else{
      _assert_(gauss->Enum()==GaussPentaEnum);
      PentaRef::GetInputDerivativeValue(derivativevalues,this->element_values,xyz_list,(GaussPenta*)gauss,this->interpolation);
   }
}/*}}}*/

GetInputAverage()

void PentaInput2::GetInputAverage ( IssmDouble *  pvalue )

virtual

Reimplemented from Input2.

Definition at line 269 of file PentaInput2.cpp.

                                                   {/*{{{*/
   _assert_(this);
   _assert_(this->isserved);
 
   /*Output*/
   IssmDouble value = 0.;
 
   if(this->isserved_collapsed){
      if(this->interpolation==P0Enum){
         value = this->element_values[0];
      }
      else{
         /*Assume P1...*/
         value = 1./3.*(this->element_values[0] +  this->element_values[1] +  this->element_values[2]);
      }
   }
   else{
      int        numnodes  = this->NumberofNodes(this->interpolation);
      IssmDouble numnodesd = reCast<int,IssmDouble>(numnodes);
 
      for(int i=0;i<numnodes;i++) value+=this->element_values[i];
      value = value/numnodesd;
   }
 
   *pvalue=value;
}/*}}}*/

GetInputMin()

IssmDouble PentaInput2::GetInputMin ( void  )

virtual

Reimplemented from Input2.

Definition at line 295 of file PentaInput2.cpp.

                                       {/*{{{*/
   _assert_(this);
   _assert_(this->isserved);
 
   int  numnodes  = this->NumberofNodes(this->interpolation);
   if(this->isserved_collapsed) numnodes = 3;
   IssmDouble min=this->element_values[0];
 
   for(int i=1;i<numnodes;i++){
      if(this->element_values[i]<min) min=this->element_values[i];
   }
   return min;
}/*}}}*/

GetInputMax()

IssmDouble PentaInput2::GetInputMax ( void  )

virtual

Reimplemented from Input2.

Definition at line 308 of file PentaInput2.cpp.

                                       {/*{{{*/
   _assert_(this);
   _assert_(this->isserved);
 
   int numnodes  = this->NumberofNodes(this->interpolation);
   if(this->isserved_collapsed) numnodes = 3;
   IssmDouble max=this->element_values[0];
 
   for(int i=1;i<numnodes;i++){
      if(this->element_values[i]>max) max=this->element_values[i];
   }
   return max;
}/*}}}*/

GetInputMaxAbs()

IssmDouble PentaInput2::GetInputMaxAbs ( void  )

virtual

Reimplemented from Input2.

Definition at line 321 of file PentaInput2.cpp.

                                          {/*{{{*/
   _assert_(this);
   _assert_(this->isserved);
 
   int numnodes  = this->NumberofNodes(this->interpolation);
   if(this->isserved_collapsed) numnodes = 3;
   IssmDouble maxabs=fabs(this->element_values[0]);
 
   for(int i=1;i<numnodes;i++){
      if(fabs(this->element_values[i])>maxabs) maxabs=fabs(this->element_values[i]);
   }
   return maxabs;
}/*}}}*/

GetPentaInput()

PentaInput2* PentaInput2::GetPentaInput ( )

inlinevirtual

Reimplemented from Input2.

Definition at line 36 of file PentaInput2.h.

{return this;};

GetInputValue()

void PentaInput2::GetInputValue ( IssmDouble *  pvalue, Gauss *  gauss  )

virtual

Implements ElementInput2.

Definition at line 353 of file PentaInput2.cpp.

                                                              {/*{{{*/
   _assert_(this);
   _assert_(this->isserved);
   if(this->isserved_collapsed){
      _assert_(gauss->Enum()==GaussTriaEnum);
      if(this->interpolation==P0Enum){
         *pvalue = this->element_values[0];
      }
      else{
         TriaRef temp;
         temp.GetInputValue(pvalue,this->element_values,(GaussTria*)gauss,P1Enum);
      }
   }
   else{
      _assert_(gauss->Enum()==GaussPentaEnum);
      PentaRef::GetInputValue(pvalue,this->element_values,(GaussPenta*)gauss,this->interpolation);
   }
}/*}}}*/

Scale()

void PentaInput2::Scale ( IssmDouble  scalar )

virtual

Reimplemented from Input2.

Definition at line 385 of file PentaInput2.cpp.

                                       {/*{{{*/
 
   for(int i=0;i<this->M*this->N;i++) this->values[i] = alpha*this->values[i];
   for(int i=0;i<PentaRef::NumberofNodes(this->interpolation);i++) this->element_values[i] = alpha*this->element_values[i];
}

Pow()

void PentaInput2::Pow ( IssmDouble  scalar )

virtual

Reimplemented from Input2.

Definition at line 391 of file PentaInput2.cpp.

                                     {/*{{{*/
 
   for(int i=0;i<this->M*this->N;i++) this->values[i] = pow(this->values[i],alpha);
   for(int i=0;i<PentaRef::NumberofNodes(this->interpolation);i++) this->element_values[i] = pow(this->element_values[i],alpha);
}

AXPY()

void PentaInput2::AXPY ( Input2 *  xinput, IssmDouble  scalar  )

virtual

Reimplemented from Input2.

Definition at line 397 of file PentaInput2.cpp.

                                                     {/*{{{*/
 
   /*xinput is of the same type, so cast it: */
   if(xinput->ObjectEnum()!=PentaInput2Enum) _error_("Operation not permitted because xinput is of type " << EnumToStringx(xinput->ObjectEnum()));
   PentaInput2* xpentainput=xDynamicCast<PentaInput2*>(xinput);
   if(xpentainput->GetInterpolation()!=this->interpolation) _error_("Operation not permitted because xinput is of type " << EnumToStringx(xinput->ObjectEnum()));
 
   /*Carry out the AXPY operation depending on type:*/
   for(int i=0;i<this->M*this->N;i++) this->values[i] = alpha*xpentainput->values[i] + this->values[i];
   for(int i=0;i<PentaRef::NumberofNodes(this->interpolation);i++) this->element_values[i] = alpha*xpentainput->element_values[i] + this->element_values[i];
}

PointWiseMult()

void PentaInput2::PointWiseMult ( Input2 *  xinput )

virtual

Reimplemented from Input2.

Definition at line 409 of file PentaInput2.cpp.

                                             {/*{{{*/
 
   /*xinput is of the same type, so cast it: */
   if(xinput->ObjectEnum()!=PentaInput2Enum) _error_("Operation not permitted because xinput is of type " << EnumToStringx(xinput->ObjectEnum()));
   PentaInput2* xpentainput=xDynamicCast<PentaInput2*>(xinput);
   if(xpentainput->GetInterpolation()!=this->interpolation) _error_("Operation not permitted because xinput is of type " << EnumToStringx(xinput->ObjectEnum()));
 
   /* we need to check that the vector sizes are identical*/
   if(xpentainput->M!=this->M||xpentainput->N!=this->N) _error_("Operation not permitted because the inputs have different sizes");
 
   /*Carry out the pointwise operation depending on type:*/
   for(int i=0;i<this->M*this->N;i++) this->values[i] = xpentainput->values[i] * this->values[i];
   for(int i=0;i<PentaRef::NumberofNodes(this->interpolation);i++) this->element_values[i] = xpentainput->element_values[i] * this->element_values[i];
}

Serve() [1/2]

void PentaInput2::Serve ( int  numindices, int *  indices  )

virtual

Implements ElementInput2.

Definition at line 208 of file PentaInput2.cpp.

                                                  {/*{{{*/
 
   _assert_(this);
   _assert_(this->N==1);
 
   for(int i=0;i<numindices;i++){
      int row = indices[i];
      _assert_(row>=0);
      _assert_(row<this->M);
      this->element_values[i] = this->values[row];
   }
 
   /*Set input as served*/
   this->isserved = true;
   this->isserved_collapsed = 0;
}

Serve() [2/2]

void PentaInput2::Serve ( int  row, int  numindices  )

virtual

Implements ElementInput2.

Definition at line 225 of file PentaInput2.cpp.

                                             {/*{{{*/
 
   _assert_(this);
   _assert_(this->N==numindices);
   _assert_(row<this->M);
   _assert_(row>=0);
 
   for(int i=0;i<numindices;i++){
      this->element_values[i] = this->values[row*this->N+i];
   }
 
   /*Set input as served*/
   this->isserved = true;
   this->isserved_collapsed = 0;
}/*}}}*/

ServeCollapsed()

void PentaInput2::ServeCollapsed	(	int	row,
		int	state
	)

Definition at line 240 of file PentaInput2.cpp.

                                                 {/*{{{*/
 
   _assert_(this);
   _assert_(this->N>=3);
   _assert_(row<this->M);
   _assert_(row>=0);
 
   if(state==1){
      for(int i=0;i<3;i++) this->element_values[i] = this->values[row*this->N+i];
      for(int i=3;i<6;i++) this->element_values[i] = 0.;
   }
   else if(state==2){
      for(int i=0;i<3;i++) this->element_values[i] = this->values[row*this->N+3+i];
      for(int i=3;i<6;i++) this->element_values[i] = 0.;
   }
   else{
      _error_("not supported");
   }
 
   /*Set input as served*/
   this->isserved = true;
   this->isserved_collapsed = state;
}/*}}}*/

SetServeCollapsed()

void PentaInput2::SetServeCollapsed

(

int

state

)

Definition at line 263 of file PentaInput2.cpp.

                                            {/*{{{*/
   this->isserved_collapsed = state;
}/*}}}*/

GetResultArraySize()

int PentaInput2::GetResultArraySize ( void  )

virtual

Implements ElementInput2.

Definition at line 371 of file PentaInput2.cpp.

                                        {/*{{{*/
   return 1;
}

GetResultInterpolation()

int PentaInput2::GetResultInterpolation ( void  )

virtual

Implements ElementInput2.

Definition at line 375 of file PentaInput2.cpp.

                                            {/*{{{*/
   if(this->interpolation==P0Enum || this->interpolation==P0DGEnum){
      return P0Enum;
   }
   return P1Enum;
}/*}}}*/

GetResultNumberOfNodes()

int PentaInput2::GetResultNumberOfNodes ( void  )

virtual

Implements ElementInput2.

Definition at line 381 of file PentaInput2.cpp.

                                            {/*{{{*/
   return this->N;
}

Reset()

void PentaInput2::Reset

(

int

interp_in

)

Definition at line 48 of file PentaInput2.cpp.

                                    {/*{{{*/
 
   /*Clean up*/
   if(this->values)         xDelete<IssmDouble>(this->values);
   if(this->element_values) xDelete<IssmDouble>(this->element_values);
 
   /*Set interpolation*/
   this->interpolation  = interp_in;
 
   /*Create Sizes*/
   if(this->interpolation==P1Enum){
      this->M = this->numberofvertices_local;
      this->N = 1;
   }
   else{
      this->M = this->numberofelements_local;
      this->N = PentaRef::NumberofNodes(interp_in);
   }
 
   /*Allocate Pointers*/
   this->values         = xNewZeroInit<IssmDouble>(this->M*this->N);
   this->element_values = xNewZeroInit<IssmDouble>(PentaRef::NumberofNodes(interp_in));
}/*}}}*/

Field Documentation

isserved_collapsed

int PentaInput2::isserved_collapsed

private

Definition at line 11 of file PentaInput2.h.

---

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

• src/c/classes/Inputs2/PentaInput2.h
• src/c/classes/Inputs2/PentaInput2.cpp