2010-06-03 21:24:43 +08:00
|
|
|
/*
|
|
|
|
|
|
|
|
This file is part of netcdf-4, a netCDF-like interface for HDF5, or a
|
|
|
|
HDF5 backend for netCDF, depending on your point of view.
|
|
|
|
|
|
|
|
This file handles the nc_ calls, calling the appropriate nc3 or nc4
|
|
|
|
function, depending on ncid.
|
|
|
|
|
|
|
|
Copyright 2003, University Corporation for Atmospheric Research. See
|
|
|
|
netcdf-4/docs/COPYRIGHT file for copying and redistribution
|
|
|
|
conditions.
|
|
|
|
*/
|
|
|
|
|
|
|
|
#include "nc4internal.h"
|
2010-07-31 06:16:15 +08:00
|
|
|
#include "nc3dispatch.h"
|
2010-06-03 21:24:43 +08:00
|
|
|
|
|
|
|
/* This will return the length of a netcdf data type in bytes. Since
|
|
|
|
we haven't added any new types, I just call the v3 function.
|
|
|
|
Ed Hartnett 10/43/03
|
|
|
|
*/
|
|
|
|
|
|
|
|
/* This function only does anything for netcdf-3 files. */
|
|
|
|
int
|
|
|
|
NC4_set_base_pe(int ncid, int pe)
|
|
|
|
{
|
2012-09-07 03:44:03 +08:00
|
|
|
return NC_ENOTNC3;
|
2010-06-03 21:24:43 +08:00
|
|
|
}
|
|
|
|
|
|
|
|
/* This function only does anything for netcdf-3 files. */
|
|
|
|
int
|
|
|
|
NC4_inq_base_pe(int ncid, int *pe)
|
|
|
|
{
|
2012-09-07 03:44:03 +08:00
|
|
|
return NC_ENOTNC3;
|
2010-06-03 21:24:43 +08:00
|
|
|
}
|
|
|
|
|
|
|
|
/* Get the format (i.e. classic, 64-bit-offset, or netcdf-4) of an
|
|
|
|
* open file. */
|
|
|
|
int
|
|
|
|
NC4_inq_format(int ncid, int *formatp)
|
|
|
|
{
|
2012-09-07 03:44:03 +08:00
|
|
|
NC *nc;
|
Refactored read_scale(), memio_new(), var_create_dataset() and makespecial()
to clean up resources properly on failure.
Refactored doubly-linked list code for objects in the libsrc4 directory,
cleaning up the add/del routines, breaking out the common next/prev
pointers into a struct and extracting the add/del operations on them,
changed the list of dims to add new dims in the same order as the other
types, made all add routines able to optionally return a pointer to the
newly created object.
Removed some dead code (pg_var(), nc4_pg_var1(), nc4_pg_varm(), misc. small
routines, etc)
Fixed fill value handling for string types in nc4_get_vara().
Changed many malloc()+strcpy() pairs into calls to strdup().
Cleaned up misc. other minor Coverity issues.
2013-12-08 17:29:26 +08:00
|
|
|
NC_HDF5_FILE_INFO_T* nc4_info;
|
2010-06-03 21:24:43 +08:00
|
|
|
|
|
|
|
LOG((2, "nc_inq_format: ncid 0x%x", ncid));
|
|
|
|
|
|
|
|
if (!formatp)
|
|
|
|
return NC_NOERR;
|
|
|
|
|
|
|
|
/* Find the file metadata. */
|
Refactored read_scale(), memio_new(), var_create_dataset() and makespecial()
to clean up resources properly on failure.
Refactored doubly-linked list code for objects in the libsrc4 directory,
cleaning up the add/del routines, breaking out the common next/prev
pointers into a struct and extracting the add/del operations on them,
changed the list of dims to add new dims in the same order as the other
types, made all add routines able to optionally return a pointer to the
newly created object.
Removed some dead code (pg_var(), nc4_pg_var1(), nc4_pg_varm(), misc. small
routines, etc)
Fixed fill value handling for string types in nc4_get_vara().
Changed many malloc()+strcpy() pairs into calls to strdup().
Cleaned up misc. other minor Coverity issues.
2013-12-08 17:29:26 +08:00
|
|
|
if (!(nc = nc4_find_nc_file(ncid,&nc4_info)))
|
2010-06-03 21:24:43 +08:00
|
|
|
return NC_EBADID;
|
|
|
|
|
2013-03-16 04:31:07 +08:00
|
|
|
#if 0 /*def USE_PNETCDF*/
|
2013-01-15 11:46:46 +08:00
|
|
|
/* Take care of files created/opened with parallel-netcdf library. */
|
Refactored read_scale(), memio_new(), var_create_dataset() and makespecial()
to clean up resources properly on failure.
Refactored doubly-linked list code for objects in the libsrc4 directory,
cleaning up the add/del routines, breaking out the common next/prev
pointers into a struct and extracting the add/del operations on them,
changed the list of dims to add new dims in the same order as the other
types, made all add routines able to optionally return a pointer to the
newly created object.
Removed some dead code (pg_var(), nc4_pg_var1(), nc4_pg_varm(), misc. small
routines, etc)
Fixed fill value handling for string types in nc4_get_vara().
Changed many malloc()+strcpy() pairs into calls to strdup().
Cleaned up misc. other minor Coverity issues.
2013-12-08 17:29:26 +08:00
|
|
|
if (nc4_info->pnetcdf_file)
|
2013-01-15 11:46:46 +08:00
|
|
|
return ncmpi_inq_format(nc->int_ncid, formatp);
|
|
|
|
#endif /* USE_PNETCDF */
|
|
|
|
|
2010-06-03 21:24:43 +08:00
|
|
|
/* Otherwise, this is a netcdf-4 file. Check if classic NC3 rules
|
|
|
|
* are in effect for this file. */
|
Refactored read_scale(), memio_new(), var_create_dataset() and makespecial()
to clean up resources properly on failure.
Refactored doubly-linked list code for objects in the libsrc4 directory,
cleaning up the add/del routines, breaking out the common next/prev
pointers into a struct and extracting the add/del operations on them,
changed the list of dims to add new dims in the same order as the other
types, made all add routines able to optionally return a pointer to the
newly created object.
Removed some dead code (pg_var(), nc4_pg_var1(), nc4_pg_varm(), misc. small
routines, etc)
Fixed fill value handling for string types in nc4_get_vara().
Changed many malloc()+strcpy() pairs into calls to strdup().
Cleaned up misc. other minor Coverity issues.
2013-12-08 17:29:26 +08:00
|
|
|
if (nc4_info->cmode & NC_CLASSIC_MODEL)
|
2010-06-03 21:24:43 +08:00
|
|
|
*formatp = NC_FORMAT_NETCDF4_CLASSIC;
|
|
|
|
else
|
|
|
|
*formatp = NC_FORMAT_NETCDF4;
|
|
|
|
|
|
|
|
return NC_NOERR;
|
|
|
|
}
|
|
|
|
|
2013-12-23 03:53:20 +08:00
|
|
|
/* Get the extended format of an open file. */
|
|
|
|
int
|
|
|
|
NC4_inq_format_extended(int ncid, int *formatp, int *modep)
|
|
|
|
{
|
|
|
|
NC *nc;
|
|
|
|
NC_HDF5_FILE_INFO_T* h5;
|
|
|
|
|
|
|
|
LOG((2, "nc_inq_format_extended: ncid 0x%x", ncid));
|
|
|
|
|
|
|
|
/* Find the file metadata. */
|
|
|
|
if (!(nc = nc4_find_nc_file(ncid,&h5)))
|
|
|
|
return NC_EBADID;
|
|
|
|
|
|
|
|
if(modep) *modep = (nc->mode|NC_NETCDF4);
|
|
|
|
|
|
|
|
if(formatp) {
|
2014-02-12 07:12:08 +08:00
|
|
|
#ifdef USE_HDF4
|
2013-12-23 03:53:20 +08:00
|
|
|
/* Distinguish HDF5 from HDF4 */
|
|
|
|
*formatp = (h5->hdf4 ? NC_FORMAT_NC_HDF4 : NC_FORMAT_NC_HDF5);
|
2014-02-12 07:12:08 +08:00
|
|
|
#else /* USE_HDF4 */
|
|
|
|
*formatp = NC_FORMAT_NC_HDF5;
|
|
|
|
#endif /* USE_HDF4 */
|
2013-12-23 03:53:20 +08:00
|
|
|
}
|
|
|
|
return NC_NOERR;
|
|
|
|
}
|