Philippe 17/01/2022: OpenACC: move Print_msg calls outside of kernels regions

src/MNH/advec_weno_k_2_aux.f90

-!MNH_LIC Copyright 2013-2019 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 2013-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.
@@ -351,7 +351,11 @@ IF (PRESENT(TPHALO2)) THEN
   TEAST => TPHALO2%EAST
 END IF
 #endif
-!
+
+#ifdef MNH_OPENACC
+  IF ( HLBCX(1) == 'CYCL' ) call Print_msg( NVERB_WARNING, 'GEN', 'ADVEC_WENO_K_2_UX', 'OpenACC: CYCL not yet tested' )
+#endif
+
 !$acc kernels
 PR(:,:,:) = 0.0
 !
@@ -375,10 +379,6 @@ SELECT CASE ( HLBCX(1) ) ! X direction LBC type: (1) for left side
 !*       1.1    CYCLIC CASE IN THE X DIRECTION:
 !
 CASE ('CYCL')          ! In that case one must have HLBCX(1) == HLBCX(2)
-#ifdef MNH_OPENACC
-  call Print_msg( NVERB_WARNING, 'GEN', 'ADVEC_WENO_K_2_UX', 'OpenACC: CYCL not yet tested' )
-#endif
-!
   IW=IIB
   IE=IIE
 !
@@ -734,7 +734,11 @@ IF (PRESENT(TPHALO2)) THEN
   TEAST => TPHALO2%EAST
 END IF
 #endif
-!
+
+#ifdef MNH_OPENACC
+  IF ( HLBCX(1) == 'CYCL' ) call Print_msg( NVERB_WARNING, 'GEN', 'ADVEC_WENO_K_2_MX', 'OpenACC: CYCL not yet tested' )
+#endif
+
 !$acc kernels
 PR(:,:,:) = 0.0
 !
@@ -758,10 +762,6 @@ SELECT CASE ( HLBCX(1) ) ! X direction LBC type: (1) for left side
 !*       1.1    CYCLIC CASE IN THE X DIRECTION:
 !
 CASE ('CYCL')          ! In that case one must have HLBCX(1) == HLBCX(2)
-#ifdef MNH_OPENACC
-  call Print_msg( NVERB_WARNING, 'GEN', 'ADVEC_WENO_K_2_MX', 'OpenACC: CYCL not yet tested' )
-#endif
-!
   IW=IIB
   IE=IIE
 !
@@ -1119,7 +1119,11 @@ IF (PRESENT(TPHALO2)) THEN
   TSOUTH => TPHALO2%SOUTH
 END IF
 #endif
-!
+
+#ifdef MNH_OPENACC
+  IF ( HLBCY(1) == 'CYCL' ) call Print_msg( NVERB_WARNING, 'GEN', 'ADVEC_WENO_K_2_MY', 'OpenACC: CYCL not yet tested' )
+#endif
+
 !$acc kernels
 PR(:,:,:) = 0.0
 !
@@ -1143,10 +1147,6 @@ SELECT CASE ( HLBCY(1) ) !
 !*       1.1    CYCLIC CASE IN THE Y DIRECTION:
 !
 CASE ('CYCL')          ! In that case one must have HLBCY(1) == HLBCY(2)
-#ifdef MNH_OPENACC
-  call Print_msg( NVERB_WARNING, 'GEN', 'ADVEC_WENO_K_2_MY', 'OpenACC: CYCL not yet tested' )
-#endif
-!
   IS=IJB
   IN=IJE
 !
@@ -1498,7 +1498,11 @@ IF (PRESENT(TPHALO2)) THEN
   TSOUTH => TPHALO2%SOUTH
 END IF
 #endif
-!
+
+#ifdef MNH_OPENACC
+  IF ( HLBCY(1) == 'CYCL' ) call Print_msg( NVERB_WARNING, 'GEN', 'ADVEC_WENO_K_2_VY', 'OpenACC: CYCL not yet tested' )
+#endif
+
 !$acc kernels
 PR(:,:,:) = 0.0
 !
@@ -1522,10 +1526,6 @@ SELECT CASE ( HLBCY(1) ) ! Y direction LBC type: (1) for left side
 !*       1.1    CYCLIC CASE IN THE Y DIRECTION:
 !
 CASE ('CYCL')          ! In that case one must have HLBCX(1) == HLBCX(2)
-#ifdef MNH_OPENACC
-  call Print_msg( NVERB_WARNING, 'GEN', 'ADVEC_WENO_K_2_VY', 'OpenACC: CYCL not yet tested' )
-#endif
-!
   IS=IJB
   IN=IJE
 !