Changeset 27302


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

CHG: minor AD

File:
1 edited

Legend:

Unmodified
Added
Removed
  • issm/trunk-jpl/src/c/analyses/DebrisAnalysis.cpp

    r27301 r27302  
    604604
    605605        int numnodes = element->GetNumberOfNodes();
    606         IssmDouble* thickness    = xNew<IssmDouble>(numnodes);
    607         IssmDouble* thicknessold    = xNew<IssmDouble>(numnodes);
    608         IssmDouble* newthickness = xNew<IssmDouble>(numnodes);
    609         IssmDouble* icethickness    = xNew<IssmDouble>(numnodes);
    610         IssmDouble* bedslopex    = xNew<IssmDouble>(numnodes);
    611         IssmDouble* surfaceslopex    = xNew<IssmDouble>(numnodes);
     606        IssmDouble* thickness     = xNew<IssmDouble>(numnodes);
     607        IssmDouble* thicknessold  = xNew<IssmDouble>(numnodes);
     608        IssmDouble* newthickness  = xNew<IssmDouble>(numnodes);
     609        IssmDouble* icethickness  = xNew<IssmDouble>(numnodes);
     610        IssmDouble* bedslopex     = xNew<IssmDouble>(numnodes);
     611        IssmDouble* surfaceslopex = xNew<IssmDouble>(numnodes);
    612612
    613613        /*Use the dof list to index into the solution vector: */
     
    701701                                        if(isminthicknessinelement){
    702702                                                for(k=0; k<numnodes;k++){
    703                                                         if(onsurface[k]){
     703                                                        if(onsurface[k]>0.5){
    704704                                                                slope=fabs(slopex[k]);
    705705                                                                if(dim==2) slope=pow(pow(slopex[k],2)+pow(slopey[k],2),0.5);
Note: See TracChangeset for help on using the changeset viewer.