Philippe 19/03/2018: IO: bug correction: LFI vertically split files have now correct suffix .lfi

4fd364b7 · WAUTELET Philippe · 5f0a9caf · 4fd364b7
Commit 4fd364b7 authored 7 years ago by WAUTELET Philippe
--- 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,     &
+                   CALL LFIOUV(IRESOU,                   &
-                        TZSPLITFILE%NLFIFLU, &
+                        TZSPLITFILE%NLFIFLU,             &
-                        GNAMFI8,           &
+                        GNAMFI8,                         &
-                        TZSPLITFILE%CNAME, &
+                        TRIM(TZSPLITFILE%CNAME)//'.lfi', &
-                        "UNKNOWN",         &
+                        "UNKNOWN",                       &
-                        GFATER8,           &
+                        GFATER8,                         &
-                        GSTATS8,           &
+                        GSTATS8,                         &
-                        IMELEV,            &
+                        IMELEV,                          &
-                        INPRAR,            &
+                        INPRAR,                          &
                        ININAR8)
                   TZSPLITFILE%NLFININAR = ININAR8
                END IF