From 5d77620385b9b5e0ddfcbe22b60e04840a177b2d Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Mon, 3 Apr 2023 14:28:54 +0200
Subject: [PATCH] Philippe 03/04/2023: fix missing mg_finalise (forgotten
 commit)

---
 src/MNH/finalize_mnh.f90 | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/src/MNH/finalize_mnh.f90 b/src/MNH/finalize_mnh.f90
index 14022cdae..ea0382a7b 100644
--- a/src/MNH/finalize_mnh.f90
+++ b/src/MNH/finalize_mnh.f90
@@ -1,4 +1,4 @@
-!MNH_LIC Copyright 2021-2021 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 2021-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.
@@ -32,6 +32,9 @@ SUBROUTINE FINALIZE_MNH
 #endif
   USE MODE_MPPDB,            only: MPPDB_BARRIER
   USE MODE_MSG,              only: MSG_STATS
+#ifdef MNH_MGSOLVER
+  USE multigrid,             only: mg_finalise
+#endif
 
 #ifdef CPLOASIS
   USE MODI_SFX_OASIS_END
@@ -48,6 +51,9 @@ SUBROUTINE FINALIZE_MNH
 #ifdef MNH_OPENACC
   CALL PRINT_FLATPOOL_STATS()
 #endif
+#ifdef MNH_MGSOLVER
+  call mg_finalise()
+#endif
 
   !Print the number of printed messages via Print_msg
   CALL MSG_STATS()
-- 
GitLab