mirror/netcdf-c
2
0
Fork 0
mirror of https://github.com/Unidata/netcdf-c.git synced 2025-01-18 15:55:12 +08:00
Code Issues Packages Projects Releases Wiki Activity

cleanup of simple.c

Browse Source
This commit is contained in:
Ed Hartnett 2019-07-02 08:59:27 -06:00
parent c8a2ad233f
commit 472fd0b348
1 changed files with 42 additions and 45 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

87
examples/C/simple.c
View File

@ -1,12 +1,10 @@
/*! \file
Copyright 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002,
2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011, 2012, 2013, 2014,
2015, 2016, 2017, 2018
University Corporation for Atmospheric Research/Unidata.
See \ref copyright file for more info.
Copyright 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002,
2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011, 2012, 2013, 2014,
2015, 2016, 2017, 2018
University Corporation for Atmospheric Research/Unidata.
See \ref copyright file for more info.
*/
/* This example program is part of Unidata's netCDF library for
@ -15,7 +13,6 @@ See \ref copyright file for more info.
How about a short, but meaningful, netCDF program?
Ed Hartnett, 6/19/4
$Id: simple.c,v 1.1 2004/07/26 14:04:42 ed Exp $
*/
#include <netcdf.h>
@ -25,11 +22,11 @@ See \ref copyright file for more info.
/* This macro handles errors by outputting a message to stdout and
then exiting. */
#define NC_EXAMPLE_ERROR 2 /* This is the exit code for failure. */
#define BAIL(e) do { \
printf("Bailing out in file %s, line %d, error:%s.\n", \
__FILE__, __LINE__, nc_strerror(e)); \
return NC_EXAMPLE_ERROR; \
} while (0)
#define BAIL(e) do { \
printf("Bailing out in file %s, line %d, error:%s.\n", \
__FILE__, __LINE__, nc_strerror(e)); \
return NC_EXAMPLE_ERROR; \
} while (0)
#define NUMDIMS 2
#define NUMVARS 1
@ -40,45 +37,45 @@ return NC_EXAMPLE_ERROR; \
int
main()
{
int ncid, temp_varid, dimids[NUMDIMS];
float temp[LAT_LEN][LON_LEN], *fp;
int i, res;
int ncid, temp_varid, dimids[NUMDIMS];
float temp[LAT_LEN][LON_LEN], *fp;
int i, res;
/* Create a bunch of phoney data so we have something to write in
the example file. */
for (fp=(float *)temp, i=0; i<LAT_LEN*LON_LEN; i++)
*fp++ = 10. + i/10.;
/* Create a bunch of phoney data so we have something to write in
the example file. */
for (fp=(float *)temp, i=0; i<LAT_LEN*LON_LEN; i++)
*fp++ = 10. + i/10.;
/* Create the netCDF file. */
if ((res = nc_create("short.nc", NC_CLOBBER, &ncid)))
BAIL(res);
/* Create the netCDF file. */
if ((res = nc_create("short.nc", NC_CLOBBER, &ncid)))
BAIL(res);
/* Define dimensions. */
if ((res = nc_def_dim(ncid, "latitude", LAT_LEN, dimids)))
BAIL(res);
if ((res = nc_def_dim(ncid, "longitude", LON_LEN, &dimids[1])))
BAIL(res);
/* Define dimensions. */
if ((res = nc_def_dim(ncid, "latitude", LAT_LEN, dimids)))
BAIL(res);
if ((res = nc_def_dim(ncid, "longitude", LON_LEN, &dimids[1])))
BAIL(res);
/* Define the variable. */
if ((res = nc_def_var(ncid, "sfc_temp", NC_FLOAT, NUMDIMS,
dimids, &temp_varid)))
BAIL(res);
/* Define the variable. */
if ((res = nc_def_var(ncid, "sfc_temp", NC_FLOAT, NUMDIMS,
dimids, &temp_varid)))
BAIL(res);
/* We'll store the units. */
if ((res = nc_put_att_text(ncid, temp_varid, "units",
strlen(CELSIUS), CELSIUS)))
BAIL(res);
/* We'll store the units. */
if ((res = nc_put_att_text(ncid, temp_varid, "units",
strlen(CELSIUS), CELSIUS)))
BAIL(res);
/* We're finished defining metadata. */
if ((res = nc_enddef(ncid)))
BAIL(res);
/* We're finished defining metadata. */
if ((res = nc_enddef(ncid)))
BAIL(res);
if ((res = nc_put_var_float(ncid, temp_varid, (float *)temp)))
BAIL(res);
if ((res = nc_put_var_float(ncid, temp_varid, (float *)temp)))
BAIL(res);
/* We're done! */
if ((res = nc_close(ncid)))
BAIL(res);
/* We're done! */
if ((res = nc_close(ncid)))
BAIL(res);
return 0;
return 0;
}