mirror/netcdf-c
2
0
Fork 0
mirror of https://github.com/Unidata/netcdf-c.git synced 2025-02-05 16:20:10 +08:00
Code Issues Packages Projects Releases Wiki Activity

now checking more data

Browse Source
This commit is contained in:
Edward Hartnett 2020-06-29 09:39:38 -06:00
parent 823240d17a
commit 43c5f08dbb
1 changed files with 14 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
nc_test4/tst_gfs_data_1.c
View File

@ -238,8 +238,8 @@ main(int argc, char **argv)
/* In NOAA code, do all processors write the single time value? */
if (mpi_rank == 0)
if (nc_put_var_double(ncid, varid[6], &value_time));
if (nc_redef(ncid));
if (nc_put_var_double(ncid, varid[6], &value_time)) ERR;;
if (nc_redef(ncid)) ERR;
/* Write variable grid_xt data. */
if (nc_enddef(ncid)) ERR;
@ -313,6 +313,7 @@ main(int argc, char **argv)
{
int ndims, nvars, natts, unlimdimid;
char name_in[NC_MAX_NAME + 1];
double value_time_in;
int d, v;
/* int shuffle_in, deflate_in, deflate_level_in; */
@ -349,6 +350,17 @@ main(int argc, char **argv)
for (i = 0; i < pfull_loc_size; i++)
if (value_pfull_loc_in[i] != value_pfull_loc[i]) ERR;
/* Check phalf data. */
if (nc_get_vara_float(ncid, varid[5], &phalf_start, &phalf_loc_size, value_phalf_loc_in)) ERR;
for (i = 0; i < phalf_loc_size; i++)
if (value_phalf_loc_in[i] != value_phalf_loc[i]) ERR;
if (mpi_rank == 0)
{
if (nc_get_var_double(ncid, varid[6], &value_time_in)) ERR;
if (value_time_in != value_time) ERR;
}
/* /\* Check state of compression. *\/ */
/* if (!f) */
/* { */