Changeset 27452


Ignore:
Timestamp:
12/05/22 12:40:40 (2 years ago)
Author:
Mathieu Morlighem
Message:

CHG: resolved problem of scope with for(ae=0

File:
1 edited

Legend:

Unmodified
Added
Removed
  • issm/trunk-jpl/src/c/classes/Elements/Tria.cpp

    r27339 r27452  
    75907590                b=i*nt;
    75917591                c=av*nel;
    7592                 for (int ae=0;ae<loads->nactiveloads;ae++){
     7592                for(ae=0;ae<loads->nactiveloads;ae++){
    75937593                        e=loads->combined_loads_index[ae];
    75947594                        a=AlphaIndex[c+e]*viscousnumsteps;
     
    76957695                //get projection
    76967696                if (spatial_component==1){ //north
    7697                         for (int ae=0;ae<loads->nactiveloads;ae++){
     7697                        for(ae=0;ae<loads->nactiveloads;ae++){
    76987698                                e=loads->combined_loads_index[ae];
    76997699                                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
     
    77017701                        for(l=0;l<SLGEOM_NUMLOADS;l++){
    77027702                                nbar=slgeom->nbar[l];
    7703                                 for (ae=0;ae<loads->nactivesubloads[l];ae++){
     7703                                for(ae=0;ae<loads->nactivesubloads[l];ae++){
    77047704                                        e=loads->combined_subloads_index[l][ae];
    77057705                                        horiz_projectionsub[l][ae]=cos(2.0*M_PI*reCast<IssmDouble,int>(AzimIndexsub[l][av*nbar+e])/65535.0);
     
    77087708                }
    77097709                else if (spatial_component==2){ //east
    7710                         for (int ae=0;ae<loads->nactiveloads;ae++){
     7710                        for(ae=0;ae<loads->nactiveloads;ae++){
    77117711                                e=loads->combined_loads_index[ae];
    77127712                                horiz_projection[ae]=sin(2.0*M_PI*reCast<IssmDouble,int>(AzimIndex[av*nel+e])/65535.0);
     
    77147714                        for(l=0;l<SLGEOM_NUMLOADS;l++){
    77157715                                nbar=slgeom->nbar[l];
    7716                                 for (ae=0;ae<loads->nactivesubloads[l];ae++){
     7716                                for(ae=0;ae<loads->nactivesubloads[l];ae++){
    77177717                                        e=loads->combined_subloads_index[l][ae];
    77187718                                        horiz_projectionsub[l][ae]=sin(2.0*M_PI*reCast<IssmDouble,int>(AzimIndexsub[l][av*nbar+e])/65535.0);
     
    77227722
    77237723                //project load in the right direction
    7724                 for (int ae=0;ae<loads->nactiveloads;ae++){
     7724                for (ae=0;ae<loads->nactiveloads;ae++){
    77257725                        projected_loads[ae]=loads->combined_loads[ae]*horiz_projection[ae];
    77267726                }
    77277727                for(l=0;l<SLGEOM_NUMLOADS;l++){
    77287728                        nbar=slgeom->nbar[l];
    7729                         for (ae=0;ae<loads->nactivesubloads[l];ae++){
     7729                        for(ae=0;ae<loads->nactivesubloads[l];ae++){
    77307730                                projected_subloads[l][ae]=loads->combined_subloads[l][ae]*horiz_projectionsub[l][ae];
    77317731                        }
     
    77347734                //do the convolution
    77357735                c=av*nel;
    7736                 for (int ae=0;ae<loads->nactiveloads;ae++){
     7736                for(ae=0;ae<loads->nactiveloads;ae++){
    77377737                        e=loads->combined_loads_index[ae];
    77387738                        a=AlphaIndex[c+e]*viscousnumsteps;
     
    77447744                        nbar=slgeom->nbar[l];
    77457745                        c=av*nbar;
    7746                         for (ae=0;ae<loads->nactivesubloads[l];ae++){
     7746                        for(ae=0;ae<loads->nactivesubloads[l];ae++){
    77477747                                e=loads->combined_subloads_index[l][ae];
    77487748                                a=AlphaIndexsub[l][c+e]*viscousnumsteps;
     
    77577757
    77587758        //free resources
    7759 
    77607759        xDelete<IssmDouble>(horiz_projection);
    77617760        xDelete<IssmDouble>(projected_loads);
Note: See TracChangeset for help on using the changeset viewer.