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

Philippe 25/11/2016: lfi2cdf: bug correction in computation of buffer size

parent 9746cd3e
No related branches found
No related tags found
No related merge requests found
......@@ -276,8 +276,8 @@ CONTAINS
END DO
END IF
END IF
!Add maximum comment size (necessary when writing LFI files because the comment is stored with the field)
ileng = ileng + MAXLFICOMMENTLENGTH
!Add maximum comment size (necessary when writing LFI files because the comment is stored with the field)
leng = leng + MAXLFICOMMENTLENGTH
END IF
IF (.NOT.tpreclist(ji)%found) THEN
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment