Changeset 4684 for issm/trunk/src/c/objects/Loads/Icefront.cpp
- Timestamp:
- 07/21/10 07:50:16 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
issm/trunk/src/c/objects/Loads/Icefront.cpp
r4575 r4684 654 654 Node** nodes=NULL; 655 655 Element* element=NULL; 656 Penta* penta=NULL; 656 657 657 658 /*quad grids: */ … … 668 669 double v35[3]; 669 670 double v45[3]; 671 bool isstokes; 670 672 671 673 /*Recover hook objects: */ … … 673 675 element=(Element*)helement->delivers(); 674 676 nodes=(Node**)hnodes->deliverp(); 675 677 676 678 /*check icefront is associated to a pentaelem: */ 677 679 if(element->Enum()!=PentaEnum) ISSMERROR("Only Penta supported yet"); 680 penta=(Penta*)element; 681 682 /*If not Stokes, return*/ 683 penta->inputs->GetParameterValue(&isstokes,IsStokesEnum); 684 if(!isstokes) return; 678 685 679 686 /* Get dof list and node coordinates: */
Note:
See TracChangeset
for help on using the changeset viewer.