Changeset 5524
- Timestamp:
- 08/23/10 16:23:07 (15 years ago)
- Location:
- issm/trunk/src
- Files:
-
- 18 edited
Legend:
- Unmodified
- Added
- Removed
-
issm/trunk/src/c/modules/ModelProcessorx/Balancedthickness/CreateNodesBalancedthickness.cpp
r5114 r5524 39 39 40 40 /*First fetch data: */ 41 if (iomodel->dim==3){42 IoModelFetchData(&iomodel->deadgrids,NULL,NULL,iomodel_handle,"deadgrids");43 }44 41 IoModelFetchData(&iomodel->elements,NULL,NULL,iomodel_handle,"elements"); 45 42 IoModelFetchData(&iomodel->gridonbed,NULL,NULL,iomodel_handle,"gridonbed"); … … 88 85 /*Clean fetched data: */ 89 86 xfree((void**)&iomodel->elements); 90 xfree((void**)&iomodel->deadgrids);91 87 xfree((void**)&iomodel->gridonbed); 92 88 xfree((void**)&iomodel->gridonsurface); -
issm/trunk/src/c/modules/ModelProcessorx/Balancedvelocities/CreateNodesBalancedvelocities.cpp
r5114 r5524 32 32 33 33 /*First fetch data: */ 34 if (iomodel->dim==3){35 IoModelFetchData(&iomodel->deadgrids,NULL,NULL,iomodel_handle,"deadgrids");36 }37 34 IoModelFetchData(&iomodel->gridonbed,NULL,NULL,iomodel_handle,"gridonbed"); 38 35 IoModelFetchData(&iomodel->gridonsurface,NULL,NULL,iomodel_handle,"gridonsurface"); … … 51 48 52 49 /*Clean fetched data: */ 53 xfree((void**)&iomodel->deadgrids);54 50 xfree((void**)&iomodel->gridonbed); 55 51 xfree((void**)&iomodel->gridonsurface); -
issm/trunk/src/c/modules/ModelProcessorx/BedSlope/CreateNodesBedSlope.cpp
r5114 r5524 32 32 33 33 /*First fetch data: */ 34 if (iomodel->dim==3){35 IoModelFetchData(&iomodel->deadgrids,NULL,NULL,iomodel_handle,"deadgrids");36 }37 34 IoModelFetchData(&iomodel->gridonbed,NULL,NULL,iomodel_handle,"gridonbed"); 38 35 IoModelFetchData(&iomodel->gridonsurface,NULL,NULL,iomodel_handle,"gridonsurface"); … … 52 49 53 50 /*Clean fetched data: */ 54 xfree((void**)&iomodel->deadgrids);55 51 xfree((void**)&iomodel->gridonbed); 56 52 xfree((void**)&iomodel->gridonsurface); -
issm/trunk/src/c/modules/ModelProcessorx/DiagnosticHoriz/CreateNodesDiagnosticHoriz.cpp
r5114 r5524 41 41 IoModelFetchData(&iomodel->gridoniceshelf,NULL,NULL,iomodel_handle,"gridoniceshelf"); 42 42 IoModelFetchData(&iomodel->vertices_type,NULL,NULL,iomodel_handle,"vertices_type"); 43 if (iomodel->dim==3){44 IoModelFetchData(&iomodel->deadgrids,NULL,NULL,iomodel_handle,"deadgrids");45 }46 43 47 44 for (i=0;i<iomodel->numberofvertices;i++){ … … 60 57 xfree((void**)&iomodel->gridonicesheet); 61 58 xfree((void**)&iomodel->gridoniceshelf); 62 xfree((void**)&iomodel->deadgrids);63 59 xfree((void**)&iomodel->vertices_type); 64 60 -
issm/trunk/src/c/modules/ModelProcessorx/DiagnosticHutter/CreateNodesDiagnosticHutter.cpp
r5114 r5524 35 35 36 36 /*First fetch data: */ 37 if (iomodel->dim==3){38 IoModelFetchData(&iomodel->deadgrids,NULL,NULL,iomodel_handle,"deadgrids");39 }40 37 IoModelFetchData(&iomodel->gridonbed,NULL,NULL,iomodel_handle,"gridonbed"); 41 38 IoModelFetchData(&iomodel->gridonsurface,NULL,NULL,iomodel_handle,"gridonsurface"); … … 59 56 60 57 /*Clean fetched data: */ 61 xfree((void**)&iomodel->deadgrids);62 58 xfree((void**)&iomodel->gridonbed); 63 59 xfree((void**)&iomodel->gridonsurface); -
issm/trunk/src/c/modules/ModelProcessorx/DiagnosticStokes/CreateNodesDiagnosticStokes.cpp
r5114 r5524 36 36 37 37 /*First fetch data: */ 38 IoModelFetchData(&iomodel->deadgrids,NULL,NULL,iomodel_handle,"deadgrids");39 38 IoModelFetchData(&iomodel->gridonbed,NULL,NULL,iomodel_handle,"gridonbed"); 40 39 IoModelFetchData(&iomodel->gridonsurface,NULL,NULL,iomodel_handle,"gridonsurface"); … … 56 55 57 56 /*Clean fetched data: */ 58 xfree((void**)&iomodel->deadgrids);59 57 xfree((void**)&iomodel->gridonbed); 60 58 xfree((void**)&iomodel->gridonsurface); -
issm/trunk/src/c/modules/ModelProcessorx/DiagnosticVert/CreateNodesDiagnosticVert.cpp
r5114 r5524 35 35 36 36 /*First fetch data: */ 37 IoModelFetchData(&iomodel->deadgrids,NULL,NULL,iomodel_handle,"deadgrids");38 37 IoModelFetchData(&iomodel->gridonbed,NULL,NULL,iomodel_handle,"gridonbed"); 39 38 IoModelFetchData(&iomodel->gridonsurface,NULL,NULL,iomodel_handle,"gridonsurface"); … … 53 52 54 53 /*Clean fetched data: */ 55 xfree((void**)&iomodel->deadgrids);56 54 xfree((void**)&iomodel->gridonbed); 57 55 xfree((void**)&iomodel->gridonsurface); -
issm/trunk/src/c/modules/ModelProcessorx/Melting/CreateNodesMelting.cpp
r5114 r5524 32 32 33 33 /*First fetch data: */ 34 if (iomodel->dim==3){35 IoModelFetchData(&iomodel->deadgrids,NULL,NULL,iomodel_handle,"deadgrids");36 }37 34 IoModelFetchData(&iomodel->gridonbed,NULL,NULL,iomodel_handle,"gridonbed"); 38 35 IoModelFetchData(&iomodel->gridonsurface,NULL,NULL,iomodel_handle,"gridonsurface"); … … 52 49 53 50 /*Clean fetched data: */ 54 xfree((void**)&iomodel->deadgrids);55 51 xfree((void**)&iomodel->gridonbed); 56 52 xfree((void**)&iomodel->gridonsurface); -
issm/trunk/src/c/modules/ModelProcessorx/Prognostic/CreateNodesPrognostic.cpp
r5114 r5524 39 39 40 40 /*First fetch data: */ 41 if (iomodel->dim==3){42 IoModelFetchData(&iomodel->deadgrids,NULL,NULL,iomodel_handle,"deadgrids");43 }44 41 IoModelFetchData(&iomodel->elements,NULL,NULL,iomodel_handle,"elements"); 45 42 IoModelFetchData(&iomodel->gridonbed,NULL,NULL,iomodel_handle,"gridonbed"); … … 87 84 88 85 /*Clean fetched data: */ 89 xfree((void**)&iomodel->deadgrids);90 86 xfree((void**)&iomodel->gridonbed); 91 87 xfree((void**)&iomodel->gridonsurface); -
issm/trunk/src/c/modules/ModelProcessorx/SurfaceSlope/CreateNodesSurfaceSlope.cpp
r5114 r5524 32 32 33 33 /*First fetch data: */ 34 if (iomodel->dim==3){35 IoModelFetchData(&iomodel->deadgrids,NULL,NULL,iomodel_handle,"deadgrids");36 }37 34 IoModelFetchData(&iomodel->gridonbed,NULL,NULL,iomodel_handle,"gridonbed"); 38 35 IoModelFetchData(&iomodel->gridonsurface,NULL,NULL,iomodel_handle,"gridonsurface"); … … 52 49 53 50 /*Clean fetched data: */ 54 xfree((void**)&iomodel->deadgrids);55 51 xfree((void**)&iomodel->gridonbed); 56 52 xfree((void**)&iomodel->gridonsurface); -
issm/trunk/src/c/modules/ModelProcessorx/Thermal/CreateNodesThermal.cpp
r5114 r5524 32 32 33 33 /*Create nodes and vertices: */ 34 if (iomodel->dim==3){35 IoModelFetchData(&iomodel->deadgrids,NULL,NULL,iomodel_handle,"deadgrids");36 }37 34 IoModelFetchData(&iomodel->gridonbed,NULL,NULL,iomodel_handle,"gridonbed"); 38 35 IoModelFetchData(&iomodel->gridonsurface,NULL,NULL,iomodel_handle,"gridonsurface"); … … 52 49 53 50 /*Clean fetched data: */ 54 xfree((void**)&iomodel->deadgrids);55 51 xfree((void**)&iomodel->gridonbed); 56 52 xfree((void**)&iomodel->gridonsurface); -
issm/trunk/src/c/objects/IoModel.cpp
r5472 r5524 44 44 if (this->dim==3){ 45 45 xfree((void**)&this->elements2d); 46 xfree((void**)&this->deadgrids);47 46 xfree((void**)&this->upperelements); 48 47 xfree((void**)&this->lowerelements); … … 247 246 this->numberofvertices2d=0; 248 247 this->elements2d=NULL; 249 this->deadgrids=NULL;250 248 this->numlayers=0; 251 249 this->upperelements=NULL; -
issm/trunk/src/c/objects/IoModel.h
r5472 r5524 38 38 int numberofelements2d; 39 39 double* elements2d; 40 double* deadgrids;41 40 int numlayers; 42 41 double* upperelements; -
issm/trunk/src/c/objects/Node.cpp
r5433 r5524 91 91 if (iomodel->dim==3){ 92 92 /*We have a 3d mesh, we may have collapsed elements, hence dead grids. Freeze them out: */ 93 if (!iomodel->deadgrids) ISSMERROR("iomodel->deadgrids is NULL"); 94 if (iomodel->deadgrids[io_index]){ 93 if (!iomodel->gridonbed) ISSMERROR("iomodel->gridonbed is NULL"); 94 if (!iomodel->vertices_type) ISSMERROR("iomodel->vertices_type is NULL"); 95 if (iomodel->vertices_type[io_index]==MacAyealApproximationEnum && !iomodel->gridonbed[io_index]){ 95 96 for(k=1;k<=numdofs;k++){ 96 97 this->FreezeDof(k); -
issm/trunk/src/m/classes/@model/model.m
r5519 r5524 94 94 md.lowerelements=NaN; 95 95 md.lowergrids=NaN; 96 md.deadgrids=NaN;97 96 98 97 %Extrusion -
issm/trunk/src/m/classes/public/extrude.m
r5433 r5524 182 182 md.gridonpattyn=project3d(md,md.gridonpattyn,'node'); 183 183 md.gridonstokes=project3d(md,md.gridonstokes,'node'); 184 185 %dead grids186 md.deadgrids=ones(md.numberofgrids,1);187 md.deadgrids(md.elements(md.elements_type~=MacAyealApproximationEnum,:))=0;%non macayeal grids are not dead188 md.deadgrids(find(md.gridonbed))=0;%grids from elements on bed are not dead189 184 end 190 185 -
issm/trunk/src/m/classes/public/marshall.m
r5359 r5524 40 40 WriteData(fid,md.numberofgrids2d,'Integer','numberofgrids2d'); 41 41 WriteData(fid,md.elements2d,'Mat','elements2d'); 42 WriteData(fid,md.deadgrids,'Mat','deadgrids');43 42 WriteData(fid,md.numlayers,'Integer','numlayers'); 44 43 WriteData(fid,md.gridonpattyn,'Mat','gridonpattyn'); -
issm/trunk/src/m/classes/public/setelementstype.m
r5441 r5524 172 172 end 173 173 174 %flag dead grids (strictly in MacAyeal and not on bed -> not used in diagnostic horiz)175 nonmacayeal_el=find(~macayealflag); %non macayeal elements176 deadgrids=ones(md.numberofgrids,1);177 deadgrids(md.elements(nonmacayeal_el,:))=0; %non macayeal grids are not dead178 deadgrids(find(md.gridonbed))=0; %grids from elements on bed are not dead179 md.deadgrids=deadgrids;180 181 174 %figure out solution types 182 175 md.ishutter=double(any(md.elements_type==HutterApproximationEnum));
Note:
See TracChangeset
for help on using the changeset viewer.