Changeset 8540
- Timestamp:
- 06/07/11 16:45:32 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
issm/trunk/src/c/objects/Elements/Tria.cpp
r8539 r8540 885 885 if(slope_magnitude>MAXSLOPE) alpha2=pow((double)10,MOUNTAINKEXPONENT); 886 886 else friction->GetAlpha2(&alpha2, gauss,VxEnum,VyEnum,VzEnum); 887 _assert_(alpha2>=0);888 887 889 888 GetL(&L[0][0], &xyz_list[0][0], gauss,NDOF2); … … 1623 1622 for(i=0;i<numdof;i++) pe->values[i]+=(thicknessobs-thickness)*weight*Jdet*gauss->weight*l1l2l3[i]; 1624 1623 /*Regularization of the constraint: 2000000 79 N*/ 1625 for(i=0;i<numdof;i++) pe->values[i]+= - 1*100000*dH[0]*dbasis[0][i]*Jdet*gauss->weight;1626 for(i=0;i<numdof;i++) pe->values[i]+= - 1*100000*dH[1]*dbasis[1][i]*Jdet*gauss->weight;1624 //for(i=0;i<numdof;i++) pe->values[i]+= - 1*100000*dH[0]*dbasis[0][i]*Jdet*gauss->weight; 1625 //for(i=0;i<numdof;i++) pe->values[i]+= - 1*100000*dH[1]*dbasis[1][i]*Jdet*gauss->weight; 1627 1626 } 1628 1627 … … 5290 5289 /*compute ThicknessAbsMisfit*/ 5291 5290 Jelem+=0.5*pow(thickness-thicknessobs,2.0)*weight*Jdet*gauss->weight; 5292 Jelem+=0.5*100000*(pow(dH[0],2.)+pow(dH[1],2.))*Jdet*gauss->weight;5291 //Jelem+=0.5*100000*(pow(dH[0],2.)+pow(dH[1],2.))*Jdet*gauss->weight; 5293 5292 } 5294 5293
Note:
See TracChangeset
for help on using the changeset viewer.