diff --git a/tools/lfi2cdf/src/fieldtype.f90 b/tools/lfi2cdf/src/fieldtype.f90 index daa8cbb9a9b0002163eaf6a3fa32d5538f1ac402..62a1b73a8b1cf119f9bf5335d12f8221658de10f 100644 --- a/tools/lfi2cdf/src/fieldtype.f90 +++ b/tools/lfi2cdf/src/fieldtype.f90 @@ -297,8 +297,6 @@ END SUBROUTINE init_sysfield END IF END DO - write(clevel,'(I4.4)') level - IF (.NOT. found) THEN ! Next, search in user field tab IF (ALLOCATED(userfield)) THEN @@ -331,6 +329,7 @@ END SUBROUTINE init_sysfield ELSE IF (level>-1) THEN !Maybe it is a z-level splitted field !Warning: false positives are possible (but should be rare) + write(clevel,'(I4.4)') level iposx = INDEX(hfname,clevel) IF (iposx /= 0) THEN IF (hfname(:iposx-1)==sysfield(ji)%name) THEN diff --git a/tools/lfi2cdf/src/lfi2cdf.f90 b/tools/lfi2cdf/src/lfi2cdf.f90 index ca153fb22415c55c333f67dfda418917e48cf143..b4039b446550b76427f2bad119d10eae0e83e2e8 100644 --- a/tools/lfi2cdf/src/lfi2cdf.f90 +++ b/tools/lfi2cdf/src/lfi2cdf.f90 @@ -59,6 +59,7 @@ subroutine LFI2CDFMAIN(hinfile,iiflen,ooutname,houtfile,ioflen,hvarlist,ivlen,o ! by counting commas, = and + nbvar_tbr = 0 nbvar_calc = 0 + nbvar_tbw = 0 DO ji=1,ivlen IF (hvarlist(ji:ji) == ',' .OR.hvarlist(ji:ji) == '+') THEN nbvar_tbr = nbvar_tbr+1 diff --git a/tools/lfi2cdf/src/mode_dimlist.f90 b/tools/lfi2cdf/src/mode_dimlist.f90 index 6c6ffe3c02cf480742a1b23555236a60f44cf799..d4977136dfa01e0ac786a97a9d9704c61a7f032d 100644 --- a/tools/lfi2cdf/src/mode_dimlist.f90 +++ b/tools/lfi2cdf/src/mode_dimlist.f90 @@ -72,6 +72,7 @@ CONTAINS ! IF (len /= 1) THEN IF (gforce) THEN + count = 0 NULLIFY(tmp) ELSE count = 1 diff --git a/tools/lfi2cdf/src/newmain.c b/tools/lfi2cdf/src/newmain.c index 5eba51d4c73aeb0e4c0fbef862968db8d4f46ab8..6f56531fb7c543b551999292fe7489635d49fc51 100644 --- a/tools/lfi2cdf/src/newmain.c +++ b/tools/lfi2cdf/src/newmain.c @@ -53,10 +53,13 @@ int main(int argc, char **argv) cmd++; l2c_flag = strcmp(cmd, "lfi2cdf") == 0 ? 1 : 0; + compress_flag = 0; list_flag = 0; hdf5_flag = 0; + help_flag = 0; + outname_flag = 0; reduceprecision_flag = 0; - compress_flag = 0; + split_flag = 0; p = buff; *p = '\0';