Skip to content
Snippets Groups Projects
Commit af72944a authored by Thomas Jahns's avatar Thomas Jahns :cartwheel: Committed by Sergey Kosukhin
Browse files

Use no-fail malloc wrapper in test program.

parent 7d1c671c
No related branches found
No related tags found
2 merge requests!34Version 2.2.0,!13Consolidation with CDI-PIO (develop)
......@@ -91,9 +91,9 @@ modelRun(struct model_config setup, MPI_Comm comm)
xmpi(MPI_Comm_size(comm, &comm_size));
if (rank == 0 && setup.compute_checksum)
{
chunks = malloc((size_t) comm_size * sizeof(chunks[0]));
displs = malloc((size_t) comm_size * sizeof(displs[0]));
var = malloc((size_t) nlon * (size_t) nlat * (size_t) setup.max_nlev * sizeof(var[0]));
chunks = Malloc((size_t) comm_size * sizeof(chunks[0]));
displs = Malloc((size_t) comm_size * sizeof(displs[0]));
var = Malloc((size_t) nlon * (size_t) nlat * (size_t) setup.max_nlev * sizeof(var[0]));
}
#else
(void) comm;
......@@ -104,14 +104,14 @@ modelRun(struct model_config setup, MPI_Comm comm)
gridID = setupGrid(&setup, comm);
const double *lons = gridInqXvalsPtr(gridID), *lats = gridInqYvalsPtr(gridID);
levs = (double *) malloc((size_t) setup.max_nlev * sizeof(levs[0]));
levs = (double *) Malloc((size_t) setup.max_nlev * sizeof(levs[0]));
{
double lscale = 1.0 / (double) (setup.max_nlev - 1);
for (size_t i = 0; i < (size_t) setup.max_nlev; ++i) levs[i] = 101300.0 - 13000.0 * expm1(2.173 * (double) i * lscale);
}
vlistID = vlistCreate();
varDesc = (struct varDesc_t *) malloc(nVars * sizeof(varDesc[0]));
varDesc = (struct varDesc_t *) Malloc(nVars * sizeof(varDesc[0]));
for (size_t varIdx = 0; varIdx < nVars; varIdx++)
{
int varLevs = (int) random() % 4;
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment