Skip to content
Snippets Groups Projects
Commit 3fb48933 authored by WAUTELET Philippe's avatar WAUTELET Philippe
Browse files

Philippe 14/01/2022: OpenACC: use ACC_DEVICE_KIND kind

parent cef67388
No related branches found
No related tags found
No related merge requests found
......@@ -2,15 +2,6 @@
#undef MNH_OPENACC
#endif
#ifdef MNH_COMPILER_NVHPC
#define MNH_ACC_SZ MNHINT32
#elif MNH_COMPILER_CCE
#define MNH_ACC_SZ MNHINT64
#else
#define MNH_ACC_SZ KIND(1)
#endif
!MNH_LIC Copyright 1994-2022 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
......@@ -221,8 +212,8 @@ CONTAINS
CONTAINS
SUBROUTINE MNH_PRINT_DEVICE_PROPERTIES(KDEVTYPE,HMSG)
!
INTEGER(KIND=MNH_ACC_SZ), INTENT(IN) :: KDEVTYPE
CHARACTER(LEN=*), INTENT(IN) :: HMSG
INTEGER(KIND=ACC_DEVICE_KIND), INTENT(IN) :: KDEVTYPE
CHARACTER(LEN=*), INTENT(IN) :: HMSG
!
INTEGER :: INUMDEV, IDXNAMEDEV, IDXVENDORDEV, IDXDRIVERDEV
INTEGER(KIND=MNHINT64) :: IMEMDEV
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment