Changeset 22535
- Timestamp:
- 03/13/18 07:06:32 (7 years ago)
- Location:
- issm/trunk-jpl/src/c/analyses
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
issm/trunk-jpl/src/c/analyses/StressbalanceVerticalAnalysis.cpp
r22511 r22535 479 479 return pe; 480 480 }/*}}}*/ 481 void StressbalanceVerticalAnalysis::GetB(IssmDouble* B,Element* element,IssmDouble* xyz_list,Gauss* gauss){/*{{{*/482 /* Compute B matrix. B=[dh1/dz dh2/dz dh3/dz dh4/dz dh5/dz dh6/dz];483 where hi is the interpolation function for node i.*/484 485 /*Fetch number of nodes for this finite element*/486 int numnodes = element->GetNumberOfNodes();487 488 /*Get nodal functions derivatives*/489 IssmDouble* dbasis=xNew<IssmDouble>(3*numnodes);490 element->NodalFunctionsDerivatives(dbasis,xyz_list,gauss);491 492 /*Build B: */493 for(int i=0;i<numnodes;i++){494 B[i] = dbasis[2*numnodes+i];495 }496 497 /*Clean-up*/498 xDelete<IssmDouble>(dbasis);499 }/*}}}*/500 void StressbalanceVerticalAnalysis::GetBprime(IssmDouble* Bprime,Element* element,IssmDouble* xyz_list,Gauss* gauss){/*{{{*/501 502 element->NodalFunctions(Bprime,gauss);503 504 }/*}}}*/505 481 void StressbalanceVerticalAnalysis::GetSolutionFromInputs(Vector<IssmDouble>* solution,Element* element){/*{{{*/ 506 482 element->GetSolutionFromInputsOneDof(solution,VzEnum); -
issm/trunk-jpl/src/c/analyses/StressbalanceVerticalAnalysis.h
r19267 r22535 32 32 ElementVector* CreatePVectorSurface(Element* element); 33 33 ElementVector* CreatePVectorVolume(Element* element); 34 void GetB(IssmDouble* B,Element* element,IssmDouble* xyz_list,Gauss* gauss);35 void GetBprime(IssmDouble* B,Element* element,IssmDouble* xyz_list,Gauss* gauss);36 34 void GetSolutionFromInputs(Vector<IssmDouble>* solution,Element* element); 37 35 void GradientJ(Vector<IssmDouble>* gradient,Element* element,int control_type,int control_index);
Note:
See TracChangeset
for help on using the changeset viewer.