From 07346292253fe20a97ae1246e2a36e00c4130e0b Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Tue, 13 Jun 2023 16:34:34 +0200
Subject: [PATCH] Philippe 13/06/2023: OpenACC: DEL_HALO2_ll: workaround
problem with CCE 15.0.1
---
src/MNH/get_halo.f90 | 9 ++-------
1 file changed, 2 insertions(+), 7 deletions(-)
diff --git a/src/MNH/get_halo.f90 b/src/MNH/get_halo.f90
index 91349f6dd..3a2b4a792 100644
--- a/src/MNH/get_halo.f90
+++ b/src/MNH/get_halo.f90
@@ -2744,7 +2744,6 @@ END SUBROUTINE GET_HALO2_D
!* 0.2 Declarations of local variables :
!
TYPE(HALO2LIST_ll), POINTER :: TZHALO2LIST
- REAL , POINTER , CONTIGUOUS , DIMENSION(:,:) :: ZWEST,ZEAST,ZSOUTH,ZNORTH
!
!-------------------------------------------------------------------------------
!
@@ -2754,12 +2753,8 @@ END SUBROUTINE GET_HALO2_D
!
DO WHILE(ASSOCIATED(TZHALO2LIST))
!
- ZWEST => TZHALO2LIST%HALO2%WEST
- ZEAST => TZHALO2LIST%HALO2%EAST
- ZSOUTH => TZHALO2LIST%HALO2%SOUTH
- ZNORTH => TZHALO2LIST%HALO2%NORTH
- !Remark: OpenACC data create done in INIT_HALO2_ll
- !$acc exit data delete(ZWEST,ZEAST,ZSOUTH,ZNORTH)
+ !Remark: OpenACC data create done in INIT_HALO2_ll
+ !$acc exit data delete( TZHALO2LIST%HALO2%WEST, TZHALO2LIST%HALO2%EAST, TZHALO2LIST%HALO2%SOUTH, TZHALO2LIST%HALO2%NORTH )
TPHALO2LIST => TZHALO2LIST%NEXT
DEALLOCATE(TZHALO2LIST%HALO2%WEST)
--
GitLab