Changeset 26050


Ignore:
Timestamp:
03/08/21 19:22:44 (4 years ago)
Author:
Eric.Larour
Message:

CHG: moving from GIA to SEALEVEL

File:
1 edited

Legend:

Unmodified
Added
Removed
  • issm/trunk-jpl/src/c/classes/FemModel.cpp

    r26047 r26050  
    46674667/*}}}*/
    46684668#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 #endif
    46924669#ifdef _HAVE_ESA_
    46934670void FemModel::EsaGeodetic2D(Vector<IssmDouble>* pUp, Vector<IssmDouble>* pNorth, Vector<IssmDouble>* pEast, Vector<IssmDouble>* pX, Vector<IssmDouble>* pY, IssmDouble* xx, IssmDouble* yy){/*{{{*/
     
    51115088
    51125089        return oceanvalue/oceanarea;
     5090}
     5091/*}}}*/
     5092void 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        }
    51135111}
    51145112/*}}}*/
Note: See TracChangeset for help on using the changeset viewer.