Skip to content
Snippets Groups Projects
Commit f55e137b authored by Uwe Schulzweida's avatar Uwe Schulzweida
Browse files

Ensstat: scalar loop for streamInqRecord().

parent 4894c068
No related branches found
No related tags found
No related merge requests found
......@@ -192,6 +192,7 @@ void *Ensstat(void *argument)
for ( int recID = 0; recID < nrecs0; recID++ )
{
int varID = 0, levelID;
/*
#if defined(_OPENMP)
#pragma omp parallel for default(none) shared(ef, nfiles) lastprivate(varID, levelID)
#endif
......@@ -202,6 +203,18 @@ void *Ensstat(void *argument)
streamReadRecord(ef[fileID].streamID, ef[fileID].array, &nmiss);
ef[fileID].missval = vlistInqVarMissval(ef[fileID].vlistID, varID);
}
*/
for ( int fileID = 0; fileID < nfiles; fileID++ )
{
streamInqRecord(ef[fileID].streamID, &varID, &levelID);
ef[fileID].missval = vlistInqVarMissval(ef[fileID].vlistID, varID);
}
#pragma omp parallel for default(none) shared(ef, nfiles)
for ( int fileID = 0; fileID < nfiles; fileID++ )
{
int nmiss;
streamReadRecord(ef[fileID].streamID, ef[fileID].array, &nmiss);
}
int gridID = vlistInqVarGrid(vlistID1, varID);
int gridsize = gridInqSize(gridID);
......
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