source: issm/trunk/src/c/classes/Elements/Tria.h@ 27232

Last change on this file since 27232 was 27232, checked in by Mathieu Morlighem, 3 years ago

merged trunk-jpl and trunk for revision 27230
File size: 16.4 KB
RevLine 
[24686]1/*! \file Tria.h
[3683]2 * \brief: header file for tria object
3 */
4
5#ifndef _TRIA_H_
6#define _TRIA_H_
7
8/*Headers:*/
[12365]9/*{{{*/
[3683]10#include "./Element.h"
[15372]11#include "./ElementHook.h"
[3828]12#include "./TriaRef.h"
[3683]13class Parameters;
14class Inputs;
15class IoModel;
[15049]16class Results;
[3791]17class Node;
[13129]18class Material;
[26744]19class Matlitho;
[16560]20class Seg;
[5772]21class ElementMatrix;
22class ElementVector;
[14996]23class Vertex;
[17806]24class GaussTria;
[3683]25
[15012]26#include "../../shared/Exceptions/exceptions.h"
27#include "../../shared/Enum/Enum.h"
[3683]28/*}}}*/
29
[15372]30class Tria: public Element,public ElementHook,public TriaRef{
[3683]31
32 public:
[24686]33 int iscollapsed;
[3683]34
[12365]35 /*Tria constructors, destructors {{{*/
[17806]36 Tria(){};
[24686]37 Tria(int tria_id,int tria_sid,int tria_lid,IoModel* iomodel,int nummodels);
[3683]38 ~Tria();
39 /*}}}*/
[12365]40 /*Object virtual functions definitions:{{{ */
[13414]41 Object *copy();
[25836]42 void Marshall(MarshallHandle* marshallhandle);
[21341]43 int ObjectEnum();
[4248]44 /*}}}*/
[12365]45 /*Update virtual functions resolution: {{{*/
[9761]46 #ifdef _HAVE_DAKOTA_
[19105]47 void InputUpdateFromMatrixDakota(IssmDouble* matrix, int nows, int ncols, int name, int type);
[12471]48 void InputUpdateFromVectorDakota(IssmDouble* vector, int name, int type);
[25836]49 void InputScaleFromDakota(IssmDouble* distributed_values, IssmDouble* partition, int npart, int nt, int name);
[9761]50 #endif
[6216]51 void InputUpdateFromIoModel(int index, IoModel* iomodel);
[19105]52 void InputUpdateFromVector(IssmDouble* vector, int name, int type);
[4244]53 /*}}}*/
[12365]54 /*Element virtual functions definitions: {{{*/
[19105]55 void AverageOntoPartition(Vector<IssmDouble>* partition_contributions,Vector<IssmDouble>* partition_areas,IssmDouble* vertex_response,IssmDouble* qmu_part);
[22758]56 void CalvingRateVonmises();
[27035]57 void CalvingRateTest();
[22758]58 void CalvingCrevasseDepth();
[19105]59 void CalvingRateLevermann();
[24313]60 void CalvingFluxLevelset();
61 void CalvingMeltingFluxLevelset();
[27035]62 void CalvingRateParameterization();
[17806]63 IssmDouble CharacteristicLength(void);
[24313]64 void ComputeBasalStress(void);
[19105]65 void ComputeDeviatoricStressTensor();
[21729]66 void ComputeEsaStrainAndVorticity();
[17806]67 void ComputeSigmaNN();
[27035]68 void ComputeSigmaVM();
[16137]69 void ComputeStressTensor();
[17806]70 void ComputeSurfaceNormalVelocity();
[25836]71 void Configure(Elements* elements,Loads* loads,Nodes* nodesin,Vertices* verticesin,Materials* materials,Parameters* parameters,Inputs* inputsin);
72 void ControlInputSetGradient(IssmDouble* gradient,int enum_type,int control_index,int offset,int M,int N,int interp);
73 void ControlToVectors(Vector<IssmPDouble>* vector_control, Vector<IssmPDouble>* vector_gradient,int control_enum,int control_interp);
[23189]74 void CreateDistanceInputFromSegmentlist(IssmDouble* distances,int distanceenum);
[26744]75 void ElementCoordinates(Vector<IssmDouble>* vxe,Vector<IssmDouble>* vye,Vector<IssmDouble>* vze, Vector<IssmDouble>* vareae, bool spherical=false);
76 void ElementCoordinates(Vector<IssmDouble>* vlonge,Vector<IssmDouble>* vlate,Vector<IssmDouble>* vareae);
[19105]77 int EdgeOnBaseIndex();
78 void EdgeOnBaseIndices(int* pindex1,int* pindex);
79 int EdgeOnSurfaceIndex();
80 void EdgeOnSurfaceIndices(int* pindex1,int* pindex);
81 void ElementResponse(IssmDouble* presponse,int response_enum);
[17806]82 void ElementSizes(IssmDouble* hx,IssmDouble* hy,IssmDouble* hz);
[19105]83 int FiniteElement(void);
[22758]84 IssmDouble FloatingArea(bool scaled);
[23189]85 void FSContactMigration(Vector<IssmDouble>* vertex_sigmann,Vector<IssmDouble>* vertex_waterpressure);
[17806]86 Element* GetBasalElement(void){_error_("not implemented yet");};
[19105]87 void GetLevelsetPositivePart(int* point1,IssmDouble* fraction1,IssmDouble* fraction2, bool* mainlynegative,IssmDouble* levelsetvalues);
[17806]88 void GetGroundedPart(int* point1,IssmDouble* fraction1, IssmDouble* fraction2,bool* mainlyfloating);
89 IssmDouble GetGroundedPortion(IssmDouble* xyz_list);
[26744]90 void GetFractionGeometry(IssmDouble* weights, IssmDouble* pphi, int* ppoint1,IssmDouble* pfraction1,IssmDouble* pfraction2, bool* ptrapezeisnegative, IssmDouble* gl);
91 void GetNodalWeightsAndAreaAndCentroidsFromLeveset(IssmDouble* loadweights, IssmDouble* ploadarea, IssmDouble* platbar, IssmDouble* plongbar, IssmDouble late, IssmDouble longe, IssmDouble area, int levelsetenum);
92 void GetNodalWeightsAndAreaAndCentroidsFromLeveset(IssmDouble* loadweights, IssmDouble* ploadarea, IssmDouble* platbar, IssmDouble* plongbar, IssmDouble late, IssmDouble longe, IssmDouble area, int levelset1enum, int levelset2enum);
93 void GetBarycenterFromLevelset(IssmDouble* platbar, IssmDouble* plongbar,IssmDouble phi,IssmDouble fraction1,IssmDouble fraction2,IssmDouble late, IssmDouble longe, int point1,int istrapeze1, IssmDouble planetradius);
94 IssmDouble GetTriangleAreaSpherical(IssmDouble xyz_list[3][3]);
[24313]95 IssmDouble GetIcefrontArea();
[19105]96 void GetIcefrontCoordinates(IssmDouble** pxyz_front,IssmDouble* xyz_list,int levelsetenum);
[25836]97 void GetInputListOnVertices(IssmDouble* pvalue,Input* input,IssmDouble default_value);
98 void GetInputListOnNodes(IssmDouble* pvalue,Input* input,IssmDouble default_value);
[19105]99 void GetLevelCoordinates(IssmDouble** pxyz_front,IssmDouble* xyz_list,int levelsetenum,IssmDouble level);
[24313]100 int GetVertexIndex(Vertex* vertex);
[16137]101 int GetNumberOfNodes(void);
[18301]102 int GetNumberOfNodes(int enum_type);
[17806]103 int GetNumberOfVertices(void);
[25836]104 void GetVectorFromControlInputs(Vector<IssmDouble>* gradient,int control_enum,int control_index,int N,const char* data,int offset);
[17806]105 void GetVerticesCoordinatesBase(IssmDouble** pxyz_list);
106 void GetVerticesCoordinatesTop(IssmDouble** pxyz_list);
[22758]107 IssmDouble GroundedArea(bool scaled);
[19105]108 bool HasEdgeOnBase();
109 bool HasEdgeOnSurface();
[22758]110 IssmDouble IceVolume(bool scaled);
111 IssmDouble IceVolumeAboveFloatation(bool scaled);
[24313]112 IssmDouble IcefrontMassFlux(bool scaled);
113 IssmDouble IcefrontMassFluxLevelset(bool scaled);
114 IssmDouble GroundinglineMassFlux(bool scaled);
[17806]115 void InputDepthAverageAtBase(int enum_type,int average_enum_type);
[19105]116 void InputExtrude(int enum_type,int start){_error_("not implemented"); /*For penta only*/};
[24686]117 void ControlInputExtrude(int enum_type,int start){/*For penta only*/};
[19105]118 bool IsFaceOnBoundary(void);
119 bool IsIcefront(void);
120 bool IsNodeOnShelfFromFlags(IssmDouble* flags);
121 bool IsZeroLevelset(int levelset_enum);
122 IssmDouble Masscon(IssmDouble* levelset);
123 IssmDouble MassFlux(IssmDouble* segment);
124 IssmDouble MassFlux(IssmDouble x1,IssmDouble y1, IssmDouble x2, IssmDouble y2,int segment_id);
[16137]125 void MaterialUpdateFromTemperature(void){_error_("not implemented yet");};
[19105]126 IssmDouble Misfit(int modelenum,int observationenum,int weightsenum);
127 IssmDouble MisfitArea(int weightsenum);
[16137]128 int NodalValue(IssmDouble* pvalue, int index, int natureofdataenum);
[19105]129 int NumberofNodesPressure(void);
130 int NumberofNodesVelocity(void);
131 void PotentialUngrounding(Vector<IssmDouble>* potential_sheet_ungrounding);
132 int PressureInterpolation();
[17806]133 void ReduceMatrices(ElementMatrix* Ke,ElementVector* pe);
134 void ResetFSBasalBoundaryCondition(void);
[19105]135 void ResetHooks();
[21341]136 void ResetLevelsetFromSegmentlist(IssmDouble* segments,int numsegments);
[26744]137 void SetElementInput(int enum_in,IssmDouble value);
138 void SetElementInput(int enum_in,IssmDouble value,int type);
139 void SetElementInput(Inputs* inputs,int enum_in,IssmDouble value);
[25836]140 void SetElementInput(Inputs* inputs,int numindices,int* indices,IssmDouble* values,int enum_in);
141 void SetControlInputsFromVector(IssmDouble* vector,int control_enum,int control_index,int offset,int M,int N);
[19105]142 void SetCurrentConfiguration(Elements* elements,Loads* loads,Nodes* nodes,Materials* materials,Parameters* parameters);
[25836]143 Element* SpawnBasalElement(bool depthaverage_materials);
[17806]144 Element* SpawnTopElement(void);
[26744]145 bool IsSpawnedElement(void);
[19105]146 void StrainRateparallel();
147 void StrainRateperpendicular();
148 void StressIntensityFactor(void){_error_("not implemented yet");};
149 IssmDouble SurfaceArea(void);
[17989]150 int TensorInterpolation();
[19105]151 IssmDouble TimeAdapt();
[24313]152 IssmDouble TotalCalvingFluxLevelset(bool scaled);
153 IssmDouble TotalCalvingMeltingFluxLevelset(bool scaled);
[22758]154 IssmDouble TotalFloatingBmb(bool scaled);
155 IssmDouble TotalGroundedBmb(bool scaled);
156 IssmDouble TotalSmb(bool scaled);
[25836]157 void Update(Inputs* inputs,int index, IoModel* iomodel,int analysis_counter,int analysis_type,int finitelement);
[19105]158 int UpdatePotentialUngrounding(IssmDouble* vertices_potentially_ungrounding,Vector<IssmDouble>* vec_nodes_on_iceshelf,IssmDouble* nodes_on_iceshelf);
159 void ValueP1DerivativesOnGauss(IssmDouble* dvalue,IssmDouble* values,IssmDouble* xyz_list,Gauss* gauss);
[18301]160 void ValueP1OnGauss(IssmDouble* pvalue,IssmDouble* values,Gauss* gauss);
[19105]161 int VelocityInterpolation();
[17806]162 int VertexConnectivity(int vertexindex);
[18301]163 void VerticalSegmentIndices(int** pindices,int* pnumseg){_error_("not implemented yet");};
[21729]164 void VerticalSegmentIndicesBase(int** pindices,int* pnumseg){_error_("not implemented yet");};
[22758]165 void WriteFieldIsovalueSegment(DataSet* segments,int fieldenum,IssmDouble fieldvalue);
[9817]166
[21341]167 #ifdef _HAVE_ESA_
[22758]168 void EsaGeodetic2D(Vector<IssmDouble>* pUp,Vector<IssmDouble>* pNorth,Vector<IssmDouble>* pEast, Vector<IssmDouble>* pX,Vector<IssmDouble>* pY,IssmDouble* xx,IssmDouble* yy);
[25836]169 void EsaGeodetic3D(Vector<IssmDouble>* pUp,Vector<IssmDouble>* pNorth,Vector<IssmDouble>* pEast,IssmDouble* latitude,IssmDouble* longitude,IssmDouble* radius,IssmDouble* xx,IssmDouble* yy,IssmDouble* zz);
[21341]170 #endif
[26744]171 #ifdef _HAVE_SEALEVELCHANGE_
172 void GiaDeflection(Vector<IssmDouble>* wg,Vector<IssmDouble>* dwgdt,Matlitho* litho, IssmDouble* x,IssmDouble* y);
[27232]173 void SealevelchangeGeometryInitial(IssmDouble* xxe, IssmDouble* yye, IssmDouble* zze, IssmDouble* areae, int* lids);
[26744]174 void SealevelchangeGeometrySubElementKernel(SealevelGeometry* slgeom);
175 void SealevelchangeGeometrySubElementLoads(SealevelGeometry* slgeom, IssmDouble* areae);
176 void SealevelchangeGeometryCentroidLoads(SealevelGeometry* slgeom, IssmDouble* xxe, IssmDouble* yye, IssmDouble* zze, IssmDouble* areae);
177 void SealevelchangeBarystaticLoads(GrdLoads* loads, BarystaticContributions* barycontrib, SealevelGeometry* slgeom);
178 void SealevelchangeConvolution(IssmDouble* sealevelpercpu, GrdLoads* loads, IssmDouble* rotationvector,SealevelGeometry* slgeom);
179 void SealevelchangeOceanAverage(GrdLoads* loads, Vector<IssmDouble>* oceanareas, Vector<IssmDouble>* subelementoceanareas, IssmDouble* sealevelpercpu, SealevelGeometry* slgeom);
180 void SealevelchangeDeformationConvolution(IssmDouble* sealevelpercpu, GrdLoads* loads, IssmDouble* rotationvector,SealevelGeometry* slgeom);
181 void SealevelchangeShift(GrdLoads* loads, IssmDouble offset, SealevelGeometry* slgeom);
[27035]182 void SealevelchangeUpdateViscousFields(IssmDouble lincoeff, int newindex, int offset);
[20500]183 #endif
[3821]184 /*}}}*/
[12365]185 /*Tria specific routines:{{{*/
[25836]186 void AddBasalInput(int input_enum, IssmDouble* values, int interpolation_enum);
187 void AddInput(int input_enum, IssmDouble* values, int interpolation_enum);
188 void AddControlInput(int input_enum,Inputs* inputs,IoModel* iomodel,IssmDouble* values,IssmDouble* values_min,IssmDouble* values_max, int interpolation_enum,int id);
189 void DatasetInputCreate(IssmDouble* array,int M,int N,int* individual_enums,int num_inputs,Inputs* inputs,IoModel* iomodel,int input_enum);
190 void CreateInputTimeAverage(int transientinput_enum,int averagedinput_enum,IssmDouble init_time,IssmDouble end_time,int averaging_method);
[24686]191 void GetInputAveragesUpToCurrentTime(int input_enum,IssmDouble** pvalues, IssmDouble** ptimes, int* pnumtimes, IssmDouble currenttime);
[14796]192 IssmDouble GetArea(void);
[22758]193 IssmDouble GetHorizontalSurfaceArea(void);
[20500]194 IssmDouble GetArea3D(void);
195 IssmDouble GetAreaIce(void);
[21341]196 IssmDouble GetAreaSpherical(void);
[17806]197 void GetAreaCoordinates(IssmDouble *area_coordinates,IssmDouble* xyz_zero,IssmDouble* xyz_list,int numpoints);
[9775]198 int GetElementType(void);
[25836]199 Input* GetInput(int enumtype);
200 Input* GetInput(int enumtype,IssmDouble time);
201 Input* GetInput(int inputenum,IssmDouble start_time,IssmDouble end_time,int averaging_method);
202 DatasetInput* GetDatasetInput(int inputenum);
[12471]203 void GetInputValue(IssmDouble* pvalue,Node* node,int enumtype);
[24313]204 void GetInputValue(IssmDouble* pvalue,Vertex* vertex,int enumtype);
205 void GetLevelsetIntersection(int** pindices, int* pnumiceverts, IssmDouble* fraction, int levelset_enum, IssmDouble level);
[16560]206 void GetMaterialInputValue(IssmDouble* pvalue,Node* node,int enumtype);
[12471]207 void InputUpdateFromSolutionOneDof(IssmDouble* solution,int enum_type);
[17806]208 void InputUpdateFromSolutionOneDofCollapsed(IssmDouble* solution,int enum_type){_error_("not implemented yet");};
209 void JacobianDeterminant(IssmDouble* pJdet, IssmDouble* xyz_list,Gauss* gauss);
[19105]210 void JacobianDeterminantBase(IssmDouble* pJdet,IssmDouble* xyz_list_base,Gauss* gauss);
[17806]211 void JacobianDeterminantLine(IssmDouble* Jdet, IssmDouble* xyz_list,Gauss* gauss){_error_("not implemented yet");};
212 void JacobianDeterminantSurface(IssmDouble* pJdet, IssmDouble* xyz_list,Gauss* gauss);
213 void JacobianDeterminantTop(IssmDouble* pJdet,IssmDouble* xyz_list_base,Gauss* gauss);
214 IssmDouble MinEdgeLength(IssmDouble* xyz_list){_error_("not implemented yet");};
[26744]215 void MovingFrontalVelocity(void);
[17806]216 Gauss* NewGauss(void);
217 Gauss* NewGauss(int order);
[26744]218 Gauss* NewGauss(IssmDouble* xyz_list, IssmDouble* xyz_list_front,int order);
219 Gauss* NewGauss(int point1,IssmDouble fraction1,IssmDouble fraction2,bool mainlyfloating,int order);
220 Gauss* NewGauss(int point1,IssmDouble fraction1,IssmDouble fraction2,int order);
221 Gauss* NewGauss(IssmDouble fraction1,IssmDouble fraction2,int order);
222 Gauss* NewGauss(IssmDouble* xyz_list, IssmDouble* xyz_list_front,int order_horiz,int order_vert);
[17806]223 Gauss* NewGaussBase(int order);
224 Gauss* NewGaussLine(int vertex1,int vertex2,int order){_error_("not implemented yet");};
225 Gauss* NewGaussTop(int order);
226 void NodalFunctions(IssmDouble* basis,Gauss* gauss);
227 void NodalFunctionsDerivatives(IssmDouble* dbasis,IssmDouble* xyz_list,Gauss* gauss);
[19105]228 void NodalFunctionsDerivativesVelocity(IssmDouble* dbasis,IssmDouble* xyz_list,Gauss* gauss);
[17806]229 void NodalFunctionsMINIDerivatives(IssmDouble* dbasis,IssmDouble* xyz_list,Gauss* gauss){_error_("not implemented yet");};
230 void NodalFunctionsPressure(IssmDouble* basis,Gauss* gauss);
[19105]231 void NodalFunctionsP1(IssmDouble* basis,Gauss* gauss);
232 void NodalFunctionsP1Derivatives(IssmDouble* dbasis,IssmDouble* xyz_list,Gauss* gauss);
233 void NodalFunctionsP2(IssmDouble* basis,Gauss* gauss);
[17806]234 void NodalFunctionsTensor(IssmDouble* basis,Gauss* gauss);
[19105]235 void NodalFunctionsVelocity(IssmDouble* basis,Gauss* gauss);
236 void NormalBase(IssmDouble* normal,IssmDouble* xyz_list);
237 void NormalSection(IssmDouble* normal,IssmDouble* xyz_list);
238 void NormalTop(IssmDouble* normal,IssmDouble* xyz_list);
[17806]239 void SetTemporaryElementType(int element_type_in){_error_("not implemented yet");};
[25836]240 void InputServe(Input* input_in);
[26744]241 Seg* SpawnSeg(int index1,int index2);
[17806]242 IssmDouble StabilizationParameter(IssmDouble u, IssmDouble v, IssmDouble w, IssmDouble diameter, IssmDouble kappa){_error_("not implemented yet");};
[24313]243 void StabilizationParameterAnisotropic(IssmDouble* tau_parameter_ansiotropic, IssmDouble u, IssmDouble v, IssmDouble w, IssmDouble hx, IssmDouble hy, IssmDouble hz, IssmDouble kappa){_error_("not implemented yet");};
[19105]244 void UpdateConstraintsExtrudeFromBase(void);
245 void UpdateConstraintsExtrudeFromTop(void);
[27232]246 void SealevelchangeGxL(IssmDouble* grdfieldout, int spatial_component, int* AlphaIndex, int** AlphaIndexsub, int* AzimIndex, int**AzimIndexsub, IssmDouble* G, IssmDouble* Grot, GrdLoads* loads, IssmDouble* polarmotionvector, SealevelGeometry* slgeom, int nel, bool percpu, int viscousenum, bool computefuture);
[4249]247 /*}}}*/
[3683]248
249};
250#endif /* _TRIA_H */
Note: See TracBrowser for help on using the repository browser.