Commit 24cf062f authored by Uwe Schulzweida's avatar Uwe Schulzweida
Browse files

copy: skip time constant fields for nfile>1 (bug fix)

parent 6b581587
......@@ -6,6 +6,7 @@
2016-02-25 Uwe Schulzweida
* cat: skip time constant fields for nfile>1 (bug fix) [report: Ralf Mller]
* copy: skip time constant fields for nfile>1 (bug fix)
* mergetime: skip time constant fields for nfile>1 (bug fix)
2016-02-22 Uwe Schulzweida
......
......@@ -127,6 +127,11 @@ void *Copy(void *argument)
if ( lcopy && (operatorID == SELALL || operatorID == SZIP) )
{
streamInqRecord(streamID1, &varID, &levelID);
if ( tsID2 > 0 && tsID1 == 0 )
if ( vlistInqVarTsteptype(vlistID1, varID) == TSTEP_CONSTANT )
continue;
streamDefRecord(streamID2, varID, levelID);
streamCopyRecord(streamID2, streamID1);
}
......@@ -142,6 +147,11 @@ void *Copy(void *argument)
else
{
streamInqRecord(streamID1, &varID, &levelID);
if ( tsID2 > 0 && tsID1 == 0 )
if ( vlistInqVarTsteptype(vlistID1, varID) == TSTEP_CONSTANT )
continue;
streamReadRecord(streamID1, array, &nmiss);
}
/*
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment