From 369cae5332f71b1c7a3407575354d781375255b8 Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Sun, 13 Oct 2019 20:52:49 +0200 Subject: [PATCH] no public variables --- src/mesh_marc.f90 | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/mesh_marc.f90 b/src/mesh_marc.f90 index a85924e2a..d564674e8 100644 --- a/src/mesh_marc.f90 +++ b/src/mesh_marc.f90 @@ -47,9 +47,6 @@ module mesh integer, dimension(:,:), allocatable :: & connectivity_elem - real(pReal), dimension(:,:), allocatable :: & - mesh_node, & !< node x,y,z coordinates (after deformation! ONLY FOR MARC!!! - mesh_node0 !< node x,y,z coordinates (initially!) type(tMesh) :: theMesh @@ -79,6 +76,9 @@ subroutine mesh_init(ip,el) character(len=pStringLen), dimension(:), allocatable :: inputFile !< file content, separated per lines integer :: & mesh_NelemSets + real(pReal), dimension(:,:), allocatable :: & + mesh_node, & !< node x,y,z coordinates (after deformation! ONLY FOR MARC!!! + mesh_node0 !< node x,y,z coordinates (initially!) integer :: j, fileFormatVersion, elemType, & mesh_maxNelemInSet, &