From f8a79e2736ef29bc8c69b9076dd6f889e1641549 Mon Sep 17 00:00:00 2001
From: JUan ESCOBAR <juan.escobar@aero.obs-mip.fr>
Date: Fri, 16 Oct 2020 15:14:30 +0200
Subject: [PATCH] Juan 16/10/2020: tridiag_thermo/tke/wind.f90 , OpenACC opti
-> add loop seq + loop gang, vector collapse(2)
---
src/MNH/tridiag_thermo.f90 | 2 ++
src/MNH/tridiag_tke.f90 | 2 ++
src/MNH/tridiag_wind.f90 | 2 ++
3 files changed, 6 insertions(+)
diff --git a/src/MNH/tridiag_thermo.f90 b/src/MNH/tridiag_thermo.f90
index 8d3954f66..eefe1b37a 100644
--- a/src/MNH/tridiag_thermo.f90
+++ b/src/MNH/tridiag_thermo.f90
@@ -398,7 +398,9 @@ END DO !CONCURRENT
!* 3.3 going down
! ----------
!
+!$acc loop seq
DO JK = IKE-KKL,IKB,-1*KKL
+ !$acc loop gang, vector collapse(2)
DO CONCURRENT ( JI=1:JIU,JJ=1:JJU)
PVARP(JI,JJ,JK) = PVARP(JI,JJ,JK) - ZGAM(JI,JJ,JK+KKL) * PVARP(JI,JJ,JK+KKL)
END DO !CONCURRENT
diff --git a/src/MNH/tridiag_tke.f90 b/src/MNH/tridiag_tke.f90
index b4743a212..135d4c319 100644
--- a/src/MNH/tridiag_tke.f90
+++ b/src/MNH/tridiag_tke.f90
@@ -291,7 +291,9 @@ IF ( PIMPL > 1.E-10 ) THEN
!
! going down
!
+ !$acc loop seq
DO JK = IKE-KKL,IKB,-1*KKL
+ !$acc loop gang, vector collapse(2)
DO CONCURRENT ( JI=1:JIU,JJ=1:JJU)
PVARP(JI,JJ,JK) = PVARP(JI,JJ,JK) - ZGAM(JI,JJ,JK+KKL) * PVARP(JI,JJ,JK+KKL)
END DO !CONCURRENT
diff --git a/src/MNH/tridiag_wind.f90 b/src/MNH/tridiag_wind.f90
index bc7697d9d..0152538c2 100644
--- a/src/MNH/tridiag_wind.f90
+++ b/src/MNH/tridiag_wind.f90
@@ -300,7 +300,9 @@ IF ( PIMPL > 1.E-10 ) THEN
!
! going down
!
+ !$acc loop seq
DO JK = IKE-KKL,IKB,-1*KKL
+ !$acc loop gang, vector collapse(2)
DO CONCURRENT ( JI=1:JIU,JJ=1:JJU)
PVARP(JI,JJ,JK) = PVARP(JI,JJ,JK) - ZGAM(JI,JJ,JK+KKL) * PVARP(JI,JJ,JK+KKL)
END DO !CONCURRENT
--
GitLab