source: issm/trunk/src/c/modules/ModelProcessorx/Balancedthickness2/CreateNodesBalancedthickness2.cpp@ 4005

Last change on this file since 4005 was 4005, checked in by Mathieu Morlighem, 15 years ago

Updated CreateNodes
File size: 2.6 KB
Line 
1/*
2 * CreateNodesBalancedthickness2.c:
3 */
4
5#include "../../../DataSet/DataSet.h"
6#include "../../../toolkits/toolkits.h"
7#include "../../../io/io.h"
8#include "../../../EnumDefinitions/EnumDefinitions.h"
9#include "../../../objects/objects.h"
10#include "../../../shared/shared.h"
11#include "../../../include/include.h"
12#include "../../MeshPartitionx/MeshPartitionx.h"
13#include "../ModelProcessorx.h"
14
15void CreateNodesBalancedthickness2(DataSet** pelements,DataSet** pnodes, DataSet** pvertices,DataSet** pmaterials, IoModel* iomodel,ConstDataHandle iomodel_handle){
16
17 /*Intermediary*/
18 int i;
19 bool continuous_galerkin=false;
20
21 /*DataSets: */
22 DataSet* nodes = NULL;
23
24 /*Recover pointer: */
25 nodes=*pnodes;
26
27 /*Create nodes if they do not exist yet*/
28 if(!nodes) nodes = new DataSet(NodesEnum);
29
30 /*Continuous Galerkin partition of nodes: */
31 NodesPartitioning(&iomodel->my_nodes,iomodel->my_elements, iomodel->my_vertices, iomodel->my_bordervertices, iomodel, iomodel_handle,continuous_galerkin);
32
33 /*Create nodes: */
34 IoModelFetchData(&iomodel->gridonbed,NULL,NULL,iomodel_handle,"gridonbed");
35 IoModelFetchData(&iomodel->gridonsurface,NULL,NULL,iomodel_handle,"gridonsurface");
36 IoModelFetchData(&iomodel->gridonhutter,NULL,NULL,iomodel_handle,"gridonhutter");
37 IoModelFetchData(&iomodel->gridonicesheet,NULL,NULL,iomodel_handle,"gridonicesheet");
38 IoModelFetchData(&iomodel->gridoniceshelf,NULL,NULL,iomodel_handle,"gridoniceshelf");
39 IoModelFetchData(&iomodel->elements,NULL,NULL,iomodel_handle,"elements");
40 if (iomodel->dim==3){
41 IoModelFetchData(&iomodel->deadgrids,NULL,NULL,iomodel_handle,"deadgrids");
42 IoModelFetchData(&iomodel->uppernodes,NULL,NULL,iomodel_handle,"uppergrids");
43 ISSMERROR("Not implemented yet");
44 }
45
46 /*Build Nodes dataset -> 3 for each element (Discontinuous Galerkin)*/
47 for (i=0;i<iomodel->numberofelements;i++){
48 for (j=0;j<3;j++){
49
50 if(iomodel->my_nodes[3*i+j]){
51
52 //Get index of the vertex on which the current node is located
53 vertex_index=(int)*(iomodel->elements+3*i+j)-1; //(Matlab to C indexing)
54 ISSMASSERT(vertex_index>=0 && vertex_index<iomodel->numberofvertices);
55
56 //Compute Node index (id-1)
57 node_index=3*i+j;
58
59 /*Add node to nodes dataset: */
60 nodes->AddObject(new Node(iomodel->nodecounter+i+1,vertex_index,node_index,iomodel));
61
62 }
63 }
64 }
65
66 /*Clean fetched data: */
67 xfree((void**)&iomodel->deadgrids);
68 xfree((void**)&iomodel->gridonbed);
69 xfree((void**)&iomodel->gridonsurface);
70 xfree((void**)&iomodel->gridonhutter);
71 xfree((void**)&iomodel->uppernodes);
72 xfree((void**)&iomodel->gridonicesheet);
73 xfree((void**)&iomodel->gridoniceshelf);
74 xfree((void**)&iomodel->elements);
75
76 /*Assign output pointer: */
77 *pnodes=nodes;
78}
Note: See TracBrowser for help on using the repository browser.