Deallocate memeory from the gradient variables
subroutine destroy_memory()
!< Deallocate memeory from the gradient variables
implicit none
DebugCall("deallocate_memory")
call dealloc(gradqp_x)
call dealloc(gradqp_y)
call dealloc(gradqp_z)
end subroutine destroy_memory