Philippe 11/09/2017: IO: NEWLFI: length of record name is set with LEN_HREC
authorPhilippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Mon, 11 Sep 2017 07:33:58 +0000 (09:33 +0200)
committerPhilippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Wed, 13 Sep 2017 07:04:30 +0000 (09:04 +0200)
(cherry picked from commit baada2757375fd5879f06a20f3b7c070b8869dd7)

src/LIB/NEWLFI/src/lficom0.h

index 06aee5c..68fa8a5 100644 (file)
@@ -62,7 +62,7 @@ C
 C
       LOGICAL LPCRAY, LPRECH
 C
-      PARAMETER ( JPNCPN=16, JPLARD=512, JPNPDF=20, JPXUFM=100 )
+      PARAMETER ( JPNCPN=LEN_HREC, JPLARD=512, JPNPDF=20, JPXUFM=100 )
       PARAMETER ( JPNXFI=300, JPFACX=120, JPNPIA=4, JPNXPR=100 )
 C
 C     Implementation-dependent symbolic constants (except for JPNCMO and