From 50503c1140f33f9d1553a4b73c0967dbc6989625 Mon Sep 17 00:00:00 2001
From: Juan ESCOBAR <juan.escobar@aero.obs-mip.fr>
Date: Thu, 15 Jun 2023 19:10:26 +0200
Subject: [PATCH] Juan 15/06/2023:ZSOLVER/get_halo.f90, For gfortran+openacc,
allocatable array not allowed in Gpu direct/host_data use_device() =>
TEMPORARY deactivate #define MNH_GPUDIRECT
---
src/ZSOLVER/get_halo.f90 | 18 +++++++++---------
1 file changed, 9 insertions(+), 9 deletions(-)
diff --git a/src/ZSOLVER/get_halo.f90 b/src/ZSOLVER/get_halo.f90
index e29e295d7..44245ae69 100644
--- a/src/ZSOLVER/get_halo.f90
+++ b/src/ZSOLVER/get_halo.f90
@@ -430,7 +430,7 @@ END MODULE MODD_HALO_D
! #########################
SUBROUTINE GET_HALO_D(PSRC,HDIR,HNAME)
! #########################
-#define MNH_GPUDIRECT
+!define MNH_GPUDIRECT
!
USE MODD_HALO_D
@@ -473,7 +473,7 @@ SUBROUTINE GET_HALO_START_D(PSRC,KNB_REQ,KREQ,&
KIIB,KIIE,KIJB,KIJE,KIIU,KIJU,KIKU,KIHALO_1,&
HDIR)
! #########################
-#define MNH_GPUDIRECT
+!define MNH_GPUDIRECT
!
USE MODD_HALO_D
@@ -706,7 +706,7 @@ SUBROUTINE GET_HALO_STOP_D(PSRC,KNB_REQ,KREQ,&
KIIB,KIIE,KIJB,KIJE,KIIU,KIJU,KIKU,&
HDIR)
! #########################
-#define MNH_GPUDIRECT
+!define MNH_GPUDIRECT
!
USE MODD_HALO_D
@@ -826,7 +826,7 @@ END SUBROUTINE GET_HALO_STOP_D
! ########################################
SUBROUTINE GET_HALO_DD(PSRC, HDIR, HNAME)
! ########################################
-#define MNH_GPUDIRECT
+!define MNH_GPUDIRECT
!
USE MODD_HALO_D
USE MODE_ll
@@ -1110,7 +1110,7 @@ END SUBROUTINE GET_HALO_DD
! ########################################
SUBROUTINE GET_2D_HALO_DD(PSRC, HDIR, HNAME)
! ########################################
-#define MNH_GPUDIRECT
+!define MNH_GPUDIRECT
!
USE MODD_HALO_D
USE MODE_ll
@@ -1395,7 +1395,7 @@ END SUBROUTINE GET_2D_HALO_DD
! ########################################
SUBROUTINE GET_HALO_DDC(PSRC, HDIR, HNAME)
! ########################################
-#define MNH_GPUDIRECT
+!define MNH_GPUDIRECT
!
USE MODD_HALO_D
USE MODE_ll
@@ -1710,7 +1710,7 @@ END SUBROUTINE GET_HALO_DDC
! ########################################
SUBROUTINE GET_2D_HALO_DDC(PSRC, HDIR, HNAME)
! ########################################
-#define MNH_GPUDIRECT
+!define MNH_GPUDIRECT
!
USE MODD_HALO_D
USE MODE_ll
@@ -2025,7 +2025,7 @@ END SUBROUTINE GET_2D_HALO_DDC
! ########################################
SUBROUTINE GET_HALO2_DD(PSRC, TP_PSRC_HALO2_ll, HNAME)
! ########################################
-#define MNH_GPUDIRECT
+!define MNH_GPUDIRECT
!
USE MODD_HALO_D
USE MODE_ll
@@ -2304,7 +2304,7 @@ END SUBROUTINE GET_HALO2_DD
! ########################################
SUBROUTINE GET_HALO2_DF(PSRC, TP_PSRC_HALO2F_ll, HNAME)
! ########################################
-#define MNH_GPUDIRECT
+!define MNH_GPUDIRECT
!
USE MODD_HALO_D
USE MODD_ARGSLIST_ll, ONLY : HALO2LIST_ll
--
GitLab