From 278aebcbb22084666ecf4742b97aa35f821ce72d Mon Sep 17 00:00:00 2001
From: Juan Escobar <escj@aero.obs-mip.fr>
Date: Fri, 13 Aug 2021 16:23:09 +0200
Subject: [PATCH] Juan 13/08/2021:communication.f90, distribute, BUG in do
conccurent zb_st size a_n => b_n
---
src/ZSOLVER/tensorproductmultigrid_Source/communication.f90 | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/src/ZSOLVER/tensorproductmultigrid_Source/communication.f90 b/src/ZSOLVER/tensorproductmultigrid_Source/communication.f90
index 85ee35626..3d33cf8b8 100644
--- a/src/ZSOLVER/tensorproductmultigrid_Source/communication.f90
+++ b/src/ZSOLVER/tensorproductmultigrid_Source/communication.f90
@@ -1918,7 +1918,7 @@ contains
MPI_DOUBLE_PRECISION,source_rank,recv_tag,MPI_COMM_HORIZ,stat,ierr)
!$acc end host_data
!$acc parallel loop collapse(3)
- do concurrent (ii=1:a_n,ij=1:a_n,ik=1:nz+2)
+ do concurrent (ii=1:b_n,ij=1:b_n,ik=1:nz+2)
zb_st(ii,ij,ik-1) = ztab_interiorT_ne_m_haloTout(ii,ij,ik)
end do
#else
@@ -1950,7 +1950,7 @@ contains
MPI_DOUBLE_PRECISION,source_rank,recv_tag,MPI_COMM_HORIZ,stat,ierr)
!$acc end host_data
!$acc parallel loop collapse(3)
- do concurrent (ii=1:a_n,ij=1:a_n,ik=1:nz+2)
+ do concurrent (ii=1:b_n,ij=1:b_n,ik=1:nz+2)
zb_st(ii,ij,ik-1) = ztab_interiorT_sw_m_haloTout(ii,ij,ik)
end do
#else
@@ -1982,7 +1982,7 @@ contains
MPI_DOUBLE_PRECISION,source_rank,recv_tag,MPI_COMM_HORIZ,stat,ierr)
!$acc end host_data
!$acc parallel loop collapse(3)
- do concurrent (ii=1:a_n,ij=1:a_n,ik=1:nz+2)
+ do concurrent (ii=1:b_n,ij=1:b_n,ik=1:nz+2)
zb_st(ii,ij,ik-1) = ztab_interiorT_se_m_haloTout(ii,ij,ik)
end do
#else
--
GitLab