From 3d0bd69b7dd54b718b71aa0b6cf2743227900844 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Fri, 15 Sep 2023 13:40:02 +0200
Subject: [PATCH] Philippe 15/09/2023: bugfix: forgot to pass optional dummy
argument from Print_msg_multi_cmnhmsg to Print_msg_multi
---
src/LIB/SURCOUCHE/src/mode_msg.f90 | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/src/LIB/SURCOUCHE/src/mode_msg.f90 b/src/LIB/SURCOUCHE/src/mode_msg.f90
index 5dfbdc2ef..272868b6c 100644
--- a/src/LIB/SURCOUCHE/src/mode_msg.f90
+++ b/src/LIB/SURCOUCHE/src/mode_msg.f90
@@ -1,4 +1,4 @@
-!MNH_LIC Copyright 2017-2022 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 2017-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.
@@ -65,7 +65,7 @@ subroutine Print_msg_multi_cmnhmsg( kverb, hdomain, hsubr, olocal )
ilines = ilines - 1
end do
- call Print_msg_multi( kverb, hdomain, hsubr, cmnhmsg(1 : ilines) )
+ call Print_msg_multi( kverb, hdomain, hsubr, cmnhmsg(1 : ilines), olocal )
!Empty the message buffer
!This is necessary especially if the next call contain a shorter message
--
GitLab