There was an error while loading. Please reload this page.
MPI_Comm comm = MPI_COMM_OWRLD; char *filename = "testfile.nc"; MPI_Info info = MPI_INFO_NULL; int cmode, ncid;
cmod = NC_CLOBBER | NC_64BIT_DATA; ncmpi_create(comm, filename, cmode, info, &ncid);
MPI_Offset latitude = 100; MPI_Offset logtitude = 100; int dimid[2];
ncmpi_def_dim(ncid, "lat", latitude, &dimid[0]); ncmpi_def_dim(ncid, "lon", logtitude, &dimid[1]);
int varid; ncmpi_def_var(ncid, "topo", NC_FLOAT, 2, dimid, &varid);
char *attr = "grid cell topography"; ncmpi_put_att_text(ncid, varid, "long_name", strlen(attr), attr); attr = "m"; /* unit in meters */ ncmpi_put_att_text(ncid, varid, "units", strlen(attr), attr);
ncmpi_enddef(ncid);
int rank; float buf[10][20]; MPI_Offset start[2], count[2];
MPI_Comm_rank(comm, &rank); start[0] = 0; start[1] = 5 * rank; count[0] = 10; count[1] = 20; ncmpi_put_vara_float_all(ncid, varid, start, count, &buf[0][0]);
ncmpi_close(ncid);