Free memory and free pointers
subroutine destroy_all()
!< Free memory and free pointers
implicit none
call dmsg(1, 'create_erase', 'destroy_all')
call destroy_time()
call destroy_transport()
call destroy_gradients()
call destroy_wall_dist()
call destroy_scheme()
call deallocate_misc()
call unlink_aliases_solver()
call destroy_state()
call destroy_geometry()
call destroy_grid()
call destroy_resnorm()
call destroy_sst_F1()
if(allocated(r_list)) deallocate(r_list)
if(allocated(w_list)) deallocate(w_list)
call dmsg(5, 'create_erase', 'destroy_all', 'Memory_freed')
end subroutine destroy_all