From 117fdcf8152e69267be93dd0cecd22d9ed8899fb Mon Sep 17 00:00:00 2001
From: Juan ESCOBAR <juan.escobar@aero.obs-mip.fr>
Date: Fri, 25 Mar 2022 18:10:42 +0100
Subject: [PATCH] Juan 25/03/2022:MNH/, undo JPHEXT on GPU , no trully needed

---
 src/MNH/read_desfmn.f90   |  3 +--
 src/MNH/read_exsegn.f90   |  3 +--
 src/MNH/shuman_device.f90 | 10 +++++-----
 3 files changed, 7 insertions(+), 9 deletions(-)

diff --git a/src/MNH/read_desfmn.f90 b/src/MNH/read_desfmn.f90
index e433fd433..2f781f8e7 100644
--- a/src/MNH/read_desfmn.f90
+++ b/src/MNH/read_desfmn.f90
@@ -1,4 +1,4 @@
-!MNH_LIC Copyright 1994-2022 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 1994-2021 CNRS, Meteo-France and Universite Paul Sabatier
 !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence
 !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
 !MNH_LIC for details. version 1.
@@ -482,7 +482,6 @@ END IF
 IF (KMI == 1) THEN
   CALL POSNAM(ILUDES,'NAM_CONF',GFOUND)
   IF (GFOUND) READ(UNIT=ILUDES,NML=NAM_CONF)
-!$acc update device( JPHEXT )
   CALL POSNAM(ILUDES,'NAM_DYN',GFOUND)
   IF (GFOUND) READ(UNIT=ILUDES,NML=NAM_DYN)
   CALL POSNAM(ILUDES,'NAM_NESTING',GFOUND)
diff --git a/src/MNH/read_exsegn.f90 b/src/MNH/read_exsegn.f90
index 1172ca4db..9db15fc16 100644
--- a/src/MNH/read_exsegn.f90
+++ b/src/MNH/read_exsegn.f90
@@ -1,4 +1,4 @@
-!MNH_LIC Copyright 1994-2022 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 1994-2021 CNRS, Meteo-France and Universite Paul Sabatier
 !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence
 !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
 !MNH_LIC for details. version 1.
@@ -560,7 +560,6 @@ IF (KMI == 1) THEN
   WRITE(UNIT=ILUOUT,FMT="(' namelists common to all the models ')")
   CALL POSNAM(ILUSEG,'NAM_CONF',GFOUND,ILUOUT)
   IF (GFOUND) READ(UNIT=ILUSEG,NML=NAM_CONF)
-!$acc update device( JPHEXT )
   CALL POSNAM(ILUSEG,'NAM_CONFZ',GFOUND,ILUOUT)
   IF (GFOUND) READ(UNIT=ILUSEG,NML=NAM_CONFZ)
   CALL POSNAM(ILUSEG,'NAM_DYN',GFOUND,ILUOUT)
diff --git a/src/MNH/shuman_device.f90 b/src/MNH/shuman_device.f90
index f9158420a..d33acba5d 100644
--- a/src/MNH/shuman_device.f90
+++ b/src/MNH/shuman_device.f90
@@ -413,7 +413,7 @@ IIU = SIZE(PA,1)
 IJU = SIZE(PA,2)
 IKU = SIZE(PA,3)
 !
-!$acc kernels present(PA,PMYF,JPHEXT)
+!$acc kernels present(PA,PMYF)
 #ifndef _OPT_LINEARIZED_LOOPS
 !$acc loop independent collapse(3)
 DO JK=1,IKU
@@ -531,7 +531,7 @@ IJU = SIZE(PA,2)
 IKU = SIZE(PA,3)
 !
 #ifndef _OPT_LINEARIZED_LOOPS
-!$acc kernels present(PA,PMYM,JPHEXT)
+!$acc kernels present(PA,PMYM)
 !$acc loop independent collapse(3)
 DO JK=1,IKU
   DO JJ=2,IJU !TODO: remplacer le 1+1 par 1+JPHEXT ?
@@ -545,7 +545,7 @@ JIJKOR  = 1 + IIU
 JIJKEND = IIU*IJU*IKU
 !CDIR NODEP
 !OCL NOVREC
-!$acc kernels present(PA,PMYM,JPHEXT)
+!$acc kernels present(PA,PMYM)
 DO JIJK=JIJKOR , JIJKEND
    PMYM(JIJK,1,1) = 0.5*( PA(JIJK,1,1)+PA(JIJK-IIU,1,1) )
 END DO
@@ -1118,7 +1118,7 @@ IIU = SIZE(PA,1)
 IJU = SIZE(PA,2)
 IKU = SIZE(PA,3)
 !
-!$acc kernels present(PA,PDYF,JPHEXT)
+!$acc kernels present(PA,PDYF)
 #ifndef _OPT_LINEARIZED_LOOPS
 !$acc loop independent collapse(3)
 DO JK=1,IKU
@@ -1233,7 +1233,7 @@ IJU=SIZE(PA,2)
 IKU=SIZE(PA,3)
 !
 #ifndef _OPT_LINEARIZED_LOOPS
-!$acc kernels present(PA,PDYM,JPHEXT)
+!$acc kernels present(PA,PDYM)
 !$acc loop independent collapse(3)
 DO JK=1,IKU
   DO JJ=2,IJU !TODO: remplacer le 2 par JPHEXT+1 ?
-- 
GitLab