function netcdf_ice_test02 ( filename )

%*****************************************************************************80
%
%% NETCDF_ICE_TEST02 reads a NETCDF ICE grid file.
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    15 October 2010
%
%  Author:
%
%    John Burkardt
%
%  Reference:
%
%    Russ Rew, Glenn Davis, Steve Emmerson, Harvey Davies, Ed Hartne,
%    The NETCDF User's Guide,
%    Unidata Program Center, March 2009.
%
%  Input:
%
%    string FILENAME, the name of the file to be read.
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'NETCDF_ICE_TEST02:\n' );
  fprintf ( 1, '  Read a NETCDF ICE grid file and print the data.\n' );
%
%  Read the file
%
  [ dim, vertices, vertex_coordinate, vertex_label, edges, ...
    edge_vertex, edge_label, triangles, triangle_vertex, triangle_label, ...
    quadrilaterals, quadrilateral_vertex, quadrilateral_label, tetrahedrons, ...
    tetrahedron_vertex, tetrahedron_label, hexahedrons, hexahedron_vertex, ...
    hexahedron_label ] = netcdf_ice_read ( filename );
%
%  Print the data.
%
  fprintf ( 1, '\n' );
  fprintf ( 1, '  Data from file "%s"\n', filename );

  netcdf_ice_print ( dim, vertices, vertex_coordinate, ...
    vertex_label, edges, edge_vertex, edge_label, triangles, triangle_vertex, ...
    triangle_label, quadrilaterals, quadrilateral_vertex, ...
    quadrilateral_label, tetrahedrons, tetrahedron_vertex, tetrahedron_label, ...
    hexahedrons, hexahedron_vertex, hexahedron_label );

  return
end
