diff --git a/src/MNH/modd_parameters.f90 b/src/MNH/modd_parameters.f90 index c21c6e70955e1e1ecbe501225f6d3f83dd66a1ec..5ac0994cac9ea44352553c7cadf727bc0f4dde56 100644 --- a/src/MNH/modd_parameters.f90 +++ b/src/MNH/modd_parameters.f90 @@ -1,4 +1,4 @@ -!MNH_LIC Copyright 1994-2020 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2022 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. @@ -53,6 +53,7 @@ IMPLICIT NONE !JUAN CYCLK !INTEGER, PARAMETER :: JPHEXT = 3 ! Horizontal External points number INTEGER,SAVE :: JPHEXT = 1 ! Horizontal External points number +!$acc declare copyin( JPHEXT ) ! !JUAN CYCLK INTEGER, PARAMETER :: JPVEXT = 1 ! Vertical External points number diff --git a/src/MNH/read_desfmn.f90 b/src/MNH/read_desfmn.f90 index 2f781f8e7c208bd4bbc9d2bdc0461fa767033a95..e433fd43338fb5a08df554247b868a6d9cf7b8e2 100644 --- a/src/MNH/read_desfmn.f90 +++ b/src/MNH/read_desfmn.f90 @@ -1,4 +1,4 @@ -!MNH_LIC Copyright 1994-2021 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2022 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,6 +482,7 @@ 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 9db15fc163ad08c775913431fff5c97226d3839e..1172ca4db397feb564b42467eca30b5bae5a9213 100644 --- a/src/MNH/read_exsegn.f90 +++ b/src/MNH/read_exsegn.f90 @@ -1,4 +1,4 @@ -!MNH_LIC Copyright 1994-2021 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2022 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,6 +560,7 @@ 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)