diff --git a/src/LIB/SURCOUCHE/src/mode_mppdb.f90 b/src/LIB/SURCOUCHE/src/mode_mppdb.f90
index 3fb6e15422f287e14ebde48979ed3b19b3d1e276..117b66edd2800d782bdf1ea80d33f39ca6d15ba4 100644
--- a/src/LIB/SURCOUCHE/src/mode_mppdb.f90
+++ b/src/LIB/SURCOUCHE/src/mode_mppdb.f90
@@ -1,4 +1,4 @@
-!MNH_LIC Copyright 2011-2019 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 2011-2022 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.
@@ -113,7 +113,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
 
 
@@ -188,14 +188,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' )