From 69e665677deef046f838dc82548bf954ebdc6e4d Mon Sep 17 00:00:00 2001
From: cguzman95 <52777396+cguzman95@users.noreply.github.com>
Date: Fri, 24 Apr 2020 14:26:49 +0200
Subject: [PATCH] Fix crash with MPI

https://earth.bsc.es/gitlab/es/auto-monarch/issues/127#note_78336
---
 test/monarch/mock_monarch.F90 | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/test/monarch/mock_monarch.F90 b/test/monarch/mock_monarch.F90
index 738c102c0..b078a5d64 100644
--- a/test/monarch/mock_monarch.F90
+++ b/test/monarch/mock_monarch.F90
@@ -255,7 +255,9 @@ program mock_monarch
   deallocate(interface_input_file)
 
   ! Free the interface and the solver
-  deallocate(pmc_interface)
+  #ifndef PMC_USE_MPI ! Execute without MPI to avoid crash
+    deallocate(pmc_interface)
+  #else
 
   ! close the output file
   close(RESULTS_FILE_UNIT)