From cd620ef28b89b11debc8eaad7d78d186da665954 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Wed, 8 Feb 2023 13:14:43 +0100
Subject: [PATCH] Philippe 08/02/2023: bugfix: RECYCLING: forgot to write
XWMEANS
---
src/MNH/write_lfin.f90 | 2 ++
1 file changed, 2 insertions(+)
diff --git a/src/MNH/write_lfin.f90 b/src/MNH/write_lfin.f90
index 154aeff86..e6b300e99 100644
--- a/src/MNH/write_lfin.f90
+++ b/src/MNH/write_lfin.f90
@@ -701,6 +701,8 @@ IF (LRECYCL) THEN
LTIMEDEP = .TRUE., &
CCOMMENT = 'WMEAN-SOUTH side plan for recycling purpose' )
!
+ CALL IO_Field_write(TPFILE,TZFIELD,XWMEANS(:,:,:))
+ !
ENDIF
ENDIF
!
--
GitLab