From f4c7e4c259223de487918884c13e8ad81142eceb Mon Sep 17 00:00:00 2001
From: Juan ESCOBAR <juan.escobar@aero.obs-mip.fr>
Date: Fri, 26 Aug 2022 17:43:46 +0200
Subject: [PATCH] Juan 26/08/2022:ice_adjust.f90, bypass nvhpc/21.7 bug with
mnh_expand macro
---
src/MNH/ice_adjust.f90 | 2 ++
1 file changed, 2 insertions(+)
diff --git a/src/MNH/ice_adjust.f90 b/src/MNH/ice_adjust.f90
index dfdbb24f2..dc70a8b50 100644
--- a/src/MNH/ice_adjust.f90
+++ b/src/MNH/ice_adjust.f90
@@ -456,6 +456,7 @@ DO JITER =1,ITERMAX
! and the latent heat of sublimation Ls(T*) at t+1
!
!$acc kernels present_cr(ZLV,ZLS,ZCPH)
+!$mnh_expand_array(JI=1:IIU,JJ=1:IJU,JK=1:IKU)
ZLV(:,:,:) = XLVTT + ( XCPV - XCL ) * ( ZT(:,:,:) -XTT )
ZLS(:,:,:) = XLSTT + ( XCPV - XCI ) * ( ZT(:,:,:) -XTT )
!
@@ -480,6 +481,7 @@ DO JITER =1,ITERMAX
ZCPH(:,:,:) = XCPD + XCPV * ZRV(:,:,:) &
+ XCL * ZRC(:,:,:)
END IF
+!$mnh_end_expand_array()
!$acc end kernels
!
IF ( OSUBG_COND ) THEN
--
GitLab