From b5702ae35fc7b8c54705545a905f45e14b82792a Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Fri, 25 Nov 2016 12:50:34 +0100
Subject: [PATCH] Philippe 25/11/2016: lfi2cdf: bug correction in computation
of buffer size
---
LIBTOOLS/tools/lfi2cdf/src/mode_util.f90 | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/LIBTOOLS/tools/lfi2cdf/src/mode_util.f90 b/LIBTOOLS/tools/lfi2cdf/src/mode_util.f90
index c0311a90b..731046109 100644
--- a/LIBTOOLS/tools/lfi2cdf/src/mode_util.f90
+++ b/LIBTOOLS/tools/lfi2cdf/src/mode_util.f90
@@ -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
--
GitLab