Changeset 16863
- Timestamp:
- 11/21/13 15:14:12 (11 years ago)
- Location:
- issm/trunk-jpl/src/c/analyses
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
issm/trunk-jpl/src/c/analyses/AdjointBalancethicknessAnalysis.cpp
r16862 r16863 122 122 123 123 /*Clean up and return*/ 124 xDelete<int>(responses); 124 125 xDelete<IssmDouble>(xyz_list); 125 126 xDelete<IssmDouble>(basis); -
issm/trunk-jpl/src/c/analyses/AdjointHorizAnalysis.cpp
r16847 r16863 238 238 /*Clean up and return*/ 239 239 xDelete<int>(cs_list); 240 xDelete<int>(responses); 240 241 xDelete<IssmDouble>(xyz_list_top); 241 242 xDelete<IssmDouble>(vbasis); … … 421 422 422 423 /*Clean up and return*/ 424 xDelete<int>(responses); 423 425 xDelete<IssmDouble>(xyz_list_top); 424 426 xDelete<IssmDouble>(basis); … … 618 620 619 621 /*Clean up and return*/ 622 xDelete<int>(responses); 620 623 xDelete<IssmDouble>(xyz_list); 621 624 xDelete<IssmDouble>(basis); -
issm/trunk-jpl/src/c/analyses/BalancethicknessAnalysis.cpp
r16843 r16863 119 119 Element* basalelement = element->SpawnBasalElement(); 120 120 121 ElementMatrix* Ke = NULL; 122 switch(element->FiniteElement()){ 123 case P1Enum: case P2Enum: 124 Ke = CreateKMatrixCG(basalelement); 125 break; 126 case P1DGEnum: 127 Ke = CreateKMatrixDG(basalelement); 128 break; 129 default: 130 _error_("Element type " << EnumToStringx(element->FiniteElement()) << " not supported yet"); 131 } 132 121 133 int meshtype; 122 134 element->FindParam(&meshtype,MeshTypeEnum); 123 124 switch(element->FiniteElement()){ 125 case P1Enum: case P2Enum: 126 return CreateKMatrixCG(basalelement); 127 case P1DGEnum: 128 return CreateKMatrixDG(basalelement); 129 default: 130 _error_("Element type " << EnumToStringx(element->FiniteElement()) << " not supported yet"); 131 } 135 if(meshtype!=Mesh2DhorizontalEnum){basalelement->DeleteMaterials(); delete basalelement;}; 136 return Ke; 132 137 }/*}}}*/ 133 138 ElementMatrix* BalancethicknessAnalysis::CreateKMatrixCG(Element* element){/*{{{*/ … … 306 311 Element* basalelement = element->SpawnBasalElement(); 307 312 313 ElementVector* pe = NULL; 308 314 switch(element->FiniteElement()){ 309 315 case P1Enum: case P2Enum: 310 return CreatePVectorCG(basalelement); 316 pe = CreatePVectorCG(basalelement); 317 break; 311 318 case P1DGEnum: 312 return CreatePVectorDG(basalelement); 319 pe = CreatePVectorDG(basalelement); 320 break; 313 321 default: 314 322 _error_("Element type " << EnumToStringx(element->FiniteElement()) << " not supported yet"); 315 323 } 316 324 325 int meshtype; 326 element->FindParam(&meshtype,MeshTypeEnum); 327 if(meshtype!=Mesh2DhorizontalEnum){basalelement->DeleteMaterials(); delete basalelement;}; 328 return pe; 317 329 }/*}}}*/ 318 330 ElementVector* BalancethicknessAnalysis::CreatePVectorCG(Element* element){/*{{{*/ -
issm/trunk-jpl/src/c/analyses/MasstransportAnalysis.cpp
r16832 r16863 217 217 Element* basalelement = element->SpawnBasalElement(); 218 218 219 ElementMatrix* Ke = NULL; 220 switch(element->FiniteElement()){ 221 case P1Enum: case P2Enum: 222 Ke = CreateKMatrixCG(basalelement); 223 break; 224 case P1DGEnum: 225 Ke = CreateKMatrixDG(basalelement); 226 break; 227 default: 228 _error_("Element type " << EnumToStringx(element->FiniteElement()) << " not supported yet"); 229 } 230 219 231 int meshtype; 220 232 element->FindParam(&meshtype,MeshTypeEnum); 221 222 switch(element->FiniteElement()){ 223 case P1Enum: case P2Enum: 224 return CreateKMatrixCG(basalelement); 225 case P1DGEnum: 226 return CreateKMatrixDG(basalelement); 227 default: 228 _error_("Element type " << EnumToStringx(element->FiniteElement()) << " not supported yet"); 229 } 233 if(meshtype!=Mesh2DhorizontalEnum){basalelement->DeleteMaterials(); delete basalelement;}; 234 return Ke; 230 235 }/*}}}*/ 231 236 ElementMatrix* MasstransportAnalysis::CreateKMatrixCG(Element* element){/*{{{*/ … … 423 428 Element* basalelement = element->SpawnBasalElement(); 424 429 430 ElementVector* pe = NULL; 425 431 switch(element->FiniteElement()){ 426 432 case P1Enum: case P2Enum: 427 return CreatePVectorCG(basalelement); 433 pe = CreatePVectorCG(basalelement); 434 break; 428 435 case P1DGEnum: 429 return CreatePVectorDG(basalelement); 436 pe = CreatePVectorDG(basalelement); 437 break; 430 438 default: 431 439 _error_("Element type " << EnumToStringx(element->FiniteElement()) << " not supported yet"); 432 440 } 433 441 442 int meshtype; 443 element->FindParam(&meshtype,MeshTypeEnum); 444 if(meshtype!=Mesh2DhorizontalEnum){basalelement->DeleteMaterials(); delete basalelement;}; 445 return pe; 434 446 }/*}}}*/ 435 447 ElementVector* MasstransportAnalysis::CreatePVectorCG(Element* element){/*{{{*/
Note:
See TracChangeset
for help on using the changeset viewer.