From eac9ea8989b19ea5446eb54caa1ff76e51192144 Mon Sep 17 00:00:00 2001
From: Juan ESCOBAR <juan.escobar@aero.obs-mip.fr>
Date: Mon, 23 Oct 2023 11:51:54 +0200
Subject: [PATCH] Juan 23/10/2023:mode_openacc_set_device.f90, comment debug
print
---
src/MNH/mode_openacc_set_device.f90 | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/src/MNH/mode_openacc_set_device.f90 b/src/MNH/mode_openacc_set_device.f90
index 5a9585d7d..d89796312 100644
--- a/src/MNH/mode_openacc_set_device.f90
+++ b/src/MNH/mode_openacc_set_device.f90
@@ -36,7 +36,7 @@ CONTAINS
if ( mnh_idevice_type_at_init .EQ. -1000 ) then
mnh_idevice_type_at_init = acc_get_device_type()
mnh_idevice_type_current = mnh_idevice_type_at_init
- print*,'mnh_idevice_type_at_init=',mnh_idevice_type_at_init
+ !print*,'mnh_idevice_type_at_init=',mnh_idevice_type_at_init
end if
#endif
@@ -56,7 +56,7 @@ CONTAINS
idevice_type = acc_get_device_type()
mnh_idevice_type_current = idevice_type
- print*,'idevice_type=',idevice_type
+ !print*,'idevice_type=',idevice_type
#endif
END SUBROUTINE MNH_OPENACC_GET_DEVICE
--
GitLab