Changeset 23207
- Timestamp:
- 08/31/18 14:37:15 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
issm/trunk-jpl/src/c/analyses/StressbalanceAnalysis.cpp
r23206 r23207 3272 3272 element->NodalFunctionsPressure(pbasis,gauss); 3273 3273 3274 if(dim==3 ){3274 if(dim==3 || dim==2){ 3275 3275 /*Pressure mass matrix*/ 3276 3276 for(int k=0;k<pnumnodes;k++){ 3277 3277 for(int j=0;j<pnumnodes;j++){ 3278 Ke->values[( 3*vnumnodes+k)*numdof+3*vnumnodes+j] += gauss->weight*Jdet*(pbasis[j]*pbasis[k]);3278 Ke->values[(dim*vnumnodes+k)*numdof+dim*vnumnodes+j] += gauss->weight*Jdet*(pbasis[j]*pbasis[k]); 3279 3279 } 3280 3280 } 3281 }else if(dim==2){ 3282 /*Pressure mass matrix*/ 3283 for(int k=0;k<pnumnodes;k++){ 3284 for(int j=0;j<pnumnodes;j++){ 3285 Ke->values[(2*vnumnodes+k)*numdof+2*vnumnodes+j] += gauss->weight*Jdet*(pbasis[j]*pbasis[k]); 3286 } 3287 } 3288 } 3289 else{ 3281 }else{ 3290 3282 _error_("STOP"); 3291 3283 } … … 3336 3328 3337 3329 3338 if(dim==3 ){3330 if(dim==3 || dim==2){ 3339 3331 /*Pressure mass matrix*/ 3340 3332 for(int k=0;k<pnumnodes;k++){ 3341 3333 for(int j=0;j<pnumnodes;j++){ 3342 Ke->values[( 3*vnumnodes+k)*numdof+3*vnumnodes+j] += gauss->weight*1./viscosity*Jdet*(pbasis[j]*pbasis[k]);3334 Ke->values[(dim*vnumnodes+k)*numdof+dim*vnumnodes+j] += gauss->weight*1./viscosity*Jdet*(pbasis[j]*pbasis[k]); 3343 3335 } 3344 3336 } 3345 }else if(dim==2){ 3346 /*Pressure mass matrix*/ 3347 for(int k=0;k<pnumnodes;k++){ 3348 for(int j=0;j<pnumnodes;j++){ 3349 Ke->values[(2*vnumnodes+k)*numdof+2*vnumnodes+j] += gauss->weight*1./viscosity*Jdet*(pbasis[j]*pbasis[k]); 3350 } 3351 } 3352 } 3353 else{ 3337 }else{ 3354 3338 _error_("STOP"); 3355 3339 }
Note:
See TracChangeset
for help on using the changeset viewer.