diff --git a/src/fortran_support.F90 b/src/fortran_support.F90
index 83f6c12eff592c3c639568cfa5e0d9900cfa12d6..932bd0af4d11ba16e4c86aa66e51fb01c15a59bc 100644
--- a/src/fortran_support.F90
+++ b/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
diff --git a/src/mo_fortran_tools.F90 b/src/mo_fortran_tools.F90
index bc16f01f363efbd593907d88053dd532ea7b68d4..708296f6be9f2258417571dd56489527e9b162bf 100644
--- a/src/mo_fortran_tools.F90
+++ b/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