Philippe 25/11/2016: lfi2cdf: bug correction in computation of buffer size
authorPhilippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Fri, 25 Nov 2016 11:50:34 +0000 (12:50 +0100)
committerPhilippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Fri, 25 Nov 2016 11:50:34 +0000 (12:50 +0100)
LIBTOOLS/tools/lfi2cdf/src/mode_util.f90

index c0311a9..7310461 100644 (file)
@@ -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