Philippe 10/09/2021: OpenACC: minor fix for MNH_PRINT_DEVICE_PROPERTIES

src/LIB/SURCOUCHE/src/mode_mnh_world.f90

@@ -2,7 +2,7 @@
 #undef MNH_OPENACC
 #endif
 
-!MNH_LIC Copyright 1994-2019 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 1994-2021 CNRS, Meteo-France and Universite Paul Sabatier
 !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence
 !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
 !MNH_LIC for details. version 1.
@@ -201,9 +201,9 @@ CONTAINS
         IDXVENDORDEV = INDEX(YVENDORDEV,CHAR(0)) - 1
         IDXDRIVERDEV = INDEX(YDRIVERDEV,CHAR(0)) - 1
         !
-        WRITE(*,'( "  #",I3,": memory: ",I6,"MiB" )') INUMDEV,IMEMDEV/(1024*1024)
+        WRITE(*,'( "  #",I3,": memory: ",I6,"MiB" )') JI,IMEMDEV/(1024*1024)
         WRITE(*,'( "  #",I3,": vendor: ",A,", name: ",A,", driver: ",A )') &
-             INUMDEV,YVENDORDEV(1:IDXVENDORDEV),YNAMEDEV(1:IDXNAMEDEV),YDRIVERDEV(1:IDXDRIVERDEV)
+             JI,YVENDORDEV(1:IDXVENDORDEV),YNAMEDEV(1:IDXNAMEDEV),YDRIVERDEV(1:IDXDRIVERDEV)
       END DO
 #endif
     END SUBROUTINE MNH_PRINT_DEVICE_PROPERTIES