Changeset 26050
- Timestamp:
- 03/08/21 19:22:44 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
issm/trunk-jpl/src/c/classes/FemModel.cpp
r26047 r26050 4667 4667 /*}}}*/ 4668 4668 #endif 4669 #ifdef _HAVE_GIA_4670 void FemModel::IvinsDeformation(Vector<IssmDouble>* wg,Vector<IssmDouble>* dwgdt, IssmDouble* x, IssmDouble* y){ /*{{{*/4671 4672 /*Find the litho material to be used by all the elements:*/4673 Matlitho* matlitho=NULL;4674 for (Object* & object: this->materials->objects){4675 Material* material=xDynamicCast<Material*>(object);4676 if(material->ObjectEnum()==MatlithoEnum){4677 matlitho=xDynamicCast<Matlitho*>(material);4678 break;4679 }4680 }4681 _assert_(matlitho);4682 4683 4684 /*Go through elements, and add contribution from each element to the deflection vector wg:*/4685 for(Object* & object : this->elements->objects){4686 Element* element = xDynamicCast<Element*>(object);4687 element->GiaDeflection(wg,dwgdt, matlitho, x,y);4688 }4689 }4690 /*}}}*/4691 #endif4692 4669 #ifdef _HAVE_ESA_ 4693 4670 void FemModel::EsaGeodetic2D(Vector<IssmDouble>* pUp, Vector<IssmDouble>* pNorth, Vector<IssmDouble>* pEast, Vector<IssmDouble>* pX, Vector<IssmDouble>* pY, IssmDouble* xx, IssmDouble* yy){/*{{{*/ … … 5111 5088 5112 5089 return oceanvalue/oceanarea; 5090 } 5091 /*}}}*/ 5092 void FemModel::IvinsDeformation(Vector<IssmDouble>* wg,Vector<IssmDouble>* dwgdt, IssmDouble* x, IssmDouble* y){ /*{{{*/ 5093 5094 /*Find the litho material to be used by all the elements:*/ 5095 Matlitho* matlitho=NULL; 5096 for (Object* & object: this->materials->objects){ 5097 Material* material=xDynamicCast<Material*>(object); 5098 if(material->ObjectEnum()==MatlithoEnum){ 5099 matlitho=xDynamicCast<Matlitho*>(material); 5100 break; 5101 } 5102 } 5103 _assert_(matlitho); 5104 5105 5106 /*Go through elements, and add contribution from each element to the deflection vector wg:*/ 5107 for(Object* & object : this->elements->objects){ 5108 Element* element = xDynamicCast<Element*>(object); 5109 element->GiaDeflection(wg,dwgdt, matlitho, x,y); 5110 } 5113 5111 } 5114 5112 /*}}}*/
Note:
See TracChangeset
for help on using the changeset viewer.