From 80ae2f5f6b1349ae593f538e84435ac218ed368c Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Mon, 20 Jan 2020 23:39:24 +0100 Subject: [PATCH] no need for public variables --- src/mesh_FEM.f90 | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) 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