source: issm/trunk/src/c/ModelProcessorx/Prognostic2/CreateElementsNodesAndMaterialsPrognostic2.cpp@ 3703

Last change on this file since 3703 was 3703, checked in by Eric.Larour, 15 years ago

Big commit
File size: 5.7 KB
Line 
1/*
2 * CreateElementsNodesAndMaterialsPrognostic2.c:
3 */
4
5#include "../../DataSet/DataSet.h"
6#include "../../toolkits/toolkits.h"
7#include "../../EnumDefinitions/EnumDefinitions.h"
8#include "../../objects/objects.h"
9#include "../../io/io.h"
10#include "../../shared/shared.h"
11#include "../../include/macros.h"
12#include "../../include/typedefs.h"
13#include "../../MeshPartitionx/MeshPartitionx.h"
14#include "../ModelProcessorx.h"
15
16void CreateElementsNodesAndMaterialsPrognostic2(DataSet** pelements,DataSet** pnodes, DataSet** pvertices,DataSet** pmaterials, IoModel* iomodel,ConstDataHandle iomodel_handle){
17
18 /*Intermediary*/
19 int i,j;
20 int vertex_index;
21 int node_index;
22
23 /*DataSets: */
24 DataSet* elements = NULL;
25 DataSet* nodes = NULL;
26 DataSet* vertices = NULL;
27 DataSet* materials = NULL;
28
29 /*First create the elements, nodes and material properties: */
30 elements = new DataSet(ElementsEnum);
31 nodes = new DataSet(NodesEnum);
32 vertices = new DataSet(VerticesEnum);
33 materials = new DataSet(MaterialsEnum);
34
35 /*Partition elements and vertices and nodes: */
36 Partitioning(&iomodel->my_elements, &iomodel->my_vertices, &iomodel->my_nodes, &iomodel->my_bordervertices, iomodel, iomodel_handle);
37
38 /*elements created vary if we are dealing with a 2d mesh, or a 3d mesh: */
39 /*2d mesh: */
40 if (strcmp(iomodel->meshtype,"2d")==0){
41
42 /*Fetch data needed: */
43 IoModelFetchData(&iomodel->elements,NULL,NULL,iomodel_handle,"elements");
44 IoModelFetchData(&iomodel->thickness,NULL,NULL,iomodel_handle,"thickness");
45 IoModelFetchData(&iomodel->surface,NULL,NULL,iomodel_handle,"surface");
46 IoModelFetchData(&iomodel->bed,NULL,NULL,iomodel_handle,"bed");
47 IoModelFetchData(&iomodel->elementoniceshelf,NULL,NULL,iomodel_handle,"elementoniceshelf");
48 IoModelFetchData(&iomodel->elementonwater,NULL,NULL,iomodel_handle,"elementonwater");
49 IoModelFetchData(&iomodel->melting_rate,NULL,NULL,iomodel_handle,"melting_rate");
50 IoModelFetchData(&iomodel->accumulation_rate,NULL,NULL,iomodel_handle,"accumulation_rate");
51 IoModelFetchData(&iomodel->vx,NULL,NULL,iomodel_handle,"vx");
52 IoModelFetchData(&iomodel->vy,NULL,NULL,iomodel_handle,"vy");
53
54 for (i=0;i<iomodel->numberofelements;i++){
55
56 if(iomodel->my_elements[i]){
57
58 /*Create and add tria element to elements dataset: */
59 elements->AddObject(new Tria(i+1,i,iomodel));
60
61 /*Create and add material property to materials dataset: */
62 materials->AddObject(new Matice(i+1,i,iomodel,3));
63 }
64 }//for (i=0;i<numberofelements;i++)
65
66 /*Free data : */
67 xfree((void**)&iomodel->thickness);
68 xfree((void**)&iomodel->surface);
69 xfree((void**)&iomodel->bed);
70 xfree((void**)&iomodel->elementoniceshelf);
71 xfree((void**)&iomodel->elementonwater);
72 xfree((void**)&iomodel->melting_rate);
73 xfree((void**)&iomodel->accumulation_rate);
74 xfree((void**)&iomodel->vx);
75 xfree((void**)&iomodel->vy);
76
77 }
78 else{ // if (strcmp(meshtype,"2d")==0)
79 ISSMERROR("not implemented yet");
80 } //if (strcmp(meshtype,"2d")==0)
81
82 /*Add new constrant material property tgo materials, at the end: */
83 materials->AddObject(new Matpar(iomodel->numberofelements+1,iomodel));
84
85 /*Create nodes and vertices: */
86 IoModelFetchData(&iomodel->x,NULL,NULL,iomodel_handle,"x");
87 IoModelFetchData(&iomodel->y,NULL,NULL,iomodel_handle,"y");
88 IoModelFetchData(&iomodel->z,NULL,NULL,iomodel_handle,"z");
89 IoModelFetchData(&iomodel->thickness,NULL,NULL,iomodel_handle,"thickness");
90 IoModelFetchData(&iomodel->bed,NULL,NULL,iomodel_handle,"bed");
91 IoModelFetchData(&iomodel->gridonbed,NULL,NULL,iomodel_handle,"gridonbed");
92 IoModelFetchData(&iomodel->gridonsurface,NULL,NULL,iomodel_handle,"gridonsurface");
93 IoModelFetchData(&iomodel->gridonhutter,NULL,NULL,iomodel_handle,"gridonhutter");
94 IoModelFetchData(&iomodel->gridonicesheet,NULL,NULL,iomodel_handle,"gridonicesheet");
95 IoModelFetchData(&iomodel->gridoniceshelf,NULL,NULL,iomodel_handle,"gridoniceshelf");
96 if (strcmp(iomodel->meshtype,"3d")==0){
97 IoModelFetchData(&iomodel->deadgrids,NULL,NULL,iomodel_handle,"deadgrids");
98 IoModelFetchData(&iomodel->uppernodes,NULL,NULL,iomodel_handle,"uppergrids");
99 }
100
101 /*Build Vertices dataset*/
102 for (i=0;i<iomodel->numberofvertices;i++){
103
104 /*vertices and nodes (same number, as we are running continuous galerkin formulation: */
105 if(iomodel->my_vertices[i]){
106
107 /*Add vertex to vertices dataset: */
108 vertices->AddObject(new Vertex(i+1,i,iomodel));
109
110 }
111 }
112
113 /*Build Nodes dataset -> 3 for each element (Discontinuous Galerkin)*/
114 for (i=0;i<iomodel->numberofelements;i++){
115 for (j=0;j<3;j++){
116
117 if(iomodel->my_nodes[3*i+j]){
118
119 //Get index of the vertex on which the current node is located
120 vertex_index=(int)*(iomodel->elements+3*i+j)-1; //(Matlab to C indexing)
121 ISSMASSERT(vertex_index>=0 && vertex_index<iomodel->numberofvertices);
122
123 //Compute Node index (id-1)
124 node_index=3*i+j;
125
126 /*Add node to nodes dataset: */
127 nodes->AddObject(new Node(i+1,vertex_index,node_index,iomodel));
128
129 }
130 }
131 }
132
133 /*Clean fetched data: */
134 xfree((void**)&iomodel->deadgrids);
135 xfree((void**)&iomodel->x);
136 xfree((void**)&iomodel->y);
137 xfree((void**)&iomodel->z);
138 xfree((void**)&iomodel->thickness);
139 xfree((void**)&iomodel->bed);
140 xfree((void**)&iomodel->gridonbed);
141 xfree((void**)&iomodel->gridonsurface);
142 xfree((void**)&iomodel->gridonhutter);
143 xfree((void**)&iomodel->uppernodes);
144 xfree((void**)&iomodel->gridonicesheet);
145 xfree((void**)&iomodel->gridoniceshelf);
146
147 /*All our datasets are already order by ids. Set presort flag so that later on, when sorting is requested on these
148 * datasets, it will not be redone: */
149 elements->Presort();
150 nodes->Presort();
151 vertices->Presort();
152 materials->Presort();
153
154 cleanup_and_return:
155
156 /*Assign output pointer: */
157 *pelements=elements;
158 *pnodes=nodes;
159 *pvertices=vertices;
160 *pmaterials=materials;
161}
Note: See TracBrowser for help on using the repository browser.