Skip to content
Snippets Groups Projects
Commit 4fd364b7 authored by WAUTELET Philippe's avatar WAUTELET Philippe
Browse files

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

parent 5f0a9caf
No related branches found
No related tags found
No related merge requests found
...@@ -700,15 +700,15 @@ CONTAINS ...@@ -700,15 +700,15 @@ CONTAINS
! !
! JUAN open lfi file temporary modif ! 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) ININAR8)
TZSPLITFILE%NLFININAR = ININAR8 TZSPLITFILE%NLFININAR = ININAR8
END IF END IF
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment