Philippe 19/09/2024: Merge branch 'MNH-57-branch' into MNH-57X-dev-IO

src/MNH/ini_radiations_agg.f90

@@ -77,7 +77,7 @@ USE PARKIND1,         ONLY: JPRB
 !
 USE MODD_CST
 USE MODD_LUNIT_n,     ONLY : TLUOUT
-USE MODD_CONF,        ONLY : NHALO
+USE MODD_CONF,        ONLY : NHALO, CPROGRAM
 USE MODD_LBC_n,       ONLY : CLBCX, CLBCY
 USE MODD_PARAMETERS,  ONLY : JPHEXT
 !
@@ -136,15 +136,17 @@ IMI = GET_CURRENT_MODEL_INDEX()
 
 ILUOUT = TLUOUT%NLU
 !
-IF (KRAD_AGG > NHALO+1) THEN
-  WRITE(ILUOUT,*) ' +------------------------------------------------------+'
-  WRITE(ILUOUT,*) ' [ Error in Radiation columns aggregation               |'
-  WRITE(ILUOUT,*) ' [ NRAD_AGG = ',KRAD_AGG,'                                       |'
-  WRITE(ILUOUT,*) ' [ NHALO    = ',NHALO,'                                       |'
-  WRITE(ILUOUT,*) ' [ NRAD_AGG must be smaller than or equal to NHALO+1    |'
-  WRITE(ILUOUT,*) ' +------------------------------------------------------+'
-  !
-  CALL PRINT_MSG( NVERB_FATAL, 'GEN', 'INI_RADIATIONS_AGG','Incoherence between NRAD_AGG and NHALO' )
+IF (CPROGRAM=='MESONH') THEN
+  IF (KRAD_AGG > NHALO+1) THEN
+    WRITE(ILUOUT,*) ' +------------------------------------------------------+'
+    WRITE(ILUOUT,*) ' [ Error in Radiation columns aggregation               |'
+    WRITE(ILUOUT,*) ' [ NRAD_AGG = ',KRAD_AGG,'                                       |'
+    WRITE(ILUOUT,*) ' [ NHALO    = ',NHALO,'                                       |'
+    WRITE(ILUOUT,*) ' [ NRAD_AGG must be smaller than or equal to NHALO+1    |'
+    WRITE(ILUOUT,*) ' +------------------------------------------------------+'
+    !
+    CALL PRINT_MSG( NVERB_FATAL, 'GEN', 'INI_RADIATIONS_AGG','Incoherence between NRAD_AGG and NHALO' )
+  END IF
 END IF
 !
 !*       2.    COMPUTE DIMENSIONS OF ARRAYS AND OTHER INDICES