From 3de3ebdd438934d64f467461538bb118af868c1c Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Sat, 15 Jun 2019 15:40:43 +0200 Subject: [PATCH] documentation was missing --- src/discretization.f90 | 14 +++++++++++--- 1 file changed, 11 insertions(+), 3 deletions(-) diff --git a/src/discretization.f90 b/src/discretization.f90 index a8f1c8fb7..30ae0a6b6 100644 --- a/src/discretization.f90 +++ b/src/discretization.f90 @@ -1,5 +1,6 @@ !-------------------------------------------------------------------------------------------------- !> @brief spatial discretization +!> @details serves as an abstraction layer between the different solvers and DAMASK !-------------------------------------------------------------------------------------------------- module discretization @@ -30,10 +31,12 @@ module discretization contains - +!-------------------------------------------------------------------------------------------------- +!> @brief stores the relevant information in globally accesible variables +!-------------------------------------------------------------------------------------------------- subroutine discretization_init(homogenizationAt,microstructureAt,IPcoords0,NodeCoords0) - integer, dimension(:), intent(in) :: & + integer, dimension(:), intent(in) :: & homogenizationAt, & microstructureAt real(pReal), dimension(:,:), intent(in) :: & @@ -57,6 +60,9 @@ subroutine discretization_init(homogenizationAt,microstructureAt,IPcoords0,NodeC end subroutine discretization_init +!-------------------------------------------------------------------------------------------------- +!> @brief write the displacements +!-------------------------------------------------------------------------------------------------- subroutine discretization_results #if defined(PETSc) || defined(DAMASK_HDF5) real(pReal), dimension(:,:), allocatable :: u @@ -70,6 +76,9 @@ subroutine discretization_results end subroutine discretization_results +!-------------------------------------------------------------------------------------------------- +!> @brief stores current IP coordinates +!-------------------------------------------------------------------------------------------------- subroutine discretization_setIPcoords(IPcoords) real(pReal), dimension(:,:), intent(in) :: IPcoords @@ -78,5 +87,4 @@ subroutine discretization_setIPcoords(IPcoords) end subroutine discretization_setIPcoords - end module discretization