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

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

updated CreateNodes

File size: 2.8 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 int totalnodes;
20 bool continuous_galerkin=false;
21
22 /*DataSets: */
23 DataSet* nodes = NULL;
24
25 /*First create nodes*/
26 nodes = new DataSet(NodesEnum);
27
28 /*Recover number of nodes already created in other analyses: */
29 totalnodes=iomodel->nodecounter;
30
31 /*Continuous Galerkin partition of nodes: */
32 NodesPartitioning(&iomodel->my_nodes,iomodel->my_elements, iomodel->my_vertices, iomodel->my_bordervertices, iomodel, iomodel_handle,continuous_galerkin);
33
34 /*Create nodes: */
35 IoModelFetchData(&iomodel->gridonbed,NULL,NULL,iomodel_handle,"gridonbed");
36 IoModelFetchData(&iomodel->gridonsurface,NULL,NULL,iomodel_handle,"gridonsurface");
37 IoModelFetchData(&iomodel->gridonhutter,NULL,NULL,iomodel_handle,"gridonhutter");
38 IoModelFetchData(&iomodel->gridonicesheet,NULL,NULL,iomodel_handle,"gridonicesheet");
39 IoModelFetchData(&iomodel->gridoniceshelf,NULL,NULL,iomodel_handle,"gridoniceshelf");
40 IoModelFetchData(&iomodel->elements,NULL,NULL,iomodel_handle,"elements");
41 if (iomodel->dim==3){
42 IoModelFetchData(&iomodel->deadgrids,NULL,NULL,iomodel_handle,"deadgrids");
43 IoModelFetchData(&iomodel->uppernodes,NULL,NULL,iomodel_handle,"uppergrids");
44 ISSMERROR("Not implemented yet");
45 }
46
47 /*Build Nodes dataset -> 3 for each element (Discontinuous Galerkin)*/
48 for (i=0;i<iomodel->numberofelements;i++){
49 for (j=0;j<3;j++){
50
51 if(iomodel->my_nodes[3*i+j]){
52
53 //Get index of the vertex on which the current node is located
54 vertex_index=(int)*(iomodel->elements+3*i+j)-1; //(Matlab to C indexing)
55 ISSMASSERT(vertex_index>=0 && vertex_index<iomodel->numberofvertices);
56
57 //Compute Node index (id-1)
58 node_index=3*i+j;
59
60 /*Add node to nodes dataset: */
61 nodes->AddObject(new Node(i+1,vertex_index,node_index,iomodel));
62
63 }
64 }
65 }
66
67 /*Clean fetched data: */
68 xfree((void**)&iomodel->deadgrids);
69 xfree((void**)&iomodel->gridonbed);
70 xfree((void**)&iomodel->gridonsurface);
71 xfree((void**)&iomodel->gridonhutter);
72 xfree((void**)&iomodel->uppernodes);
73 xfree((void**)&iomodel->gridonicesheet);
74 xfree((void**)&iomodel->gridoniceshelf);
75 xfree((void**)&iomodel->elements);
76
77 /*All our datasets are already order by ids. Set presort flag so that later on, when sorting is requested on these
78 * datasets, it will not be redone: */
79 nodes->Presort();
80
81 /*Assign output pointer: */
82 *pnodes=nodes;
83}
Note: See TracBrowser for help on using the repository browser.