diff --git a/src/discretization.f90 b/src/discretization.f90 index 81413e9b8..4e60ed54a 100644 --- a/src/discretization.f90 +++ b/src/discretization.f90 @@ -30,7 +30,8 @@ module discretization public :: & discretization_init, & discretization_results, & - discretization_setIPcoords + discretization_setIPcoords, & + discretization_setNodeCoords contains @@ -92,4 +93,17 @@ subroutine discretization_setIPcoords(IPcoords) end subroutine discretization_setIPcoords + +!-------------------------------------------------------------------------------------------------- +!> @brief stores current IP coordinates +!-------------------------------------------------------------------------------------------------- +subroutine discretization_setNodeCoords(NodeCoords) + + real(pReal), dimension(:,:), intent(in) :: NodeCoords + + discretization_NodeCoords = NodeCoords + +end subroutine discretization_setNodeCoords + + end module discretization