diff --git a/src/LIB/SURCOUCHE/src/mode_mnh_world.f90 b/src/LIB/SURCOUCHE/src/mode_mnh_world.f90 index a03ef1c48bdb9ed66d4280580667527bf1c2406c..56f1f3fdc46de2a1cc38ec699cab9812da272f43 100644 --- a/src/LIB/SURCOUCHE/src/mode_mnh_world.f90 +++ b/src/LIB/SURCOUCHE/src/mode_mnh_world.f90 @@ -188,6 +188,7 @@ CONTAINS INUMDEV = ACC_GET_NUM_DEVICES(KDEVTYPE) WRITE(*,*) " with ",INUMDEV," ",TRIM(HMSG)," (for rank 0)" ! +#if _OPENACC >= 201711 DO JI = 1,INUMDEV IMEMDEV = ACC_GET_PROPERTY(JI,KDEVTYPE,ACC_PROPERTY_MEMORY) CALL ACC_GET_PROPERTY_STRING(JI,KDEVTYPE,ACC_PROPERTY_NAME, YNAMEDEV) @@ -203,6 +204,7 @@ CONTAINS WRITE(*,'( " #",I3,": vendor: ",A,", name: ",A,", driver: ",A )') & INUMDEV,YVENDORDEV(1:IDXVENDORDEV),YNAMEDEV(1:IDXNAMEDEV),YDRIVERDEV(1:IDXDRIVERDEV) END DO +#endif END SUBROUTINE MNH_PRINT_DEVICE_PROPERTIES #endif END SUBROUTINE INIT_NMNH_COMM_WORLD diff --git a/src/Rules.LXpgi.mk b/src/Rules.LXpgi.mk index fb94ccde326b109c81203d117f4b67207b50fa23..aed227b9da0c2bfef2d950d29aabe884ec825c24 100644 --- a/src/Rules.LXpgi.mk +++ b/src/Rules.LXpgi.mk @@ -143,7 +143,7 @@ LDFLAGS = -Wl,-warn-once $(OPT) # # preprocessing flags # -CPP = cpp -P -traditional -Wcomment +CPP = cpp -P -traditional -Wcomment -D_OPENACC=201711 # CPPFLAGS_SURFEX = CPPFLAGS_SURCOUCHE +=