From 1fc5db53163ce38bf7db2d7e3e0ead1eab8c85c5 Mon Sep 17 00:00:00 2001
From: Juan Escobar <escj@aero.obs-mip.fr>
Date: Wed, 28 Sep 2022 20:15:46 +0200
Subject: [PATCH] Juan 28/09/2022:*/turb.f90, Bug Nvhpc21.X seg-fault, array
syntax -> mnh_expand
---
src/MNH/turb.f90 | 4 +++-
src/ZSOLVER/turb.f90 | 4 +++-
2 files changed, 6 insertions(+), 2 deletions(-)
diff --git a/src/MNH/turb.f90 b/src/MNH/turb.f90
index f26a7b23e..6c9b64d17 100644
--- a/src/MNH/turb.f90
+++ b/src/MNH/turb.f90
@@ -2048,8 +2048,10 @@ ELSE
!* 3.1 BL89 mixing length
! ------------------
CASE ('BL89','RM17')
-!$acc kernels present(ZSHEAR)
+!$acc kernels present_cr(ZSHEAR)
+!$mnh_expand_array(JI=1:JIU,JJ=1:JJU,JK=1:JKU)
ZSHEAR(:, :, : ) = 0.
+!$mnh_end_expand_array()
!$acc end kernels
CALL BL89(KKA,KKU,KKL,PZZ,PDZZ,PTHVREF,ZTHLM,KRR,ZRM,PTKET,ZSHEAR,ZLM_CLOUD)
!
diff --git a/src/ZSOLVER/turb.f90 b/src/ZSOLVER/turb.f90
index c6b85c5d1..a7d1b3cc7 100644
--- a/src/ZSOLVER/turb.f90
+++ b/src/ZSOLVER/turb.f90
@@ -2060,8 +2060,10 @@ ELSE
!* 3.1 BL89 mixing length
! ------------------
CASE ('BL89','RM17')
-!$acc kernels present(ZSHEAR)
+!$acc kernels present_cr(ZSHEAR)
+!$mnh_expand_array(JI=1:JIU,JJ=1:JJU,JK=1:JKU)
ZSHEAR(:, :, : ) = 0.
+!$mnh_end_expand_array()
!$acc end kernels
CALL BL89(KKA,KKU,KKL,PZZ,PDZZ,PTHVREF,ZTHLM,KRR,ZRM,PTKET,ZSHEAR,ZLM_CLOUD)
!
--
GitLab