Philippe 12/11/2020: IO: bugfix: return dummy argument was not set in IO_Dim_find_byname_nc4

LIBTOOLS/tools/lfi2cdf/src/mode_util.f90

@@ -1629,7 +1629,7 @@ END DO
       END IF
       IF (TRIM(TPREC%TDIMS(JJ)%cname)/='time' .AND. &
         TPREC%TDIMS(JJ)%nlen /= TPREC%NDIMSIZES_FILE(JJ)) THEN
-        CALL PRINT_MSG(NVERB_WARNING,'IO','IO_FILL_DIMS_NC4','problem with dimensions for '//TPREC%TFIELD%CMNHNAME)
+        CALL PRINT_MSG(NVERB_WARNING,'IO','IO_Dims_fill_nc4','problem with dimensions for '//TPREC%TFIELD%CMNHNAME)
         KRESP = -3
         EXIT
       END IF

src/LIB/SURCOUCHE/src/mode_io_tools_nc4.f90

@@ -44,7 +44,6 @@ character(len=*), intent(in)  :: hdimname
 type(tdimnc),     intent(out) :: tpdim
 integer,          intent(out) :: kresp
 
-integer :: idx
 integer :: ji
 
 call Print_msg( NVERB_DEBUG, 'IO', 'IO_Dim_find_byname_nc4', 'called for dimension name ' // Trim( hdimname ) )
@@ -63,10 +62,9 @@ if ( .not.Allocated( tpfile%tncdims%tdims ) ) then
   return
 end if
 
-idx = -1
 do ji = 1, tpfile%tncdims%nmaxdims
   if ( Trim( hdimname ) == Trim( tpfile%tncdims%tdims(ji)%cname ) ) then
-    idx = ji
+    tpdim = tpfile%tncdims%tdims(ji)
     kresp = 0
     exit
   end if