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 @@ ...@@ -6,6 +6,7 @@
2016-02-25 Uwe Schulzweida 2016-02-25 Uwe Schulzweida
* cat: skip time constant fields for nfile>1 (bug fix) [report: Ralf Mller] * 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) * mergetime: skip time constant fields for nfile>1 (bug fix)
2016-02-22 Uwe Schulzweida 2016-02-22 Uwe Schulzweida
......
...@@ -127,6 +127,11 @@ void *Copy(void *argument) ...@@ -127,6 +127,11 @@ void *Copy(void *argument)
if ( lcopy && (operatorID == SELALL || operatorID == SZIP) ) if ( lcopy && (operatorID == SELALL || operatorID == SZIP) )
{ {
streamInqRecord(streamID1, &varID, &levelID); streamInqRecord(streamID1, &varID, &levelID);
if ( tsID2 > 0 && tsID1 == 0 )
if ( vlistInqVarTsteptype(vlistID1, varID) == TSTEP_CONSTANT )
continue;
streamDefRecord(streamID2, varID, levelID); streamDefRecord(streamID2, varID, levelID);
streamCopyRecord(streamID2, streamID1); streamCopyRecord(streamID2, streamID1);
} }
...@@ -142,6 +147,11 @@ void *Copy(void *argument) ...@@ -142,6 +147,11 @@ void *Copy(void *argument)
else else
{ {
streamInqRecord(streamID1, &varID, &levelID); streamInqRecord(streamID1, &varID, &levelID);
if ( tsID2 > 0 && tsID1 == 0 )
if ( vlistInqVarTsteptype(vlistID1, varID) == TSTEP_CONSTANT )
continue;
streamReadRecord(streamID1, array, &nmiss); 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