From 076aa3f72bcb888bddb2cf19e9e01488e62627e5 Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Sat, 5 Oct 2019 17:37:14 +0200 Subject: [PATCH] not needed --- src/mesh_marc.f90 | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/src/mesh_marc.f90 b/src/mesh_marc.f90 index 8f286c0bb..ae1eba117 100644 --- a/src/mesh_marc.f90 +++ b/src/mesh_marc.f90 @@ -1191,18 +1191,17 @@ end subroutine mesh_build_ipCoordinates !-------------------------------------------------------------------------------------------------- subroutine mesh_build_ipAreas - integer :: e,t,g,c,i,f,n,m + integer :: e,c,i,f,n,m real(pReal), dimension (3,FE_maxNcellnodesPerCellface) :: nodePos, normals real(pReal), dimension(3) :: normal allocate(mesh_ipArea(theMesh%elem%nIPneighbors,theMesh%elem%nIPs,theMesh%nElems), source=0.0_pReal) allocate(mesh_ipAreaNormal(3,theMesh%elem%nIPneighbors,theMesh%elem%nIPs,theMesh%nElems), source=0.0_pReal) + + c = theMesh%elem%cellType - !$OMP PARALLEL DO PRIVATE(t,g,c,nodePos,normal,normals) + !$OMP PARALLEL DO PRIVATE(nodePos,normal,normals) do e = 1,theMesh%nElems ! loop over cpElems - t = mesh_element(2,e) ! get element type - g = theMesh%elem%geomType - c = theMesh%elem%cellType select case (c) case (1,2) ! 2D 3 or 4 node