source: issm/oecreview/Archive/19101-20495/ISSM-19990-19991.diff@ 20498

Last change on this file since 20498 was 20498, checked in by Mathieu Morlighem, 9 years ago

CHG: done with Archive/19101-20495
File size: 687 bytes

  • TabularUnified ../trunk-jpl/src/c/classes/Elements/Tria.cpp

     
    36403640                        if(computeelastic){
    36413641                                G_elastic = (love_k[nl-1]-love_h[nl-1])/2.0/sin(alpha/2.0);
    36423642                                if(legendre_precompute){
    3643                                         for(int n=0;n<nl;n++) G_elastic += deltalove[n]*legendre_coefficients[(int)((M-1)*(cosalpha+1.0)/2.0)*nl+n];
     3643                                        for(int n=0;n<nl;n++) G_elastic += deltalove[n]*legendre_coefficients[reCast<int,IssmDouble>((M-1)*(cosalpha+1.0)/2.0)*nl+n];
    36443644                                }
    36453645                                else{
    36463646                                        for(int n=0;n<nl;n++){
Note: See TracBrowser for help on using the repository browser.