From 5936397ae7a92e8fdb7086db7d863f901b0adeaa Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Sun, 23 Sep 2018 17:37:57 +0200 Subject: [PATCH] introducing better names allows further simplifications as we do not store max and per elem values any more for number of integration points and number of cell nodes --- src/mesh.f90 | 16 ++++++++++++++-- 1 file changed, 14 insertions(+), 2 deletions(-) diff --git a/src/mesh.f90 b/src/mesh.f90 index 0443f1fe8..ae28bc7e3 100644 --- a/src/mesh.f90 +++ b/src/mesh.f90 @@ -19,10 +19,15 @@ module mesh mesh_Nnodes, & !< total number of nodes in mesh mesh_Ncellnodes, & !< total number of cell nodes in mesh (including duplicates) mesh_Ncells, & !< total number of cells in mesh - mesh_maxNips, & !< max number of IPs in any CP element + mesh_NipsPerElem, & !< number of IPs in per element + mesh_NcellnodesPerElem, & !< number of cell nodes per element mesh_maxNipNeighbors, & !< max number of IP neighbors in any CP element - mesh_maxNsharedElems, & !< max number of CP elements sharing a node + mesh_maxNsharedElems !< max number of CP elements sharing a node +!!!! BEGIN DEPRECATED !!!!! + integer(pInt), public, protected :: & + mesh_maxNips, & !< max number of IPs in any CP element mesh_maxNcellnodes !< max number of cell nodes in any CP element +!!!! BEGIN DEPRECATED !!!!! integer(pInt), dimension(:,:), allocatable, public, protected :: & mesh_element, & !< FEid, type(internal representation), material, texture, node indices as CP IDs @@ -639,6 +644,13 @@ subroutine mesh_init(ip,el) calcMode(ip,el) = .true. ! first ip,el needs to be already pingponged to "calc" #endif +!!!! COMPATIBILITY HACK !!!! +! for a homogeneous mesh, all elements have the same number of IPs and and cell nodes. +! hence, xxPerElem instead of maxXX + mesh_NipsPerElem = mesh_maxNips + mesh_NcellnodesPerElem = mesh_maxNcellnodes +!!!!!!!!!!!!!!!!!!!!!!!! + end subroutine mesh_init