stream_scan.c 395 Bytes
Newer Older
Uwe Schulzweida's avatar
Uwe Schulzweida committed
1
2
3
4
5
6
#include "stream_scan.h"


void streamScanTimeConstAdjust(stream_t *streamptr, const taxis_t *taxis)
{
  const int vlistID = streamptr->vlistID;
7
  if (streamptr->ntsteps == 1)
Uwe Schulzweida's avatar
Uwe Schulzweida committed
8
    {
9
      if (taxis->vdate == 0 && taxis->vtime == 0)
Uwe Schulzweida's avatar
Uwe Schulzweida committed
10
11
	{
	  streamptr->ntsteps = 0;
12
	  for (int varID = 0; varID < streamptr->nvars; ++varID)
Uwe Schulzweida's avatar
Uwe Schulzweida committed
13
14
15
16
            vlistDefVarTimetype(vlistID, varID, TIME_CONSTANT);
	}
    }
}