Philippe 05/12/2023: OpenACC: fatal error if non OPEN boundary conditions

src/MNH/read_exsegn.f90

@@ -886,6 +886,10 @@ CALL TEST_NAM_VAR(ILUOUT,'CLBCX(1)',CLBCX(1),'CYCL','WALL','OPEN')
 CALL TEST_NAM_VAR(ILUOUT,'CLBCX(2)',CLBCX(2),'CYCL','WALL','OPEN')
 CALL TEST_NAM_VAR(ILUOUT,'CLBCY(1)',CLBCY(1),'CYCL','WALL','OPEN')
 CALL TEST_NAM_VAR(ILUOUT,'CLBCY(2)',CLBCY(2),'CYCL','WALL','OPEN')
+#ifdef MNH_OPENACC
+IF ( CLBCX(1) /= 'OPEN' .OR. CLBCX(2) /= 'OPEN' .OR. CLBCY(1) /= 'OPEN' .OR. CLBCY(2) /= 'OPEN' ) &
+  CALL PRINT_MSG( NVERB_FATAL, 'GEN', 'READ_EXSEG_n', 'non OPEN boundary conditions not yet implemented with OpenACC')
+#endif
 !
 CALL TEST_NAM_VAR(ILUOUT,'CTURBDIM',CTURBDIM,'1DIM','3DIM')
 CALL TEST_NAM_VAR(ILUOUT,'CTURBLEN',CTURBLEN,'DELT','BL89','RM17','DEAR','BLKR','ADAP')

src/MNH/read_pre_idea_namn.f90

-!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 2006-2023 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 version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
 !MNH_LIC for details. version 1.
 !-----------------------------------------------------------------
-!--------------- special set of characters for RCS information
-!-----------------------------------------------------------------
-! $Source$ $Revision$
-! MASDEV4_7 newsrc 2006/06/06 11:10:18
-!-----------------------------------------------------------------
 !####################################
 MODULE MODI_READ_PRE_IDEA_NAM_n
 !####################################
@@ -35,6 +30,9 @@ USE MODD_PARAM_n, ONLY: CSURF_n=>CSURF
 USE MODD_CH_AEROSOL, ONLY : LORILAM
 USE MODN_LUNIT_n           ! Namelist modules
 USE MODN_CONF_n
+#ifdef MNH_OPENACC
+USE MODE_MSG
+#endif
 USE MODE_POS
 !
 IMPLICIT NONE
@@ -90,6 +88,11 @@ IF (GFOUND) THEN
   CALL UPDATE_NAM_LUNITn
 END IF
 
+#ifdef MNH_OPENACC
+IF ( CLBCX(1) /= 'OPEN' .OR. CLBCX(2) /= 'OPEN' .OR. CLBCY(1) /= 'OPEN' .OR. CLBCY(2) /= 'OPEN' ) &
+  CALL PRINT_MSG( NVERB_FATAL, 'GEN', 'READ_PRE_IDEA_NAM_n', 'non OPEN boundary conditions not yet implemented with OpenACC')
+#endif
+
 !------------------------------------------------------------------------------
 CONTAINS