source: issm/oecreview/Archive/24684-25833/ISSM-24982-24983.diff@ 25834

Last change on this file since 25834 was 25834, checked in by Mathieu Morlighem, 4 years ago

CHG: added 24684-25833

File size: 1.2 KB
  • ../trunk-jpl/src/c/cores/sealevelrise_core.cpp

     
    437437                /*convergence criterion:*/
    438438                slrconvergence(&converged,RSLg,RSLg_old,eps_rel,eps_abs);
    439439               
    440                 /*if we had bottom pressure loading, add dynamic sea level
    441                  * to RSL:*/
    442                 femmodel->parameters->FindParam(&bp_compute_fingerprints,DslComputeFingerprintsEnum);
    443                 if(bp_compute_fingerprints){
    444                         GetVectorFromInputsx(&BPg,femmodel,DslSeaWaterPressureChangeAtSeaFloor,VertexSIdEnum);
    445                         RSLg->AXPY(BPg,1);
    446                 }
    447 
     440       
    448441                /*free ressources: */
    449442                delete RSLgo;
    450443                delete RSLgo_rot;
     
    465458
    466459        }
    467460        if(VerboseConvergence()) _printf0_("\n              total number of iterations: " << count-1 << "\n");
     461       
     462       
     463        /*if we had bottom pressure loading, add dynamic sea level
     464         * to RSL:*/
     465        femmodel->parameters->FindParam(&bp_compute_fingerprints,DslComputeFingerprintsEnum);
     466        if(bp_compute_fingerprints){
     467                GetVectorFromInputsx(&BPg,femmodel,DslSeaWaterPressureChangeAtSeaFloor,VertexSIdEnum);
     468                RSLg->AXPY(BPg,1);
     469        }
    468470
    469471        delete RSLg_old;
    470472        delete BPg;
Note: See TracBrowser for help on using the repository browser.