Remove some unused variables

Author: anton-seaice

io_netcdf/ice_restart.F90

@@ -488,11 +488,6 @@ subroutine read_restart_field(nu,nrec,work,atype,vname,ndim3, &
 
       ! local variables
 
-      integer (kind=int_kind) :: &
-        n,     &      ! number of dimensions for variable
-        varid, &      ! variable id
-        status        ! status variable from netCDF routine
-
       real (kind=dbl_kind), dimension(nx_block,ny_block,max_blocks) :: &
            work2              ! input array (real, 8-byte)