From 972a51e86663ce3bc19a831f0a086519b387e1d8 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Wed, 18 May 2022 09:50:10 +0200
Subject: [PATCH] Philippe 18/05/2022: mppdb: samll fix: correct length of some
character strings
---
src/LIB/SURCOUCHE/src/mode_mppdb.f90 | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/src/LIB/SURCOUCHE/src/mode_mppdb.f90 b/src/LIB/SURCOUCHE/src/mode_mppdb.f90
index 3fb6e1542..117b66edd 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' )
--
GitLab