mirror/netcdf-c
2
0
Fork 0
mirror of https://github.com/Unidata/netcdf-c.git synced 2025-03-01 17:06:03 +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:44:55 -06:00
parent 1d06c30cf7
commit 8d7d9a598e
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
nc_test4/tst_gfs_data_1.c
View File

@ -154,6 +154,10 @@ main(int argc, char **argv)
value_pfull_loc[i] = mpi_rank * 100 + i;
for (i = 0; i < phalf_loc_size; i++)
value_phalf_loc[i] = mpi_rank * 100 + i;
for (i = 0; i < grid_xt_loc_size; i++)
value_grid_xt_loc[i] = mpi_rank * 100 + i;
for (i = 0; i < grid_yt_loc_size; i++)
value_grid_yt_loc[i] = mpi_rank * 100 + i;
for (j = 0; j < lon_yt_loc_size; j++)
{
for(i = 0; i < lon_xt_loc_size; i++)
@ -364,9 +368,13 @@ main(int argc, char **argv)
/* Check grid_xt data. */
if (nc_get_vara_double(ncid, varid[0], &grid_xt_start, &grid_xt_loc_size, value_grid_xt_loc_in)) ERR;
for (i = 0; i < grid_xt_loc_size; i++)
if (value_grid_xt_loc_in[i] != value_grid_xt_loc[i]) ERR;
/* Check grid_yt data. */
if (nc_get_vara_double(ncid, varid[2], &grid_yt_start, &grid_yt_loc_size, value_grid_yt_loc_in)) ERR;
for (i = 0; i < grid_yt_loc_size; i++)
if (value_grid_yt_loc_in[i] != value_grid_yt_loc[i]) ERR;
/* /\* Check state of compression. *\/ */
/* if (!f) */