From e28116cb7989bbf447777d8a3407ad64dc7796a2 Mon Sep 17 00:00:00 2001
From: Juan ESCOBAR <juan.escobar@aero.obs-mip.fr>
Date: Thu, 16 Mar 2023 18:59:41 +0100
Subject: [PATCH] Juan 16/03/2023:ZSOLVER/discretisation.f90, Little OpenAcc
Typo detected with NVHPC, missing & <-> continuation line at end of acc
parallel
---
src/ZSOLVER/tensorproductmultigrid_Source/discretisation.f90 | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/ZSOLVER/tensorproductmultigrid_Source/discretisation.f90 b/src/ZSOLVER/tensorproductmultigrid_Source/discretisation.f90
index 8029d6c51..edbe5ebfc 100644
--- a/src/ZSOLVER/tensorproductmultigrid_Source/discretisation.f90
+++ b/src/ZSOLVER/tensorproductmultigrid_Source/discretisation.f90
@@ -2187,7 +2187,7 @@ end subroutine line_Jacobi_mnh
integer :: ii,ij,iz
! acc kernels present(pzSr_st,pzSu_out_st,pzb_st,pzSu_in_st)
- !$acc parallel present(pzSr_st,pzSu_out_st,pzb_st,pzSu_in_st)
+ !$acc parallel present(pzSr_st,pzSu_out_st,pzb_st,pzSu_in_st) &
!$acc & present(pzc_k,pzd_k,ptmp_k,pc_k)
!$mnh_do_concurrent ( ii=iib:iie , ij=ijb:ije )
iz=1
--
GitLab