still needed (new section was created)

2020-02-08 06:59:37 +01:00 · 2020-02-08 06:59:37 +01:00 · 5456ee98f4
parent 984370d7d1
commit 5456ee98f4
1 changed files with 1 additions and 0 deletions
--- 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