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

121 lines
4.2 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
Resolve "naming for classes"
2023-01-19 22:07:45 +05:30
use result
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
[skip sc] enforce interfaces (quick fix: declare as external)
2022-06-22 02:16:54 +05:30
implicit none(type,external)
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
private
natural data structure
2021-05-22 20:51:07 +05:30
mesh_elem and theMesh are deprecated
2019-06-07 02:19:17 +05:30
integer, public, protected :: &
consistent naming Nxxxs => the number of xxx
2020-10-28 01:57:26 +05:30
discretization_nIPs, &
need to store fraction for proper homogenization
2022-02-07 18:55:03 +05:30
discretization_Nelems, &
discretization_Ncells
natural data structure
2021-05-22 20:51:07 +05:30
mesh_elem and theMesh are deprecated
2019-06-07 02:19:17 +05:30
integer, public, protected, dimension(:), allocatable :: &
natural data structure
2021-05-22 20:51:07 +05:30
discretization_materialAt !ToDo: discretization_ID_material
easier to store positions than displacement
2019-06-06 21:58:10 +05:30
natural data structure
2021-05-22 20:51:07 +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_IPcoords, &
polishing
2020-01-27 01:45:21 +05:30
discretization_NodeCoords0, &
easier to store positions than displacement
2019-06-06 21:58:10 +05:30
discretization_NodeCoords
natural data structure
2021-05-22 20:51:07 +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
integer :: &
fixed typo
2020-03-10 02:50:33 +05:30
discretization_sharedNodesBegin
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, &
Resolve "naming for classes"
2023-01-19 22:07:45 +05:30
discretization_result, &
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
natural data structure
2021-05-22 20:51:07 +05:30
documentation was missing
2019-06-15 19:10:43 +05:30
!--------------------------------------------------------------------------------------------------
!> @brief stores the relevant information in globally accesible variables
!--------------------------------------------------------------------------------------------------
microstructure --> material
2020-10-01 16:13:05 +05:30
subroutine discretization_init(materialAt,&
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
IPcoords0,NodeCoords0,&
fixed typo
2020-03-10 02:50:33 +05:30
sharedNodesBegin)
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) :: &
microstructure --> material
2020-10-01 16:13:05 +05:30
materialAt
easier to store positions than displacement
2019-06-06 21:58:10 +05:30
real(pReal), dimension(:,:), intent(in) :: &
IPcoords0, &
NodeCoords0
need to store cell nodes, not elem nodes
2020-01-12 23:02:20 +05:30
integer, optional, intent(in) :: &
small polishing
2020-06-21 02:21:00 +05:30
sharedNodesBegin !< index of first node shared among different processes (MPI)
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
consistent indentation and line-spacings in reporting
2021-11-15 23:05:44 +05:30
print'(/,1x,a)', '<<<+- discretization init -+>>>'; flush(6)
discretization contains now all information to substitute mesh only plastic_nonlocal needs extra information
2019-06-07 00:24:19 +05:30
consistent naming Nxxxs => the number of xxx
2020-10-28 01:57:26 +05:30
discretization_Nelems = size(materialAt,1)
discretization_nIPs = size(IPcoords0,2)/discretization_Nelems
need to store fraction for proper homogenization
2022-02-07 18:55:03 +05:30
discretization_Ncells = discretization_Nelems*discretization_nIPs
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
natural data structure
2021-05-22 20:51:07 +05:30
discretization_materialAt = materialAt
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_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
natural data structure
2021-05-22 20:51:07 +05:30
Fortran style adjustments
2022-12-07 22:59:03 +05:30
if (present(sharedNodesBegin)) then
fixed typo
2020-03-10 02:50:33 +05:30
discretization_sharedNodesBegin = sharedNodesBegin
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
fixed typo
2020-03-10 02:50:33 +05:30
discretization_sharedNodesBegin = size(discretization_NodeCoords0,2)
consistent variants including space
2022-06-09 02:36:01 +05:30
end if
natural data structure
2021-05-22 20:51:07 +05:30
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
!--------------------------------------------------------------------------------------------------
Resolve "naming for classes"
2023-01-19 22:07:45 +05:30
subroutine discretization_result()
always use HDF5 output
2019-12-19 00:35:51 +05:30
easier to store positions than displacement
2019-06-06 21:58:10 +05:30
real(pReal), dimension(:,:), allocatable :: u
natural data structure
2021-05-22 20:51:07 +05:30
Resolve "naming for classes"
2023-01-19 22:07:45 +05:30
call result_closeGroup(result_addGroup('current/geometry'))
natural data structure
2021-05-22 20:51:07 +05:30
hardcoding '3' is an issue for 2d simulations
2021-06-12 00:09:44 +05:30
u = discretization_NodeCoords (:,:discretization_sharedNodesBegin) &
- discretization_NodeCoords0(:,:discretization_sharedNodesBegin)
Resolve "naming for classes"
2023-01-19 22:07:45 +05:30
call result_writeDataset(u,'current/geometry','u_n','displacements of the nodes','m')
natural data structure
2021-05-22 20:51:07 +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
Resolve "naming for classes"
2023-01-19 22:07:45 +05:30
call result_writeDataset(u,'current/geometry','u_p','displacements of the materialpoints (cell centers)','m')
always use HDF5 output
2019-12-19 00:35:51 +05:30
Resolve "naming for classes"
2023-01-19 22:07:45 +05:30
end subroutine discretization_result
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
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
natural data structure
2021-05-22 20:51:07 +05:30
easier to store positions than displacement
2019-06-06 21:58:10 +05:30
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
natural data structure
2021-05-22 20:51:07 +05:30
setter for current nodal coordinates
2019-09-28 02:37:34 +05:30
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