Juan 25/03/2022:MNH/, undo JPHEXT on GPU , no trully needed

src/MNH/read_desfmn.f90

-!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)

src/MNH/read_exsegn.f90

-!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)

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 ?