- Timestamp:
- 04/08/14 20:39:20 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
issm/trunk-jpl/src/c/analyses/L2ProjectionEPLAnalysis.cpp
r17674 r17686 6 6 7 7 /*Model processing*/ 8 int L2ProjectionEPLAnalysis::DofsPerNode(int** doflist,int meshxdim,int approximation){/*{{{*/8 int L2ProjectionEPLAnalysis::DofsPerNode(int** doflist,int domaintype,int approximation){/*{{{*/ 9 9 return 1; 10 10 }/*}}}*/ … … 36 36 iomodel->FetchDataToInput(elements,EplHeadEnum); 37 37 iomodel->FetchDataToInput(elements,MaskIceLevelsetEnum); 38 if(iomodel-> meshxdim==Mesh3DEnum){38 if(iomodel->domaintype==Mesh3DEnum){ 39 39 iomodel->FetchDataToInput(elements,MeshElementonbaseEnum); 40 40 } … … 51 51 if(!isefficientlayer) return; 52 52 53 if(iomodel-> meshxdim==Mesh3DEnum){53 if(iomodel->domaintype==Mesh3DEnum){ 54 54 iomodel->FetchData(1,MeshVertexonbaseEnum); 55 55 } 56 else if(iomodel-> meshxdim==Mesh2DverticalEnum){56 else if(iomodel->domaintype==Mesh2DverticalEnum){ 57 57 iomodel->FetchData(1,MeshVertexonbaseEnum); 58 58 } … … 83 83 84 84 /*Intermediaries*/ 85 int meshxdim;85 int domaintype; 86 86 bool active_element; 87 87 Element* basalelement; 88 88 89 89 /*Get basal element*/ 90 element->FindParam(& meshxdim,MeshXDimEnum);91 switch( meshxdim){90 element->FindParam(&domaintype,DomainTypeEnum); 91 switch(domaintype){ 92 92 case Mesh2DhorizontalEnum: 93 93 basalelement = element; … … 101 101 basalelement = element->SpawnBasalElement(); 102 102 break; 103 default: _error_("mesh "<<EnumToStringx( meshxdim)<<" not supported yet");103 default: _error_("mesh "<<EnumToStringx(domaintype)<<" not supported yet"); 104 104 } 105 105 … … 109 109 /* Check that all nodes are active, else return empty matrix */ 110 110 if(!active_element){ 111 if( meshxdim!=Mesh2DhorizontalEnum){111 if(domaintype!=Mesh2DhorizontalEnum){ 112 112 basalelement->DeleteMaterials(); 113 113 delete basalelement; … … 149 149 xDelete<IssmDouble>(basis); 150 150 delete gauss; 151 if( meshxdim!=Mesh2DhorizontalEnum){basalelement->DeleteMaterials(); delete basalelement;};151 if(domaintype!=Mesh2DhorizontalEnum){basalelement->DeleteMaterials(); delete basalelement;}; 152 152 return Ke; 153 153 }/*}}}*/ … … 155 155 156 156 /*Intermediaries*/ 157 int meshxdim;157 int domaintype; 158 158 bool active_element; 159 159 Element* basalelement; 160 160 161 161 /*Get basal element*/ 162 element->FindParam(& meshxdim,MeshXDimEnum);163 switch( meshxdim){162 element->FindParam(&domaintype,DomainTypeEnum); 163 switch(domaintype){ 164 164 case Mesh2DhorizontalEnum: 165 165 basalelement = element; … … 169 169 basalelement = element->SpawnBasalElement(); 170 170 break; 171 default: _error_("mesh "<<EnumToStringx( meshxdim)<<" not supported yet");171 default: _error_("mesh "<<EnumToStringx(domaintype)<<" not supported yet"); 172 172 } 173 173 … … 177 177 /*Check that all nodes are active, else return empty matrix*/ 178 178 if(!active_element) { 179 if( meshxdim!=Mesh2DhorizontalEnum){179 if(domaintype!=Mesh2DhorizontalEnum){ 180 180 basalelement->DeleteMaterials(); 181 181 delete basalelement; … … 222 222 xDelete<IssmDouble>(basis); 223 223 delete gauss; 224 if( meshxdim!=Mesh2DhorizontalEnum){basalelement->DeleteMaterials(); delete basalelement;};224 if(domaintype!=Mesh2DhorizontalEnum){basalelement->DeleteMaterials(); delete basalelement;}; 225 225 return pe; 226 226 }/*}}}*/ … … 229 229 }/*}}}*/ 230 230 void L2ProjectionEPLAnalysis::InputUpdateFromSolution(IssmDouble* solution,Element* element){/*{{{*/ 231 int inputenum, meshxdim;231 int inputenum,domaintype; 232 232 233 233 element->FindParam(&inputenum,InputToL2ProjectEnum); 234 element->FindParam(& meshxdim,MeshXDimEnum);235 switch( meshxdim){234 element->FindParam(&domaintype,DomainTypeEnum); 235 switch(domaintype){ 236 236 case Mesh2DhorizontalEnum: 237 237 element->InputUpdateFromSolutionOneDof(solution,inputenum); … … 243 243 element->InputUpdateFromSolutionOneDofCollapsed(solution,inputenum); 244 244 break; 245 default: _error_("mesh "<<EnumToStringx( meshxdim)<<" not supported yet");245 default: _error_("mesh "<<EnumToStringx(domaintype)<<" not supported yet"); 246 246 } 247 247 }/*}}}*/
Note:
See TracChangeset
for help on using the changeset viewer.