source: issm/oecreview/Archive/16554-17801/ISSM-16867-16868.diff

Last change on this file was 17802, checked in by Mathieu Morlighem, 11 years ago

Added archives

File size: 1.8 KB
  • ../trunk-jpl/src/c/classes/Elements/Tria.cpp

     
    70277027        const int  numdof   = NDOF1 *NUMVERTICES;
    70287028        int        *doflist = NULL;
    70297029        bool       isefficientlayer;
     7030        bool       active_element;
    70307031        int        transfermethod;
    70317032        IssmDouble sed_trans,sed_thick;
    70327033        IssmDouble leakage,h_max;
     
    70357036        IssmDouble epl_specificstoring[numdof],sedstoring[numdof];
    70367037        IssmDouble epl_head[numdof],sed_head[numdof];
    70377038
    7038         Input* active_element=NULL;
     7039        Input* active_element_input=NULL;
    70397040
    70407041        GetDofList(&doflist,NoneApproximationEnum,GsetEnum);
    70417042
     
    70537054                        break;
    70547055                case 1:
    70557056
    7056                         int analysis_type;
    7057                         parameters->FindParam(&analysis_type,AnalysisTypeEnum);
    7058                         active_element=inputs->GetInput(HydrologydcMaskEplactiveEltEnum); _assert_(active_element);
     7057                        active_element_input=inputs->GetInput(HydrologydcMaskEplactiveEltEnum); _assert_(active_element_input);
     7058                        active_element_input->GetInputValue(&active_element);
    70597059
    70607060                        GetInputListOnVertices(&activeEpl[0],HydrologydcMaskEplactiveNodeEnum);
    70617061                        GetInputListOnVertices(&sed_head[0],SedimentHeadEnum);
     
    70677067                        sed_trans = matpar->GetSedimentTransmitivity();
    70687068                        sed_thick = matpar->GetSedimentThickness();
    70697069
    7070                         //              printf("Which analyse %i \n",analysis_type);
    7071 
    70727070                        if(!active_element){
    70737071
    7074                                 //printf("NoneActive\n");
    7075 
    70767072                                /*No transfer if the EPL is not active*/
    70777073                                for(int i=0;i<numdof;i++){
    70787074                                        wh_trans=0.0;
     
    71007096                                        }
    71017097                                        /*Assign output pointer*/
    71027098                                        transfer->SetValue(doflist[i],wh_trans,INS_VAL);
    7103                                         //printf("Computing, %e \n",wh_trans);
     7099
    71047100                                }
    71057101                        }
    71067102                        break;
Note: See TracBrowser for help on using the repository browser.