not needed

object-oriented mesh did not work out nicely

src/commercialFEM_fileList.f90

@@ -1,7 +1,7 @@
 !--------------------------------------------------------------------------------------------------
 !> @author Martin Diehl, Max-Planck-Institut für Eisenforschung GmbH
 !> @brief all DAMASK files without solver
-!> @details List of files needed by MSC.Marc, Abaqus/Explicit, and Abaqus/Standard
+!> @details List of files needed by MSC.Marc and Abaqus/Standard
 !--------------------------------------------------------------------------------------------------
 #include "IO.f90"
 #include "numerics.f90"
@@ -15,7 +15,6 @@
 #include "rotations.f90"
 #include "FEsolving.f90"
 #include "element.f90"
-#include "mesh_base.f90"
 #include "HDF5_utilities.f90"
 #include "results.f90"
 #include "geometry_plastic_nonlocal.f90"

src/mesh_FEM.f90

@@ -20,7 +20,6 @@ module mesh
  use FEsolving
  use FEM_Zoo
  use prec
- use mesh_base
  
  implicit none
  private
@@ -53,18 +52,6 @@ module mesh
  PetscInt, dimension(:), allocatable, public, protected :: &
    mesh_boundaries
 
-                       
-  type, public, extends(tMesh) :: tMesh_FEM
-
-   
-   contains
-   procedure, pass(self) :: tMesh_FEM_init
-   generic, public :: init => tMesh_FEM_init
- end type tMesh_FEM
- 
- type(tMesh_FEM), public, protected :: theMesh
- 
-
  public :: &
    mesh_init, &
    mesh_FEM_build_ipVolumes, &
@@ -72,24 +59,6 @@ module mesh
 
 contains
 
-subroutine tMesh_FEM_init(self,dimen,order,nodes)
- 
- integer, intent(in) :: dimen
- integer, intent(in) :: order
- real(pReal), intent(in), dimension(:,:) :: nodes
- class(tMesh_FEM) :: self
- 
- if (dimen == 2) then
-   if (order == 1) call  self%tMesh%init('mesh',1,nodes)
-   if (order == 2) call  self%tMesh%init('mesh',2,nodes)
- elseif(dimen == 3) then
-   if (order == 1) call self%tMesh%init('mesh',6,nodes)
-   if (order == 2) call self%tMesh%init('mesh',8,nodes)
- endif
-
- end subroutine tMesh_FEM_init
-
-
 
 !--------------------------------------------------------------------------------------------------
 !> @brief initializes the mesh by calling all necessary private routines the mesh module
@@ -217,8 +186,6 @@ subroutine mesh_init
  forall (j = 1:mesh_NcpElems) FEsolving_execIP(2,j) = FE_Nips(FE_geomtype(mesh_element(2,j)))  ! ...up to own IP count for each element
  
  allocate(mesh_node0(3,mesh_Nnodes),source=0.0_pReal)
- call theMesh%init(dimplex,integrationOrder,mesh_node0)
- call theMesh%setNelems(mesh_NcpElems)
 
    call discretization_init(mesh_element(3,:),mesh_element(4,:),&
                            reshape(mesh_ipCoordinates,[3,mesh_maxNips*mesh_NcpElems]), &

src/mesh_abaqus.f90

@@ -7,7 +7,6 @@
 !--------------------------------------------------------------------------------------------------
 module mesh
  use prec
- use mesh_base
  use geometry_plastic_nonlocal
  use discretization
  use math

src/mesh_base.f90

@@ -1,74 +0,0 @@
-!--------------------------------------------------------------------------------------------------
-!> @author Franz Roters, Max-Planck-Institut für Eisenforschung GmbH
-!> @author Philip Eisenlohr, Max-Planck-Institut für Eisenforschung GmbH
-!> @author Christoph Koords, Max-Planck-Institut für Eisenforschung GmbH
-!> @author Martin Diehl, Max-Planck-Institut für Eisenforschung GmbH
-!> @brief Sets up the mesh for the solvers MSC.Marc,FEM, Abaqus and the spectral solver
-!--------------------------------------------------------------------------------------------------
-module mesh_base
-
-  use prec
-  use element
-
-  implicit none
-
-!---------------------------------------------------------------------------------------------------
-!> Properties of a whole mesh (consisting of one type of elements)
-!---------------------------------------------------------------------------------------------------
- type, public :: tMesh
-   type(tElement) :: &
-     elem
-   real(pReal), dimension(:,:), allocatable, public :: &
-     ipVolume, &                                                                                 !< volume associated with each IP (initially!)
-     node_0, &                                                                                    !< node x,y,z coordinates (initially)
-     node                                                                                        !< node x,y,z coordinates (deformed)
-   integer(pInt), dimension(:,:), allocatable, public :: &    
-     cellnodeParent                                                                               !< cellnode's parent element ID, cellnode's intra-element ID 
-   character(pStringLen) :: type = "n/a"
-   integer(pInt)         :: &
-     Nnodes, &                                                                                   !< total number of nodes in mesh
-     Nelems = -1_pInt, &
-     elemType, &
-     Ncells, &
-     nIPneighbors, &
-     NcellNodes
-   integer(pInt), dimension(:,:), allocatable, public :: &
-     connectivity
-   contains
-   procedure, pass(self) :: tMesh_base_init
-   procedure :: setNelems =>  tMesh_base_setNelems                                                  ! not needed once we compute the cells from the connectivity
-   generic, public :: init => tMesh_base_init
- end type tMesh
-
-contains
-
-subroutine tMesh_base_init(self,meshType,elemType,nodes)
- 
- class(tMesh) :: self
- character(len=*), intent(in) :: meshType
- integer(pInt), intent(in) :: elemType
- real(pReal), dimension(:,:), intent(in) :: nodes
- 
- write(6,'(/,a)')   ' <<<+-  mesh_base_init  -+>>>'
- 
- write(6,*)' mesh type ',meshType
- write(6,*)' # node    ',size(nodes,2)
-
- self%type = meshType
- call self%elem%init(elemType)
- self%node_0 = nodes
- self%nNodes = size(nodes,2)
-
-end subroutine tMesh_base_init
-
-
-subroutine tMesh_base_setNelems(self,Nelems)
-  
-  class(tMesh) :: self
-  integer(pInt), intent(in) :: Nelems
-
-  self%Nelems = Nelems
-
-end subroutine tMesh_base_setNelems
-
-end module mesh_base

src/mesh_marc.f90

@@ -9,7 +9,6 @@ module mesh
   use IO
   use prec
   use math
-  use mesh_base
   use DAMASK_interface
   use IO
   use debug