function netcdf_ice_test ( )

%*****************************************************************************80
%
%% NETCDF_ICE_TEST tests routines for NETCDF ICE grid files.
%
%  Discussion:
%
%    We begin by creating a 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.
%
  timestamp ( );
  fprintf ( 1, '\n' );
  fprintf ( 1, 'NETCDF_ICE_TEST\n' );
  fprintf ( 1, '  MATLAB version\n' );
  fprintf ( 1, '  Test routines to read or write NETCDF ICE grid files.\n' );
%
%  Create 'hexahexa_2x2x2.nc'
%
  filename = 'hexahexa_2x2x2.nc';
  netcdf_ice_test01 ( @hexahexa_2x2x2, filename );
%
%  Read 'hexahexa_2x2x2.nc'
%
  netcdf_ice_test02 ( filename );
%
%  Create 'cyl248.nc'
%
  filename = 'cyl248.nc';
  netcdf_ice_test01 ( @cyl248, filename );
%
%  Read 'cyl248.nc'
%
  netcdf_ice_test02 ( filename );
%
%  Terminate.
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'NETCDF_ICE_TEST\n' );
  fprintf ( 1, '  Normal end of execution.\n'  );
  fprintf ( 1, '\n' );
  timestamp ( );

  return
end
