Skip to content
Snippets Groups Projects
Commit be0e9bea authored by Thomas Jahns's avatar Thomas Jahns :cartwheel:
Browse files

Fix unused argument warnings.

parent 5b4e664d
No related branches found
No related tags found
No related merge requests found
......@@ -59,6 +59,9 @@ static void modelRun(MPI_Comm commModel)
} varDeco[nVars];
#endif
#ifndef USE_MPI
(void)commModel;
#endif
gridID = gridCreate ( GRID_LONLAT, nlon*nlat );
gridDefXsize ( gridID, nlon );
gridDefYsize ( gridID, nlat );
......@@ -240,6 +243,9 @@ int main (int argc, char *argv[])
if (commModel != MPI_COMM_NULL)
{
namespaceSetActive(pioNamespace);
#else
(void)argc;
(void)argv;
#endif
modelRun(commModel);
......
......@@ -75,6 +75,10 @@ static void modelRun(MPI_Comm commModel)
Xt_idxlist partDesc;
} varDeco[nStreams][nVars];
#endif
#ifndef USE_MPI
(void)commModel;
#endif
xassert ( nStreams < MAXNSTREAMS );
gridID = gridCreate ( GRID_LONLAT, nlon*nlat );
......@@ -271,6 +275,8 @@ int main (int argc, char *argv[])
if (commModel != MPI_COMM_NULL)
{
namespaceSetActive(pioNamespace);
#else
(void)argc; (void)argv;
#endif
modelRun(commModel);
......
......@@ -840,10 +840,17 @@ int vlistInsertTrivialTileSubtype(int vlistID)
/* ------------------------------------------------------------------- */
static int subtypeGetPackSize( void * subtype_ptr, void *context)
{ Error("Not yet implemented for subtypes!"); return 0; }
{
(void)subtype_ptr; (void)context;
Error("Not yet implemented for subtypes!");
return 0;
}
static void subtypePack( void * subtype_ptr, void * buffer, int size, int *pos, void *context)
{ Error("Not yet implemented for subtypes!"); }
{
(void)subtype_ptr; (void)buffer; (void)size; (void)pos; (void)context;
Error("Not yet implemented for subtypes!");
}
static int subtypeTxCode( void )
{ Error("Not yet implemented for subtypes!"); return 0; }
......
......@@ -107,6 +107,8 @@ modelRun(struct model_config setup, MPI_Comm comm)
#if USE_MPI
xmpi ( MPI_Comm_rank ( comm, &rank ));
xmpi ( MPI_Comm_size ( comm, &comm_size ));
#else
(void)comm;
#endif
if (rank == 0 && setup.compute_checksum)
......
......@@ -99,6 +99,8 @@ modelRun(struct model_config setup, MPI_Comm comm)
var = xmalloc((size_t)nlon * (size_t)nlat
* (size_t)setup.max_nlev * sizeof(var[0]));
}
#else
(void)comm;
#endif
var_scale(setup.datatype, &mscale, &mrscale);
......
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