From 0389f0a452aa2d8212daf0d3e15ecc45fa9c7dbb Mon Sep 17 00:00:00 2001
From: Juan Escobar <juan.escobar@aero.obs-mip.fr>
Date: Tue, 21 Sep 2021 12:01:26 +0200
Subject: [PATCH] Juan 21/09/2021:communication.f90, use pointer inplace of %st
---
src/ZSOLVER/tensorproductmultigrid_Source/communication.f90 | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/src/ZSOLVER/tensorproductmultigrid_Source/communication.f90 b/src/ZSOLVER/tensorproductmultigrid_Source/communication.f90
index 794ac3a6f..e2f8661ff 100644
--- a/src/ZSOLVER/tensorproductmultigrid_Source/communication.f90
+++ b/src/ZSOLVER/tensorproductmultigrid_Source/communication.f90
@@ -547,12 +547,14 @@ contains
end if
if (LUseT) then
local_sumt = 0.0_rl
+ za_st => a%st
+ zb_st => b%st
!$acc kernels loop collapse(3)
do iz=0,nz+1
do iy=a%icompy_min,a%icompy_max
do ix=a%icompx_min,a%icompx_max
local_sumt = local_sumt &
- + a%st(ix,iy,iz)*b%st(ix,iy,iz)
+ + za_st(ix,iy,iz)*zb_st(ix,iy,iz)
end do
end do
end do
--
GitLab