diff --git a/src/MNH/mode_openacc_set_device.f90 b/src/MNH/mode_openacc_set_device.f90 index 5a9585d7db1417d98ec3f8dea24940dd7e908d5e..d897963127e57f380625b25f59ae40aa561c3d4a 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