diff --git a/src/MNH/read_exsegn.f90 b/src/MNH/read_exsegn.f90 index 3e6d5e4ed41de67691d14be7d5462a18b50eec8e..1b451d507825651e39c8663364458fcf1b2ac98b 100644 --- a/src/MNH/read_exsegn.f90 +++ b/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') diff --git a/src/MNH/read_pre_idea_namn.f90 b/src/MNH/read_pre_idea_namn.f90 index 7dcd303219b515d6050d7dd1bc03c781592d60ea..b3912bcfb6938a39178c6adfecc98d44e2cbc6b7 100644 --- a/src/MNH/read_pre_idea_namn.f90 +++ b/src/MNH/read_pre_idea_namn.f90 @@ -1,13 +1,8 @@ -!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