29 lines
1.7 KiB
Fortran
29 lines
1.7 KiB
Fortran
|
!--------------------------------------------------------------------------------------------------
|
||
|
!> @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 Geometric information about the IP cells needed for the nonlocal
|
||
|
! plasticity model
|
||
|
!--------------------------------------------------------------------------------------------------
|
||
|
module geometry_plastic_nonlocal
|
||
|
use prec
|
||
|
|
||
|
implicit none
|
||
|
private
|
||
|
logical, dimension(3), public, parameter :: &
|
||
|
geometry_plastic_nonlocal_periodicSurface = .true. !< flag indicating periodic outer surfaces (used for fluxes) NEEDED?
|
||
|
|
||
|
integer, dimension(:,:,:,:), allocatable, public, protected :: &
|
||
|
geometry_plastic_nonlocal_IPneighborhood !< 6 or less neighboring IPs as [element_num, IP_index, neighbor_index that points to me]
|
||
|
|
||
|
real(pReal), dimension(:,:), allocatable, public, protected :: &
|
||
|
geometry_plastic_nonlocal_IPvolume !< volume associated with IP (initially!)
|
||
|
|
||
|
real(pReal), dimension(:,:,:), allocatable, public, protected :: &
|
||
|
geometry_plastic_nonlocal_IParea !< area of interface to neighboring IP (initially!)
|
||
|
|
||
|
real(pReal),dimension(:,:,:,:), allocatable, public, protected :: &
|
||
|
geometry_plastic_nonlocal_IPareaNormal !< area normal of interface to neighboring IP (initially!)
|
||
|
|
||
|
end module geometry_plastic_nonlocal
|