Changeset 27452
- Timestamp:
- 12/05/22 12:40:40 (2 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
issm/trunk-jpl/src/c/classes/Elements/Tria.cpp
r27339 r27452 7590 7590 b=i*nt; 7591 7591 c=av*nel; 7592 for (intae=0;ae<loads->nactiveloads;ae++){7592 for(ae=0;ae<loads->nactiveloads;ae++){ 7593 7593 e=loads->combined_loads_index[ae]; 7594 7594 a=AlphaIndex[c+e]*viscousnumsteps; … … 7695 7695 //get projection 7696 7696 if (spatial_component==1){ //north 7697 for (intae=0;ae<loads->nactiveloads;ae++){7697 for(ae=0;ae<loads->nactiveloads;ae++){ 7698 7698 e=loads->combined_loads_index[ae]; 7699 7699 horiz_projection[ae]=cos(2.0*M_PI*reCast<IssmDouble,int>(AzimIndex[av*nel+e])/65535.0); // 65535=2^16-1 = max value of 16 bits unsigned int … … 7701 7701 for(l=0;l<SLGEOM_NUMLOADS;l++){ 7702 7702 nbar=slgeom->nbar[l]; 7703 for 7703 for(ae=0;ae<loads->nactivesubloads[l];ae++){ 7704 7704 e=loads->combined_subloads_index[l][ae]; 7705 7705 horiz_projectionsub[l][ae]=cos(2.0*M_PI*reCast<IssmDouble,int>(AzimIndexsub[l][av*nbar+e])/65535.0); … … 7708 7708 } 7709 7709 else if (spatial_component==2){ //east 7710 for (intae=0;ae<loads->nactiveloads;ae++){7710 for(ae=0;ae<loads->nactiveloads;ae++){ 7711 7711 e=loads->combined_loads_index[ae]; 7712 7712 horiz_projection[ae]=sin(2.0*M_PI*reCast<IssmDouble,int>(AzimIndex[av*nel+e])/65535.0); … … 7714 7714 for(l=0;l<SLGEOM_NUMLOADS;l++){ 7715 7715 nbar=slgeom->nbar[l]; 7716 for 7716 for(ae=0;ae<loads->nactivesubloads[l];ae++){ 7717 7717 e=loads->combined_subloads_index[l][ae]; 7718 7718 horiz_projectionsub[l][ae]=sin(2.0*M_PI*reCast<IssmDouble,int>(AzimIndexsub[l][av*nbar+e])/65535.0); … … 7722 7722 7723 7723 //project load in the right direction 7724 for ( intae=0;ae<loads->nactiveloads;ae++){7724 for (ae=0;ae<loads->nactiveloads;ae++){ 7725 7725 projected_loads[ae]=loads->combined_loads[ae]*horiz_projection[ae]; 7726 7726 } 7727 7727 for(l=0;l<SLGEOM_NUMLOADS;l++){ 7728 7728 nbar=slgeom->nbar[l]; 7729 for 7729 for(ae=0;ae<loads->nactivesubloads[l];ae++){ 7730 7730 projected_subloads[l][ae]=loads->combined_subloads[l][ae]*horiz_projectionsub[l][ae]; 7731 7731 } … … 7734 7734 //do the convolution 7735 7735 c=av*nel; 7736 for (intae=0;ae<loads->nactiveloads;ae++){7736 for(ae=0;ae<loads->nactiveloads;ae++){ 7737 7737 e=loads->combined_loads_index[ae]; 7738 7738 a=AlphaIndex[c+e]*viscousnumsteps; … … 7744 7744 nbar=slgeom->nbar[l]; 7745 7745 c=av*nbar; 7746 for 7746 for(ae=0;ae<loads->nactivesubloads[l];ae++){ 7747 7747 e=loads->combined_subloads_index[l][ae]; 7748 7748 a=AlphaIndexsub[l][c+e]*viscousnumsteps; … … 7757 7757 7758 7758 //free resources 7759 7760 7759 xDelete<IssmDouble>(horiz_projection); 7761 7760 xDelete<IssmDouble>(projected_loads);
Note:
See TracChangeset
for help on using the changeset viewer.