From ec5e940e79a9fc85966a99a665a4d46a41ce5883 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Fri, 30 Sep 2022 13:52:23 +0200
Subject: [PATCH] Philippe 30/09/2022: bugfix: write XCURRENT_LWU in LWU field
(and not XCURRENT_LWD)
---
src/MNH/write_lfifm1_for_diag_supp.f90 | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/MNH/write_lfifm1_for_diag_supp.f90 b/src/MNH/write_lfifm1_for_diag_supp.f90
index fe258339c..1412e986d 100644
--- a/src/MNH/write_lfifm1_for_diag_supp.f90
+++ b/src/MNH/write_lfifm1_for_diag_supp.f90
@@ -963,7 +963,7 @@ IF (CSURF=='EXTE') THEN
NTYPE = TYPEREAL, &
NDIMS = 2, &
LTIMEDEP = .TRUE. )
- CALL IO_Field_write(TPFILE,TZFIELD,XCURRENT_LWD)
+ CALL IO_Field_write(TPFILE,TZFIELD,XCURRENT_LWU)
END IF
END IF
--
GitLab