1 int USERD_get_maxsize_info
3 int *max_number_of_nodes,
4 int *max_number_of_elements[Z_MAXTYPE],
5 int *max_ijk_dimensions[3]
11 Info << "Entering: USERD_get_maxsize_info" << endl;
15 label maxNParcels = 0;
22 Info<< "Checking all time steps for EnSight memory allocation purpose. This can take some time." << endl;
24 for (label timeI=1; timeI < timeDirs.size(); ++timeI)
32 runTimePtr->setTime(timeDirs[timeI], timeI);
34 Info<< "Checking time = " << runTimePtr->timeName() << endl;
36 const cellShapeList& cells = meshPtr->cellShapes();
38 const label nPoints = meshPtr->nPoints();
39 const label nCells = cells.size();
41 maxNPoints = max(maxNPoints, nPoints);
43 for (label n=0; n<nCells;n++)
45 label nFaces = cells[n].nFaces();
46 const labelList& points = cells[n];
48 if ((nFaces == 6) && (points.size() == 8))
52 else if ((nFaces == 5) && (points.size() == 6))
56 else if ((nFaces == 5) && (points.size() == 5))
60 else if ((nFaces == 4) && (points.size() == 4))
66 nPen06Max = max(nPen06Max, nPen06);
67 nHex08Max = max(nHex08Max, nHex08);
68 nPyr05Max = max(nPyr05Max, nPyr05);
69 nTet04Max = max(nTet04Max, nTet04);
71 if (Numparts_available > 1)
73 // Get the maximum number of spray parcels
75 Cloud<passiveParticle> lagrangian(*meshPtr);
77 if (lagrangian.size() > nMaxParcels)
79 nMaxParcels = lagrangian.size();
84 max_number_of_nodes[0] = maxNPoints;
85 max_number_of_elements[0][Z_HEX08] = nHex08Max;
86 max_number_of_elements[0][Z_PEN06] = nPen06Max;
87 max_number_of_elements[0][Z_PYR05] = nPyr05Max;
88 max_number_of_elements[0][Z_TET04] = nTet04Max;
90 if (Numparts_available > 1)
92 max_number_of_nodes[1] = maxNParcels;
93 max_number_of_elements[1][Z_POINT] = maxNParcels;
97 Info<< "Leaving: USERD_get_maxsize_info" << endl;