223031012
/
DAMASK_EICMD
mirror of https://github.com/achalhp/DAMASK_EICMD.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity
DAMASK_EICMD/src/discretization.f90

122 lines
4.1 KiB
Fortran
Raw Normal View History

new module "discretization" should replace the part of mesh that is not only needed by plastic_nonlocal
2019-06-06 17:29:16 +05:30
!--------------------------------------------------------------------------------------------------
!> @brief spatial discretization
documentation was missing
2019-06-15 19:10:43 +05:30
!> @details serves as an abstraction layer between the different solvers and DAMASK
new module "discretization" should replace the part of mesh that is not only needed by plastic_nonlocal
2019-06-06 17:29:16 +05:30
!--------------------------------------------------------------------------------------------------
module discretization
use prec
use results
implicit none
private
mesh_elem and theMesh are deprecated
2019-06-07 02:19:17 +05:30
integer, public, protected :: &
easier to store positions than displacement
2019-06-06 21:58:10 +05:30
discretization_nIP, &
discretization_nElem
discretization contains now all information to substitute mesh only plastic_nonlocal needs extra information
2019-06-07 00:24:19 +05:30
mesh_elem and theMesh are deprecated
2019-06-07 02:19:17 +05:30
integer, public, protected, dimension(:), allocatable :: &
discretization contains now all information to substitute mesh only plastic_nonlocal needs extra information
2019-06-07 00:24:19 +05:30
discretization_homogenizationAt, &
discretization_microstructureAt
easier to store positions than displacement
2019-06-06 21:58:10 +05:30
mesh_elem and theMesh are deprecated
2019-06-07 02:19:17 +05:30
real(pReal), public, protected, dimension(:,:), allocatable :: &
easier to store positions than displacement
2019-06-06 21:58:10 +05:30
discretization_IPcoords0, &
discretization_NodeCoords0, &
discretization_IPcoords, &
discretization_NodeCoords
do not write nodes shared over several processes - probably useful only for grid solver, FEM have connectivity matrix anyway - name could be improved (in fact, the index is the last not-shared node)
2019-09-29 06:34:00 +05:30
integer :: &
typo
2019-09-30 02:48:21 +05:30
discretization_sharedNodesBeginn
new module "discretization" should replace the part of mesh that is not only needed by plastic_nonlocal
2019-06-06 17:29:16 +05:30
public :: &
discretization_init, &
easier to store positions than displacement
2019-06-06 21:58:10 +05:30
discretization_results, &
setter for current nodal coordinates
2019-09-28 02:37:34 +05:30
discretization_setIPcoords, &
discretization_setNodeCoords
new module "discretization" should replace the part of mesh that is not only needed by plastic_nonlocal
2019-06-06 17:29:16 +05:30
contains
documentation was missing
2019-06-15 19:10:43 +05:30
!--------------------------------------------------------------------------------------------------
!> @brief stores the relevant information in globally accesible variables
!--------------------------------------------------------------------------------------------------
do not write nodes shared over several processes - probably useful only for grid solver, FEM have connectivity matrix anyway - name could be improved (in fact, the index is the last not-shared node)
2019-09-29 06:34:00 +05:30
subroutine discretization_init(homogenizationAt,microstructureAt,&
IPcoords0,NodeCoords0,&
typo
2019-09-30 02:48:21 +05:30
sharedNodesBeginn)
new module "discretization" should replace the part of mesh that is not only needed by plastic_nonlocal
2019-06-06 17:29:16 +05:30
documentation was missing
2019-06-15 19:10:43 +05:30
integer, dimension(:), intent(in) :: &
discretization contains now all information to substitute mesh only plastic_nonlocal needs extra information
2019-06-07 00:24:19 +05:30
homogenizationAt, &
microstructureAt
easier to store positions than displacement
2019-06-06 21:58:10 +05:30
real(pReal), dimension(:,:), intent(in) :: &
IPcoords0, &
NodeCoords0
do not write nodes shared over several processes - probably useful only for grid solver, FEM have connectivity matrix anyway - name could be improved (in fact, the index is the last not-shared node)
2019-09-29 06:34:00 +05:30
integer, optional, intent(in) :: &
typo
2019-09-30 02:48:21 +05:30
sharedNodesBeginn
new module "discretization" should replace the part of mesh that is not only needed by plastic_nonlocal
2019-06-06 17:29:16 +05:30
write(6,'(/,a)') ' <<<+- discretization init -+>>>'
discretization contains now all information to substitute mesh only plastic_nonlocal needs extra information
2019-06-07 00:24:19 +05:30
discretization_nElem = size(microstructureAt,1)
bugfix: wrong number of IPs
2019-06-07 02:30:06 +05:30
discretization_nIP = size(IPcoords0,2)/discretization_nElem
new module "discretization" should replace the part of mesh that is not only needed by plastic_nonlocal
2019-06-06 17:29:16 +05:30
discretization contains now all information to substitute mesh only plastic_nonlocal needs extra information
2019-06-07 00:24:19 +05:30
discretization_homogenizationAt = homogenizationAt
discretization_microstructureAt = microstructureAt
easier to store positions than displacement
2019-06-06 21:58:10 +05:30
discretization_IPcoords0 = IPcoords0
discretization_IPcoords = IPcoords0
discretization contains now all information to substitute mesh only plastic_nonlocal needs extra information
2019-06-07 00:24:19 +05:30
easier to store positions than displacement
2019-06-06 21:58:10 +05:30
discretization_NodeCoords0 = NodeCoords0
discretization_NodeCoords = NodeCoords0
fixed precision even if compiler flag is not set
2019-09-30 04:27:57 +05:30
if(present(sharedNodesBeginn)) then
typo
2019-09-30 02:48:21 +05:30
discretization_sharedNodesBeginn = sharedNodesBeginn
do not write nodes shared over several processes - probably useful only for grid solver, FEM have connectivity matrix anyway - name could be improved (in fact, the index is the last not-shared node)
2019-09-29 06:34:00 +05:30
else
typo
2019-09-30 02:48:21 +05:30
discretization_sharedNodesBeginn = size(discretization_NodeCoords0,2)
do not write nodes shared over several processes - probably useful only for grid solver, FEM have connectivity matrix anyway - name could be improved (in fact, the index is the last not-shared node)
2019-09-29 06:34:00 +05:30
endif
new module "discretization" should replace the part of mesh that is not only needed by plastic_nonlocal
2019-06-06 17:29:16 +05:30
end subroutine discretization_init
documentation was missing
2019-06-15 19:10:43 +05:30
!--------------------------------------------------------------------------------------------------
!> @brief write the displacements
!--------------------------------------------------------------------------------------------------
new module "discretization" should replace the part of mesh that is not only needed by plastic_nonlocal
2019-06-06 17:29:16 +05:30
subroutine discretization_results
discretization contains now all information to substitute mesh only plastic_nonlocal needs extra information
2019-06-07 00:24:19 +05:30
#if defined(PETSc) || defined(DAMASK_HDF5)
easier to store positions than displacement
2019-06-06 21:58:10 +05:30
real(pReal), dimension(:,:), allocatable :: u
better encapsulation for results operations, do not rely directly on HDF5 module
2019-11-24 11:56:21 +05:30
call results_closeGroup(results_addGroup(trim('current/geometry')))
data layout and names as discussed with Karo and Philip
2019-09-20 01:18:04 +05:30
typo
2019-09-30 02:48:21 +05:30
u = discretization_NodeCoords (1:3,:discretization_sharedNodesBeginn) &
- discretization_NodeCoords0(1:3,:discretization_sharedNodesBeginn)
data layout and names as discussed with Karo and Philip
2019-09-20 01:18:04 +05:30
call results_writeDataset('current/geometry',u,'u_n','nodal displacements','m')
easier to store positions than displacement
2019-06-06 21:58:10 +05:30
do not write nodes shared over several processes - probably useful only for grid solver, FEM have connectivity matrix anyway - name could be improved (in fact, the index is the last not-shared node)
2019-09-29 06:34:00 +05:30
u = discretization_IPcoords &
- discretization_IPcoords0
data layout and names as discussed with Karo and Philip
2019-09-20 01:18:04 +05:30
call results_writeDataset('current/geometry',u,'u_c','cell center displacements','m')
discretization contains now all information to substitute mesh only plastic_nonlocal needs extra information
2019-06-07 00:24:19 +05:30
#endif
new module "discretization" should replace the part of mesh that is not only needed by plastic_nonlocal
2019-06-06 17:29:16 +05:30
end subroutine discretization_results
easier to store positions than displacement
2019-06-06 21:58:10 +05:30
documentation was missing
2019-06-15 19:10:43 +05:30
!--------------------------------------------------------------------------------------------------
!> @brief stores current IP coordinates
!--------------------------------------------------------------------------------------------------
easier to store positions than displacement
2019-06-06 21:58:10 +05:30
subroutine discretization_setIPcoords(IPcoords)
real(pReal), dimension(:,:), intent(in) :: IPcoords
discretization_IPcoords = IPcoords
end subroutine discretization_setIPcoords
setter for current nodal coordinates
2019-09-28 02:37:34 +05:30
!--------------------------------------------------------------------------------------------------
!> @brief stores current IP coordinates
!--------------------------------------------------------------------------------------------------
subroutine discretization_setNodeCoords(NodeCoords)
real(pReal), dimension(:,:), intent(in) :: NodeCoords
discretization_NodeCoords = NodeCoords
end subroutine discretization_setNodeCoords
new module "discretization" should replace the part of mesh that is not only needed by plastic_nonlocal
2019-06-06 17:29:16 +05:30
end module discretization