Quentin 06/08/2024: consistency check for multi-level coupling use (NLEV_COUPLE>1)

src/MNH/read_exsegn.f90

@@ -327,7 +327,6 @@ USE MODD_CONDSAMP
 USE MODD_CONF
 USE MODD_CONF_n,          ONLY: CSTORAGE_TYPE
 USE MODD_CONFZ
-! USE MODD_DRAG_n
 USE MODD_DUST
 USE MODD_DYN
 USE MODD_DYN_n, ONLY : LHORELAX_SVLIMA, LHORELAX_SVFIRE
@@ -2988,7 +2987,22 @@ IF (.NOT. LNUMDIFTH .AND. LZDIFFU) THEN
   LNUMDIFTH=.TRUE.
 END IF
 !
-!*       4.8  Other
+!*       4.8 Consistency with multi-level coupling
+!
+IF (NLEV_COUPLE > 1) THEN
+  IF (.NOT. LDRAGBLDG .AND. .NOT. LFLUXBLDG .AND. .NOT. LDRAGURBVEG) THEN
+    WRITE(UNIT=ILUOUT,FMT=9002) KMI
+    WRITE(ILUOUT,FMT=*) 'YOU WANT TO USE THE MULTI-LEVEL SURF-ATM COUPLING'
+    WRITE(ILUOUT,FMT=*) '(NAM_COUPLING_LEVELSn NLEV_COUPLE = ',NLEV_COUPLE
+    WRITE(ILUOUT,FMT=*) 'BUT ANY DRAG FROM BUILDING OR TREES ARE ACTIVATED.'
+    WRITE(ILUOUT,FMT=*) 'YOU MUST TURN TRUE ONE OR MORE OF THE DRAGS FROM NAM_DRAGBLDGn :'
+    WRITE(ILUOUT,FMT=*) 'LDRAGBLDG, LFLUXBLDG OR LDRAGURBVEG'
+  CALL PRINT_MSG(NVERB_FATAL,'GEN','READ_EXSEG_n', &
+          'WITH NLEV_COUPLE>1, YOU MUST USE AT LEAST ONE OR MORE OF LDRAGBLDG, LFLUXBLDG OR LDRAGURBVEG')
+  END IF
+END IF
+!
+!*       4.9  Other
 !
 IF (XTNUDGING < 4.*XTSTEP) THEN
   XTNUDGING = 4.*XTSTEP