 |
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"
7 #define AEPS 2.2204460492503131E-015
14 iomodel->
FindConstant(&hydrology_model,
"md.hydrology.model");
25 iomodel->
FindConstant(&hydrology_model,
"md.hydrology.model");
34 iomodel->
FindConstant(&ischannels,
"md.hydrology.ischannels");
35 iomodel->
FetchData(&channelarea,&K,&L,
"md.initialization.channelarea");
42 int element=iomodel->
faces[4*i+2]-1;
49 _error_(
"Unknown dimension for channel area initialization.");
57 iomodel->
DeleteData(1,
"md.initialization.channelarea");
70 else if(reCast<int>(iomodel->
Data(
"md.mesh.vertexonbase")[i])){
81 iomodel->
FetchData(&segments,&M,&N,
"md.mesh.segments");
90 xDelete<int>(segments);
97 iomodel->
FindConstant(&hydrology_model,
"md.hydrology.model");
104 iomodel->
DeleteData(2,
"md.mesh.vertexonbase",
"md.mesh.vertexonsurface");
112 int hydrology_model,frictionlaw;
113 iomodel->
FindConstant(&hydrology_model,
"md.hydrology.model");
123 element->
Update(inputs2,i,iomodel,analysis_counter,analysis_type,
P1Enum);
160 _error_(
"Friction law "<< frictionlaw <<
" not supported");
168 char** requestedoutputs = NULL;
169 iomodel->
FindConstant(&hydrology_model,
"md.hydrology.model");
195 if(frictionlaw==1 || frictionlaw==3 || frictionlaw==7){
206 iomodel->
FindConstant(&requestedoutputs,&numoutputs,
"md.hydrology.requested_outputs");
209 iomodel->
DeleteData(&requestedoutputs,numoutputs,
"md.hydrology.requested_outputs");
239 IssmDouble* dbasis = xNew<IssmDouble>(2*numnodes);
240 IssmDouble* basis = xNew<IssmDouble>(numnodes);
261 for(
int ig=gauss->
begin();ig<gauss->end();ig++){
278 IssmDouble normgradphi = sqrt(dphi[0]*dphi[0] + dphi[1]*dphi[1]);
279 if(normgradphi <
AEPS) normgradphi =
AEPS;
284 for(
int i=0;i<numnodes;i++){
285 for(
int j=0;j<numnodes;j++){
287 coeff*dbasis[0*numnodes+i]*dbasis[0*numnodes+j]
288 + coeff*dbasis[1*numnodes+i]*dbasis[1*numnodes+j]);
293 phi_0 = rho_water*g*b + rho_ice*g*H;
295 v1 = 2./pow(n,n)*A*h*(pow(fabs(phi_0 - phi),n-1.)*( - n));
296 for(
int i=0;i<numnodes;i++){
297 for(
int j=0;j<numnodes;j++){
298 Ke->
values[i*numnodes+j] += gauss->
weight*Jdet*(-v1)*basis[i]*basis[j];
305 for(
int i=0;i<numnodes;i++){
306 for(
int j=0;j<numnodes;j++){
307 Ke->
values[i*numnodes+j] += gauss->
weight*Jdet*e_v/(rho_water*g*dt)*basis[i]*basis[j];
315 xDelete<IssmDouble>(xyz_list);
316 xDelete<IssmDouble>(basis);
317 xDelete<IssmDouble>(dbasis);
339 IssmDouble* basis = xNew<IssmDouble>(numnodes);
369 for(
int ig=gauss->
begin();ig<gauss->end();ig++){
388 ub = sqrt(vx*vx + vy*vy);
392 if(h<h_r) w = ub*(h_r-h)/l_r;
396 frictionheat=alpha2*ub*ub;
400 m = (G + frictionheat)/(rho_ice*L);
407 phi_0 = rho_water*g*b + rho_ice*g*H;
409 v2 = 2./pow(n,n)*A*h*(pow(fabs(phi_0 - phi),n-1.)*(phi_0 +(n-1.)*phi));
411 for(
int i=0;i<numnodes;i++) pe->
values[i]+= - Jdet*gauss->
weight*(w-v2-m)*basis[i];
416 for(
int i=0;i<numnodes;i++) pe->
values[i] += gauss->
weight*Jdet*e_v/(rho_water*g*dt)*phi_old*basis[i];
421 xDelete<IssmDouble>(xyz_list);
422 xDelete<IssmDouble>(basis);
433 _error_(
"Not implemented yet");
448 if(!ischannels)
return;
480 IssmDouble* h_new = xNew<IssmDouble>(numvertices);
500 for(
int iv=0;iv<numvertices;iv++){
515 phi_0 = rho_water*g*b + rho_ice*g*H;
519 ub = sqrt(vx*vx + vy*vy);
526 alpha = -ub/l_r - 2./pow(n,n)*A*pow(fabs(N),n-1.)*N;
530 alpha = - 2./pow(n,n)*A*pow(fabs(N),n-1.)*N;
538 if(h_new[iv]<
AEPS) h_new[iv] =
AEPS;
544 xDelete<IssmDouble>(h_new);
577 for(
int iv=0;iv<numnodes;iv++){
586 phi_m = rho_water*g*b;
597 if(xIsNan<IssmDouble>(N[iv]))
_error_(
"NaN found in solution vector");
598 if(xIsInf<IssmDouble>(N[iv]))
_error_(
"Inf found in solution vector");
605 xDelete<IssmDouble>(N);
611 if(!ischannels)
return;
@ FrictionCoefficientEnum
void Core(FemModel *femmodel)
void UpdateParameters(Parameters *parameters, IoModel *iomodel, int solution_enum, int analysis_enum)
Declaration of Nodes class.
virtual int GetNumberOfNodes(void)=0
@ HydrologySheetThicknessOldEnum
void FindParam(bool *pvalue, int paramenum)
@ HydrologyRequestedOutputsEnum
int AddObject(Object *object)
ElementVector * CreatePVector(Element *element)
Declaration of Parameters class.
@ MaterialsRhoFreshwaterEnum
@ TimesteppingTimeStepEnum
Declaration of Constraints class.
void UpdateElements(Elements *elements, Inputs2 *inputs2, IoModel *iomodel, int analysis_counter, int analysis_type)
Declaration of Elements class.
@ HydrologyPressureMeltCoefficientEnum
void UpdateSheetThickness(FemModel *femmodel)
@ MaterialsLatentheatEnum
virtual void GaussNode(int finitelement, int iv)=0
void AddObject(Param *newparam)
@ HydrologyNeumannfluxEnum
virtual Input2 * GetInput2(int inputenum)=0
@ HydrologyGlaDSAnalysisEnum
virtual void NodalFunctions(IssmDouble *basis, Gauss *gauss)=0
@ HydrologyMoulinInputEnum
void UpdateEffectivePressure(FemModel *femmodel)
ElementVector * NewElementVector(int approximation_enum=NoneApproximationEnum)
void DeleteData(int num,...)
@ HydrologySheetConductivityEnum
Param * CopyConstantObject(const char *constant_name, int param_enum)
@ BasalforcingsGroundediceMeltingRateEnum
virtual void AddInput2(int input_enum, IssmDouble *values, int interpolation_enum)
void CreateConstraints(Constraints *constraints, IoModel *iomodel)
virtual Gauss * NewGauss(void)=0
@ HydrologySheetThicknessEnum
ElementVector * CreateDVector(Element *element)
virtual void InputUpdateFromSolutionOneDof(IssmDouble *solution, int inputenum)=0
: header file for generic external result object
@ HydrologyBumpHeightEnum
IssmDouble alpha(IssmDouble x, IssmDouble y, IssmDouble z, int testid)
void FindConstant(bool *pvalue, const char *constant_name)
void GetSolutionFromInputs(Vector< IssmDouble > *solution, Element *element)
void GetVerticesCoordinates(IssmDouble **xyz_list)
void UpdateChannelCrossSection(FemModel *femmodel)
@ HydrologyCavitySpacingEnum
void SetChannelCrossSectionOld(void)
void FetchData(bool *pboolean, const char *data_name)
@ HydrologyNumRequestedOutputsEnum
void CreateSingleNodeToElementConnectivity(IoModel *iomodel)
virtual void GaussVertex(int iv)=0
IssmDouble ODE1(IssmDouble alpha, IssmDouble beta, IssmDouble Si, IssmDouble dt, int method)
IssmDouble * Data(const char *data_name)
Declaration of Loads class.
void GetSolutionFromInputsOneDof(Vector< IssmDouble > *solution, int solutionenum)
#define _error_(StreamArgs)
@ HydrologyChannelConductivityEnum
virtual int begin(void)=0
Object * GetObjectByOffset(int offset)
@ MeshVertexonsurfaceEnum
@ HydrologyEnglacialVoidRatioEnum
@ HydrologyChannelSheetWidthEnum
virtual void JacobianDeterminant(IssmDouble *Jdet, IssmDouble *xyz_list, Gauss *gauss)=0
@ FrictionEffectivePressureLimitEnum
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
int DofsPerNode(int **doflist, int domaintype, int approximation)
void FindParam(bool *pinteger, int enum_type)
virtual int FiniteElement(void)=0
void GetAlpha2(IssmDouble *palpha2, Gauss *gauss)
void FetchDataToInput(Inputs2 *inputs2, Elements *elements, const char *vector_name, int input_enum)
ElementMatrix * CreateJacobianMatrix(Element *element)
void IoModelToConstraintsx(Constraints *constraints, IoModel *iomodel, const char *spc_name, int analysis_type, int finite_element, int dof)
void CreateLoads(Loads *loads, IoModel *iomodel)
@ BasalforcingsGeothermalfluxEnum
void UpdateConstraints(FemModel *femmodel)
void CreateFaces(IoModel *iomodel)
ElementMatrix * CreateKMatrix(Element *element)
void GradientJ(Vector< IssmDouble > *gradient, Element *element, int control_type, int control_index)
virtual int GetNumberOfVertices(void)=0
void SetChannelCrossSectionOld(FemModel *femmodel)
void InputUpdateFromSolution(IssmDouble *solution, Element *element)
void UpdateChannelCrossSection(void)
@ HydrologyIschannelsEnum
void CreateNodes(Nodes *nodes, IoModel *iomodel, bool isamr=false)
@ HydraulicPotentialOldEnum
virtual void NodalFunctionsDerivatives(IssmDouble *dbasis, IssmDouble *xyz_list, Gauss *gauss)=0
ElementMatrix * NewElementMatrix(int approximation_enum=NoneApproximationEnum)