From 5456ee98f46146c9a212c5d5f0a1b62f3f5062dc Mon Sep 17 00:00:00 2001
From: Martin Diehl <mail@martin-diehl.net>
Date: Sat, 8 Feb 2020 06:59:37 +0100
Subject: [PATCH] still needed (new section was created)

---
 src/mesh/FEM_mech.f90 | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/mesh/FEM_mech.f90 b/src/mesh/FEM_mech.f90
index 03b9758b0..9a490ba6b 100644
--- a/src/mesh/FEM_mech.f90
+++ b/src/mesh/FEM_mech.f90
@@ -190,6 +190,7 @@ subroutine FEM_mech_init(fieldBC)
 
 #endif
   CHKERRQ(ierr)
+  call DMSetSection(mech_mesh,section,ierr); CHKERRQ(ierr)
   do faceSet = 1, numBC
     call ISDestroy(pbcPoints(faceSet),ierr); CHKERRQ(ierr)
   enddo