setter for current nodal coordinates

This commit is contained in:
Martin Diehl 2019-09-27 14:07:34 -07:00
parent 2bb6f74de9
commit 114f21e8f7
1 changed files with 15 additions and 1 deletions

View File

@ -30,7 +30,8 @@ module discretization
public :: & public :: &
discretization_init, & discretization_init, &
discretization_results, & discretization_results, &
discretization_setIPcoords discretization_setIPcoords, &
discretization_setNodeCoords
contains contains
@ -92,4 +93,17 @@ subroutine discretization_setIPcoords(IPcoords)
end subroutine discretization_setIPcoords 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 end module discretization