From 33c2b7d5c65312543cf201382ed5c0c08a4bc437 Mon Sep 17 00:00:00 2001
From: Guillaume S <gsamson@mercator-ocean.fr>
Date: Thu, 24 Mar 2022 15:42:54 +0100
Subject: [PATCH] add a ocean.output flush when using `ln_listonly = .true.` in
bestpartition routine
---
src/OCE/LBC/mppini.F90 | 1 +
1 file changed, 1 insertion(+)
diff --git a/src/OCE/LBC/mppini.F90 b/src/OCE/LBC/mppini.F90
index 22bc6beb5..e5cd21c35 100644
--- a/src/OCE/LBC/mppini.F90
+++ b/src/OCE/LBC/mppini.F90
@@ -855,6 +855,7 @@ CONTAINS
IF(lwp) THEN
WRITE(numout,*)
WRITE(numout,*) ' -----------------------------------------------------------'
+ CALL FLUSH(numout)
ENDIF
CALL mppsync
CALL mppstop( ld_abort = .TRUE. )
--
GitLab