Changeset 17324
- Timestamp:
- 02/20/14 14:11:43 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
issm/trunk-jpl/src/c/analyses/StressbalanceAnalysis.cpp
r17317 r17324 5 5 #include "../modules/modules.h" 6 6 #include "../solutionsequences/solutionsequences.h" 7 #include "../cores/cores.h" 7 8 8 9 //#define FSANALYTICAL 1 … … 272 273 } 273 274 iomodel->FetchData(3,FlowequationBorderSSAEnum,FlowequationVertexEquationEnum,StressbalanceReferentialEnum); 274 if(iomodel->meshtype ==Mesh3DEnum) iomodel->FetchData(3,MeshVertexonbedEnum,MeshVertexonsurfaceEnum,FlowequationBorderFSEnum);275 if(iomodel->meshtype!=Mesh2DhorizontalEnum) iomodel->FetchData(3,MeshVertexonbedEnum,MeshVertexonsurfaceEnum,FlowequationBorderFSEnum); 275 276 ::CreateNodes(nodes,iomodel,StressbalanceAnalysisEnum,finiteelement,approximation); 276 277 iomodel->DeleteData(6,MeshVertexonbedEnum,MeshVertexonsurfaceEnum,FlowequationBorderSSAEnum,FlowequationBorderFSEnum, … … 838 839 bool isSSA,isL1L2,isHO,isFS; 839 840 bool conserve_loads = true; 840 int newton ;841 int newton,meshtype; 841 842 842 843 /* recover parameters:*/ … … 845 846 femmodel->parameters->FindParam(&isHO,FlowequationIsHOEnum); 846 847 femmodel->parameters->FindParam(&isFS,FlowequationIsFSEnum); 848 femmodel->parameters->FindParam(&meshtype,MeshTypeEnum); 847 849 femmodel->parameters->FindParam(&newton,StressbalanceIsnewtonEnum); 848 850 … … 855 857 else 856 858 solutionsequence_nonlinear(femmodel,conserve_loads); 859 860 if(meshtype==Mesh2DverticalEnum && isSSA){ 861 femmodel->parameters->SetParam(VxEnum,InputToExtrudeEnum); 862 extrudefrombase_core(femmodel); 863 femmodel->parameters->SetParam(VelEnum,InputToExtrudeEnum); 864 extrudefrombase_core(femmodel); 865 } 857 866 } 858 867
Note:
See TracChangeset
for help on using the changeset viewer.