diff --git a/src/MNH/read_desfmn.f90 b/src/MNH/read_desfmn.f90
index e433fd43338fb5a08df554247b868a6d9cf7b8e2..2f781f8e7c208bd4bbc9d2bdc0461fa767033a95 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 1172ca4db397feb564b42467eca30b5bae5a9213..9db15fc163ad08c775913431fff5c97226d3839e 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 f9158420a88803f8a1104c72e351b08c82d15517..d33acba5d2596bb0f7a04875abb4689c0906464d 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 ?