diff --git a/src/LIB/SURCOUCHE/src/mode_io.f90 b/src/LIB/SURCOUCHE/src/mode_io.f90 index f9f7288945caa9d8e861aa4396db7787882852fe..3b8866f32040dd7f55efa418ff385c9cf16c4ee8 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