Add debug print information

b24ac565 · Yen-Chen Chen · 011bc9fc · b24ac565
Verified Commit b24ac565 authored 1 year ago by Yen-Chen Chen
--- a/src/mo_fortran_tools.F90
+++ b/src/mo_fortran_tools.F90
@@ -2353,6 +2353,9 @@ CONTAINS
    LOGICAL, INTENT(IN) :: lacc
    LOGICAL, INTENT(IN) :: i_am_accel_node

+    PRINT *, "lacc = ", lacc
+    PRINT *, "i_am_accel_node = ", i_am_accel_node
+
 #ifdef _OPENACC
    IF (lacc .NEQV. i_am_accel_node) THEN
      CALL finish(routine_name, 'lacc /= i_am_accel_node')