diff --git a/science/adjoint/source/algorithm/lookup/adj_lookup_table_mod.x90 b/science/adjoint/source/algorithm/lookup/adj_lookup_table_mod.x90
index 81a16804c..3bf0584e5 100644
--- a/science/adjoint/source/algorithm/lookup/adj_lookup_table_mod.x90
+++ b/science/adjoint/source/algorithm/lookup/adj_lookup_table_mod.x90
@@ -47,7 +47,6 @@ module adj_lookup_table_mod
     procedure,  public :: get_nsets_max
     procedure,  public :: get_nindices
     procedure,  public :: get_ndata
-    procedure,  public :: finalise => adj_lookup_table_finaliser
   end type adj_lookup_table_type
 
   contains
@@ -231,18 +230,4 @@ module adj_lookup_table_mod
 
   end function get_ndata
 
-  !=============================================================================
-  !> @brief Destructor.
-  !> @param [in,out]     self           Lookup table
-  subroutine adj_lookup_table_finaliser( self )
-
-    implicit none
-
-    ! Arguments
-    class(adj_lookup_table_type), intent(inout) :: self
-
-    ! Pass
-
-  end subroutine adj_lookup_table_finaliser
-
 end module adj_lookup_table_mod
diff --git a/science/adjoint/source/algorithm/lookup/solver/adj_solver_lookup_cache_mod.x90 b/science/adjoint/source/algorithm/lookup/solver/adj_solver_lookup_cache_mod.x90
index e0aa2d9fa..c3541c72d 100644
--- a/science/adjoint/source/algorithm/lookup/solver/adj_solver_lookup_cache_mod.x90
+++ b/science/adjoint/source/algorithm/lookup/solver/adj_solver_lookup_cache_mod.x90
@@ -147,15 +147,7 @@ module adj_solver_lookup_cache_mod
     ! Arguments
     class(adj_solver_lookup_cache_type), intent(inout) :: self
 
-    ! Internal variables
-    integer(kind=i_def)                                :: level
-
-    if (self%is_initialised) then
-      do level = 1, self%multigrid_levels + 1
-        call self%lookup_apply_hho(level)%finalise()
-      end do
-      if (allocated(self%lookup_apply_hho)) deallocate(self%lookup_apply_hho)
-    end if
+    if (allocated(self%lookup_apply_hho)) deallocate(self%lookup_apply_hho)
 
   end subroutine adj_solver_lookup_cache_final
 
diff --git a/science/adjoint/source/algorithm/lookup/transport/adj_trans_lookup_cache_mod.x90 b/science/adjoint/source/algorithm/lookup/transport/adj_trans_lookup_cache_mod.x90
index 292671ca9..d797f7bde 100644
--- a/science/adjoint/source/algorithm/lookup/transport/adj_trans_lookup_cache_mod.x90
+++ b/science/adjoint/source/algorithm/lookup/transport/adj_trans_lookup_cache_mod.x90
@@ -394,21 +394,8 @@ module adj_trans_lookup_cache_mod
     ! Arguments
     class(adj_trans_lookup_cache_type), intent(inout) :: self
 
-    ! Internal variables
-    integer(kind=i_def)                               :: fspace_index
-
-    if (self%is_initialised) then
-      call self%lookup_poly1d%finalise()
-      do fspace_index = 1_i_def, self%n_fs_poly2d
-        call self%lookup_poly2d(fspace_index)%finalise()
-      end do
-      call self%lookup_poly_adv_upd%finalise()
-      do fspace_index = 1_i_def, self%n_fs_w3h_adv_upd
-        call self%lookup_w3h_adv_upd(fspace_index)%finalise()
-      end do
-      if (allocated(self%lookup_poly2d)) deallocate(self%lookup_poly2d)
-      if (allocated(self%lookup_w3h_adv_upd)) deallocate(self%lookup_w3h_adv_upd)
-    end if
+    if (allocated(self%lookup_poly2d)) deallocate(self%lookup_poly2d)
+    if (allocated(self%lookup_w3h_adv_upd)) deallocate(self%lookup_w3h_adv_upd)
 
   end subroutine adj_trans_lookup_cache_final