Remove unused routine assert_lacc_equals_i_am_accel_node (!107)

## What is the new feature
`assert_lacc_equals_i_am_accel_node` is not used in ICON any more and should be removed completely.
## How is it implemented
`grep -r assert_lacc_equals_i_am_accel_node` in icon only found the definition and test in libfortran-support.

Co-authored-by: Yen-Chen Chen <yen-chen.chen@kit.edu>
Co-authored-by: Marek Jacob <MeraX@users.noreply.github.com>
Approved-by: Yen-Chen Chen <yen-chen.chen@tum.de>
Merged-by: Yen-Chen Chen <yen-chen.chen@tum.de>
Changelog: feature

src/fortran_support.F90

@@ -25,8 +25,7 @@ MODULE fortran_support
     & init_contiguous_dp, init_contiguous_sp, init_contiguous_i4, &
     & init_contiguous_l, minval_1d, minval_2d, resize_arr_c1d, DO_DEALLOCATE, &
     & DO_PTR_DEALLOCATE, insert_dimension, assert_acc_host_only, &
-    & assert_acc_device_only, assert_lacc_equals_i_am_accel_node, &
-    & set_acc_host_or_device
+    & assert_acc_device_only, set_acc_host_or_device
   USE mo_hash_table, ONLY: t_HashTable, hashTable_make, t_HashIterator
   USE mo_io_units, ONLY: filename_max, nerr, nlog, nnml, nstat, ngmt, nin, &
     & nout, nnml_output, find_next_free_unit
@@ -92,8 +91,7 @@ MODULE fortran_support
     & init_contiguous_dp, init_contiguous_sp, init_contiguous_i4, &
     & init_contiguous_l, minval_1d, minval_2d, resize_arr_c1d, DO_DEALLOCATE, &
     & DO_PTR_DEALLOCATE, insert_dimension, assert_acc_host_only, &
-    & assert_acc_device_only, assert_lacc_equals_i_am_accel_node, &
-    & set_acc_host_or_device
+    & assert_acc_device_only, set_acc_host_or_device
 
   ! From mo_hash_table
   PUBLIC :: t_HashTable, hashTable_make, t_HashIterator

src/mo_fortran_tools.F90

@@ -53,7 +53,6 @@ MODULE mo_fortran_tools
   PUBLIC :: insert_dimension
   PUBLIC :: assert_acc_host_only
   PUBLIC :: assert_acc_device_only
-  PUBLIC :: assert_lacc_equals_i_am_accel_node
   PUBLIC :: set_acc_host_or_device
 
   PRIVATE
@@ -2352,19 +2351,6 @@ CONTAINS
 #endif
   END SUBROUTINE assert_acc_device_only
 
-  SUBROUTINE assert_lacc_equals_i_am_accel_node(routine_name, lacc, i_am_accel_node)
-    CHARACTER(len=*), INTENT(IN) :: routine_name
-    LOGICAL, INTENT(IN) :: lacc
-    LOGICAL, INTENT(IN) :: i_am_accel_node
-
-#ifdef _OPENACC
-    IF (lacc .NEQV. i_am_accel_node) THEN
-      CALL finish(routine_name, 'lacc /= i_am_accel_node')
-    END IF
-#endif
-
-  END SUBROUTINE assert_lacc_equals_i_am_accel_node
-
   PURE SUBROUTINE set_acc_host_or_device(lzacc, lacc)
     LOGICAL, INTENT(OUT) :: lzacc
     LOGICAL, INTENT(IN), OPTIONAL :: lacc