Changeset 15724
- Timestamp:
- 08/06/13 11:17:55 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
issm/trunk-jpl/src/c/classes/Elements/Penta.cpp
r15714 r15724 6722 6722 /*Initialize Element matrix and return if necessary*/ 6723 6723 ElementMatrix* Ke1=new ElementMatrix(pentabase->nodes,NUMVERTICES,this->parameters,SSAApproximationEnum); 6724 ElementMatrix* Ke2=new ElementMatrix(this->nodes ,NUMVERTICES,this->parameters,FS ApproximationEnum);6724 ElementMatrix* Ke2=new ElementMatrix(this->nodes ,NUMVERTICES,this->parameters,FSvelocityEnum); 6725 6725 ElementMatrix* Ke=new ElementMatrix(Ke1,Ke2); 6726 6726 delete Ke1; delete Ke2; … … 6818 6818 if(IsFloating() || !IsOnBed()) return NULL; 6819 6819 ElementMatrix* Ke1=new ElementMatrix(this->nodes,NUMVERTICES,this->parameters,SSAApproximationEnum); 6820 ElementMatrix* Ke2=new ElementMatrix(this->nodes,NUMVERTICES,this->parameters,FS ApproximationEnum);6820 ElementMatrix* Ke2=new ElementMatrix(this->nodes,NUMVERTICES,this->parameters,FSvelocityEnum); 6821 6821 ElementMatrix* Ke=new ElementMatrix(Ke1,Ke2); 6822 6822 delete Ke1; delete Ke2; … … 6921 6921 /*compute all stiffness matrices for this element*/ 6922 6922 ElementMatrix* Ke1=new ElementMatrix(this->nodes,NUMVERTICES,this->parameters,HOApproximationEnum); 6923 ElementMatrix* Ke2=new ElementMatrix(this->nodes,NUMVERTICES,this->parameters,FS ApproximationEnum);6923 ElementMatrix* Ke2=new ElementMatrix(this->nodes,NUMVERTICES,this->parameters,FSvelocityEnum); 6924 6924 ElementMatrix* Ke=new ElementMatrix(Ke1,Ke2); 6925 6925 delete Ke1; … … 7654 7654 7655 7655 /*Initialize Element matrix and vectors*/ 7656 ElementMatrix* Ke = new ElementMatrix(nodes,vnumnodes+pnumnodes,this->parameters,FS ApproximationEnum);7656 ElementMatrix* Ke = new ElementMatrix(nodes,vnumnodes+pnumnodes,this->parameters,FSvelocityEnum); 7657 7657 IssmDouble* B = xNew<IssmDouble>(8*numdof); 7658 7658 IssmDouble* Bprime = xNew<IssmDouble>(8*numdof); … … 7725 7725 7726 7726 /*Initialize Element matrix and vectors*/ 7727 ElementMatrix* Ke = new ElementMatrix(nodes,vnumnodes+pnumnodes,this->parameters,FS ApproximationEnum);7727 ElementMatrix* Ke = new ElementMatrix(nodes,vnumnodes+pnumnodes,this->parameters,FSvelocityEnum); 7728 7728 IssmDouble* BFriction = xNew<IssmDouble>(2*numdof); 7729 7729 IssmDouble* D = xNewZeroInit<IssmDouble>(2*2); … … 7909 7909 inputs->GetInputValue(&approximation,ApproximationEnum); 7910 7910 if(approximation!=SSAFSApproximationEnum) return NULL; 7911 ElementVector* pe=new ElementVector(nodes,NUMVERTICES,this->parameters,FS ApproximationEnum);7911 ElementVector* pe=new ElementVector(nodes,NUMVERTICES,this->parameters,FSvelocityEnum); 7912 7912 7913 7913 /*Retrieve all inputs and parameters*/ … … 7973 7973 inputs->GetInputValue(&approximation,ApproximationEnum); 7974 7974 if(approximation!=SSAFSApproximationEnum) return NULL; 7975 ElementVector* pe=new ElementVector(nodes,NUMVERTICES,this->parameters,FS ApproximationEnum);7975 ElementVector* pe=new ElementVector(nodes,NUMVERTICES,this->parameters,FSvelocityEnum); 7976 7976 7977 7977 /*Retrieve all inputs and parameters*/ … … 8054 8054 inputs->GetInputValue(&approximation,ApproximationEnum); 8055 8055 if(approximation!=HOFSApproximationEnum) return NULL; 8056 ElementVector* pe=new ElementVector(nodes,NUMVERTICES,this->parameters,FS ApproximationEnum);8056 ElementVector* pe=new ElementVector(nodes,NUMVERTICES,this->parameters,FSvelocityEnum); 8057 8057 8058 8058 /*Retrieve all inputs and parameters*/ … … 8118 8118 inputs->GetInputValue(&approximation,ApproximationEnum); 8119 8119 if(approximation!=HOFSApproximationEnum) return NULL; 8120 ElementVector* pe=new ElementVector(nodes,NUMVERTICES,this->parameters,FS ApproximationEnum);8120 ElementVector* pe=new ElementVector(nodes,NUMVERTICES,this->parameters,FSvelocityEnum); 8121 8121 8122 8122 /*Retrieve all inputs and parameters*/ … … 8573 8573 8574 8574 /*Initialize Element matrix and vectors*/ 8575 ElementVector* pe = new ElementVector(nodes,vnumnodes+pnumnodes,this->parameters,FS ApproximationEnum);8575 ElementVector* pe = new ElementVector(nodes,vnumnodes+pnumnodes,this->parameters,FSvelocityEnum); 8576 8576 IssmDouble* vbasis = xNew<IssmDouble>(vnumnodes); 8577 8577 … … 8736 8736 8737 8737 /*Initialize Element matrix and vectors*/ 8738 ElementVector* pe = new ElementVector(nodes,vnumnodes+pnumnodes,this->parameters,FS ApproximationEnum);8738 ElementVector* pe = new ElementVector(nodes,vnumnodes+pnumnodes,this->parameters,FSvelocityEnum); 8739 8739 IssmDouble* vbasis = xNew<IssmDouble>(vnumnodes); 8740 8740 … … 8808 8808 8809 8809 /*Initialize Element matrix and vectors*/ 8810 ElementVector* pe = new ElementVector(nodes,vnumnodes+pnumnodes,this->parameters,FS ApproximationEnum);8810 ElementVector* pe = new ElementVector(nodes,vnumnodes+pnumnodes,this->parameters,FSvelocityEnum); 8811 8811 IssmDouble* vbasis = xNew<IssmDouble>(vnumnodes); 8812 8812
Note:
See TracChangeset
for help on using the changeset viewer.