Changeset 26107
- Timestamp:
- 03/16/21 10:21:57 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
issm/trunk-jpl/src/c/classes/Elements/Tria.cpp
r26105 r26107 5600 5600 /*elastic green function:*/ 5601 5601 int index; 5602 int M;5602 int M,Mtest; 5603 5603 5604 5604 /*Computational flags:*/ … … 5625 5625 DoubleVecParam* parameter = static_cast<DoubleVecParam*>(this->parameters->FindParamObject(SealevelchangeGRigidEnum)); _assert_(parameter); 5626 5626 parameter->GetParameterValueByPointer((IssmDouble**)&G_rigid_precomputed,&M); 5627 _assert_(M>0); 5627 5628 5628 5629 /*allocate indices:*/ … … 5632 5633 if(computeelastic){ 5633 5634 parameter = static_cast<DoubleVecParam*>(this->parameters->FindParamObject(SealevelchangeGElasticEnum)); _assert_(parameter); 5634 parameter->GetParameterValueByPointer((IssmDouble**)&G_elastic_precomputed,&M );5635 parameter->GetParameterValueByPointer((IssmDouble**)&G_elastic_precomputed,&Mtest); _assert_(Mtest==M); 5635 5636 5636 5637 parameter = static_cast<DoubleVecParam*>(this->parameters->FindParamObject(SealevelchangeHElasticEnum)); _assert_(parameter); 5637 parameter->GetParameterValueByPointer((IssmDouble**)&H_elastic_precomputed,&M );5638 parameter->GetParameterValueByPointer((IssmDouble**)&H_elastic_precomputed,&Mtest); _assert_(Mtest==M); 5638 5639 5639 5640 parameter = static_cast<DoubleVecParam*>(this->parameters->FindParamObject(SealevelchangeUElasticEnum)); _assert_(parameter); 5640 parameter->GetParameterValueByPointer((IssmDouble**)&U_elastic_precomputed,&M );5641 parameter->GetParameterValueByPointer((IssmDouble**)&U_elastic_precomputed,&Mtest); _assert_(Mtest==M); 5641 5642 5642 5643 GU=xNewZeroInit<IssmDouble>(gsize); … … 5673 5674 indices[i]=alpha/M_PI*reCast<IssmDouble,int>(M-1); 5674 5675 index=reCast<int,IssmDouble>(indices[i]); 5676 _assert_(index>=0); _assert_(index<M); 5675 5677 5676 5678 /*Rigid earth gravitational perturbation: */
Note:
See TracChangeset
for help on using the changeset viewer.