From 4fd364b78383fe4614aea35b6ddfd13080655130 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Mon, 19 Mar 2018 14:52:38 +0100
Subject: [PATCH] Philippe 19/03/2018: IO: bug correction: LFI vertically split
files have now correct suffix .lfi
---
src/LIB/SURCOUCHE/src/mode_io.f90 | 18 +++++++++---------
1 file changed, 9 insertions(+), 9 deletions(-)
diff --git a/src/LIB/SURCOUCHE/src/mode_io.f90 b/src/LIB/SURCOUCHE/src/mode_io.f90
index f9f728894..3b8866f32 100644
--- a/src/LIB/SURCOUCHE/src/mode_io.f90
+++ b/src/LIB/SURCOUCHE/src/mode_io.f90
@@ -700,15 +700,15 @@ CONTAINS
!
! JUAN open lfi file temporary modif
!
- CALL LFIOUV(IRESOU, &
- TZSPLITFILE%NLFIFLU, &
- GNAMFI8, &
- TZSPLITFILE%CNAME, &
- "UNKNOWN", &
- GFATER8, &
- GSTATS8, &
- IMELEV, &
- INPRAR, &
+ CALL LFIOUV(IRESOU, &
+ TZSPLITFILE%NLFIFLU, &
+ GNAMFI8, &
+ TRIM(TZSPLITFILE%CNAME)//'.lfi', &
+ "UNKNOWN", &
+ GFATER8, &
+ GSTATS8, &
+ IMELEV, &
+ INPRAR, &
ININAR8)
TZSPLITFILE%NLFININAR = ININAR8
END IF
--
GitLab