Destroy the state module. This subroutine destroys the state module which includes unlinking the aliases for the state components and deallocating the memory held by the state variables
subroutine destroy_state()
!< Destroy the state module.
!< This subroutine destroys the state module which includes
!< unlinking the aliases for the state components and
!< deallocating the memory held by the state variables
!-----------------------------------------------------------
implicit none
DebugCall("destroy_state")
call unlink_aliases()
call deallocate_memory()
end subroutine destroy_state