 |
Ice Sheet System Model
4.18
Code documentation
|
Go to the documentation of this file.
2 #include "../toolkits/toolkits.h"
3 #include "../classes/classes.h"
4 #include "../shared/shared.h"
5 #include "../modules/modules.h"
26 element->
Update(inputs2,i,iomodel,analysis_counter,analysis_type,
P1Enum);
71 for(
int ig=gauss->
begin();ig<gauss->end();ig++){
75 GetB(B,element,dim,xyz_list,gauss);
94 xDelete<IssmDouble>(xyz_list);
95 xDelete<IssmDouble>(B);
111 IssmDouble* basis = xNew<IssmDouble>(numnodes);
120 for(
int ig=gauss->
begin();ig<gauss->end();ig++){
128 scalar=value*Jdet*gauss->
weight;
129 for(
int i=0;i<numnodes;i++) pe->
values[i]+=scalar*basis[i];
134 xDelete<IssmDouble>(basis);
135 xDelete<IssmDouble>(xyz_list);
147 IssmDouble* dbasis=xNew<IssmDouble>(dim*numnodes);
151 for(
int i=0;i<numnodes;i++){
152 B[i] = dbasis[(dim-1)*numnodes+i];
156 xDelete<IssmDouble>(dbasis);
160 _error_(
"not implemented yet");
163 _error_(
"Not implemented yet");
void CreateConstraints(Constraints *constraints, IoModel *iomodel)
void UpdateParameters(Parameters *parameters, IoModel *iomodel, int solution_enum, int analysis_enum)
Declaration of Nodes class.
@ InputToDepthaverageOutEnum
virtual int GetNumberOfNodes(void)=0
void FindParam(bool *pvalue, int paramenum)
Declaration of Parameters class.
@ DepthAverageAnalysisEnum
Declaration of Constraints class.
Declaration of Elements class.
int TripleMultiply(IssmDouble *a, int nrowa, int ncola, int itrna, IssmDouble *b, int nrowb, int ncolb, int itrnb, IssmDouble *c, int nrowc, int ncolc, int itrnc, IssmDouble *d, int iaddd)
void InputUpdateFromSolution(IssmDouble *solution, Element *element)
void GetSolutionFromInputs(Vector< IssmDouble > *solution, Element *element)
ElementMatrix * CreateJacobianMatrix(Element *element)
void CreateLoads(Loads *loads, IoModel *iomodel)
virtual Input2 * GetInput2(int inputenum)=0
virtual void NodalFunctions(IssmDouble *basis, Gauss *gauss)=0
void UpdateConstraints(FemModel *femmodel)
ElementVector * NewElementVector(int approximation_enum=NoneApproximationEnum)
ElementVector * CreateDVector(Element *element)
void CreateNodes(Nodes *nodes, IoModel *iomodel, bool isamr=false)
virtual Gauss * NewGauss(void)=0
virtual void InputUpdateFromSolutionOneDof(IssmDouble *solution, int inputenum)=0
void GetVerticesCoordinates(IssmDouble **xyz_list)
void GetB(IssmDouble *B, Element *element, int dim, IssmDouble *xyz_list, Gauss *gauss)
ElementVector * CreatePVector(Element *element)
void GradientJ(Vector< IssmDouble > *gradient, Element *element, int control_type, int control_index)
Declaration of Loads class.
@ InputToDepthaverageInEnum
#define _error_(StreamArgs)
virtual int begin(void)=0
Object * GetObjectByOffset(int offset)
void UpdateElements(Elements *elements, Inputs2 *inputs2, IoModel *iomodel, int analysis_counter, int analysis_type)
: header file for generic external result object
virtual void JacobianDeterminant(IssmDouble *Jdet, IssmDouble *xyz_list, Gauss *gauss)=0
virtual void GaussPoint(int ig)=0
virtual void Update(Inputs2 *inputs2, int index, IoModel *iomodel, int analysis_counter, int analysis_type, int finite_element)=0
void Core(FemModel *femmodel)
void FetchDataToInput(Inputs2 *inputs2, Elements *elements, const char *vector_name, int input_enum)
int DofsPerNode(int **doflist, int domaintype, int approximation)
ElementMatrix * CreateKMatrix(Element *element)
virtual void NodalFunctionsDerivatives(IssmDouble *dbasis, IssmDouble *xyz_list, Gauss *gauss)=0
ElementMatrix * NewElementMatrix(int approximation_enum=NoneApproximationEnum)