source:
issm/oecreview/Archive/16554-17801/ISSM-16867-16868.diff
Last change on this file was 17802, checked in by , 11 years ago | |
---|---|
File size: 1.8 KB |
-
../trunk-jpl/src/c/classes/Elements/Tria.cpp
7027 7027 const int numdof = NDOF1 *NUMVERTICES; 7028 7028 int *doflist = NULL; 7029 7029 bool isefficientlayer; 7030 bool active_element; 7030 7031 int transfermethod; 7031 7032 IssmDouble sed_trans,sed_thick; 7032 7033 IssmDouble leakage,h_max; … … 7035 7036 IssmDouble epl_specificstoring[numdof],sedstoring[numdof]; 7036 7037 IssmDouble epl_head[numdof],sed_head[numdof]; 7037 7038 7038 Input* active_element =NULL;7039 Input* active_element_input=NULL; 7039 7040 7040 7041 GetDofList(&doflist,NoneApproximationEnum,GsetEnum); 7041 7042 … … 7053 7054 break; 7054 7055 case 1: 7055 7056 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); 7059 7059 7060 7060 GetInputListOnVertices(&activeEpl[0],HydrologydcMaskEplactiveNodeEnum); 7061 7061 GetInputListOnVertices(&sed_head[0],SedimentHeadEnum); … … 7067 7067 sed_trans = matpar->GetSedimentTransmitivity(); 7068 7068 sed_thick = matpar->GetSedimentThickness(); 7069 7069 7070 // printf("Which analyse %i \n",analysis_type);7071 7072 7070 if(!active_element){ 7073 7071 7074 //printf("NoneActive\n");7075 7076 7072 /*No transfer if the EPL is not active*/ 7077 7073 for(int i=0;i<numdof;i++){ 7078 7074 wh_trans=0.0; … … 7100 7096 } 7101 7097 /*Assign output pointer*/ 7102 7098 transfer->SetValue(doflist[i],wh_trans,INS_VAL); 7103 //printf("Computing, %e \n",wh_trans); 7099 7104 7100 } 7105 7101 } 7106 7102 break;
Note:
See TracBrowser
for help on using the repository browser.