Changeset 26475
- Timestamp:
- 10/12/21 10:15:42 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
issm/trunk-jpl/src/c/analyses/AdjointHorizAnalysis.cpp
r26468 r26475 510 510 for(i=0;i<vnumnodes;i++){ 511 511 if (domaintype!=Domain2DverticalEnum){ 512 scale=1./(S* 2*sqrt(pow(vx-vxobs,2)+pow(vy-vyobs,2))+epsvel);512 scale=1./(S*sqrt(pow(vx-vxobs,2)+pow(vy-vyobs,2))+epsvel); 513 513 dux=scale*(vxobs-vx); 514 514 duy=scale*(vyobs-vy); … … 517 517 } 518 518 else{ 519 scale=1./(S* 2*fabs(vx-vxobs)+epsvel);519 scale=1./(S*fabs(vx-vxobs)+epsvel); 520 520 dux=scale*(vxobs-vx); 521 521 pe->values[i*2+0]+=dux*weight*Jdet*gauss->weight*vbasis[i]; … … 746 746 for(i=0;i<numnodes;i++){ 747 747 if(domaintype!=Domain2DverticalEnum){ 748 scale=1./(S* 2*sqrt(pow(vx-vxobs,2)+pow(vy-vyobs,2))+epsvel);748 scale=1./(S*sqrt(pow(vx-vxobs,2)+pow(vy-vyobs,2))+epsvel); 749 749 dux=scale*(vxobs-vx); 750 750 duy=scale*(vyobs-vy); … … 998 998 for(i=0;i<numnodes;i++){ 999 999 if(domaintype!=Domain2DverticalEnum){ 1000 scale=1./(S* 2*sqrt(pow(vx-vxobs,2)+pow(vy-vyobs,2))+epsvel);1000 scale=1./(S*sqrt(pow(vx-vxobs,2)+pow(vy-vyobs,2))+epsvel); 1001 1001 dux=scale*(vxobs-vx); 1002 1002 duy=scale*(vyobs-vy); … … 1005 1005 } 1006 1006 else{ 1007 scale=1./(S* 2*fabs(vx-vxobs)+epsvel);1007 scale=1./(S*fabs(vx-vxobs)+epsvel); 1008 1008 dux=scale*(vxobs-vx); 1009 1009 pe->values[i]+=dux*weight*Jdet*gauss->weight*basis[i];
Note:
See TracChangeset
for help on using the changeset viewer.