Philippe 19/06/2023: mode_mppdb: fix character length

src/LIB/SURCOUCHE/src/mode_mppdb.f90

-!MNH_LIC Copyright 2011-2022 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 2011-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 for details. version 1.
@@ -134,7 +134,7 @@ MODULE MODE_MPPDB
     INTEGER                         :: INFO_SPAWN
     INTEGER                         :: RANK_FATHER = 0
     INTEGER,ALLOCATABLE             :: info_error(:)
-    CHARACTER(LEN=40)               :: chaine
+    CHARACTER(LEN=chlg)             :: chaine
     LOGICAL                         :: isset
 
 
@@ -209,14 +209,14 @@ MODULE MODE_MPPDB
           !
           CALL MPI_INFO_CREATE (INFO_SPAWN , ierr)
           !CALL MPI_INFO_SET    (INFO_SPAWN , "host", MPPDB_HOST , ierr)
-          !CALL MPI_INFO_GET    (INFO_SPAWN , "host", 40, chaine, isset ,ierr)
+          !CALL MPI_INFO_GET    (INFO_SPAWN , "host", chlg, chaine, isset ,ierr)
           !IF (MPPDB_DEBUG) PRINT*,"MPPDB_INIT:: FATHER ::INFO_SPAWN , host=",isset,chaine
           !IF (ierr.NE.0) STOP 'MPPDB_INIT :: PB MPI_INFO_SET "host" '
           !
           ! working directory
           !
           CALL MPI_INFO_SET    (INFO_SPAWN , "wdir", MPPDB_WDIR , ierr)
-          CALL MPI_INFO_GET    (INFO_SPAWN , "wdir", 40, chaine, isset ,ierr)
+          CALL MPI_INFO_GET    (INFO_SPAWN , "wdir", chlg, chaine, isset ,ierr)
           IF (MPPDB_DEBUG) PRINT*,"MPPDB_INIT:: FATHER :: INFO_SPAWN , wdir=",isset,chaine
           if (ierr /= 0 ) call Print_msg( NVERB_FATAL, 'GEN', 'MPPDB_INIT', 'MPI_INFO_SET failed' )