diff --git a/src/mesh_FEM.f90 b/src/mesh_FEM.f90 index 9c46715d8..6b89ba2a7 100644 --- a/src/mesh_FEM.f90 +++ b/src/mesh_FEM.f90 @@ -26,9 +26,11 @@ module mesh integer, public, protected :: & mesh_Nboundaries, & - mesh_NcpElems, & !< total number of CP elements in mesh mesh_NcpElemsGlobal + integer :: & + mesh_NcpElems !< total number of CP elements in mesh + !!!! BEGIN DEPRECATED !!!!! integer, public, protected :: & mesh_maxNips !< max number of IPs in any CP element @@ -44,7 +46,7 @@ module mesh mesh_ipVolume, & !< volume associated with IP (initially!) mesh_node0 !< node x,y,z coordinates (initially!) - real(pReal), dimension(:,:,:), allocatable, public :: & + real(pReal), dimension(:,:,:), allocatable :: & mesh_ipCoordinates !< IP x,y,z coordinates (after deformation!) DM, public :: geomMesh