Call to different modules to deallocate memory
subroutine destroy_solver()
!< Call to different modules to deallocate memory
!--------------------------------------------------
implicit none
DebugCall('destroy_solver')
call destroy_time(control)
end subroutine destroy_solver