Juan 23/10/2023:mode_openacc_set_device.f90, comment debug print

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