From 7f90ba9b6215f7bfa0260f64b24f445337a95655 Mon Sep 17 00:00:00 2001
From: Quentin Rodier <quentin.rodier@meteo.fr>
Date: Mon, 21 Nov 2022 15:37:44 +0100
Subject: [PATCH] Quentin 21/11/2022: bugfix typo, write of LWU instead of LWD
for LWU
---
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 c067e6218..93ea1f7f1 100644
--- a/src/MNH/write_lfifm1_for_diag_supp.f90
+++ b/src/MNH/write_lfifm1_for_diag_supp.f90
@@ -1032,7 +1032,7 @@ IF (CSURF=='EXTE') THEN
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 2
TZFIELD%LTIMEDEP = .TRUE.
- CALL IO_Field_write(TPFILE,TZFIELD,XCURRENT_LWD)
+ CALL IO_Field_write(TPFILE,TZFIELD,XCURRENT_LWU)
END IF
END IF
--
GitLab