Commit 5f5b0228 authored by Uwe Schulzweida's avatar Uwe Schulzweida
Browse files

removed check of result from streamOpenWrite

parent 6e70972f
......@@ -76,7 +76,6 @@ void *Duplicate(void *argument)
}
streamID2 = streamOpenWrite(cdoStreamName(1), cdoFiletype());
if ( streamID2 < 0 ) cdiError(streamID2, "Open failed on %s", cdoStreamName(1));
streamDefVlist(streamID2, vlistID2);
......
......@@ -143,7 +143,7 @@ void *EOFs(void * argument)
/* eigenvalues */
streamID2 = streamOpenWrite(cdoStreamName(1), cdoFiletype());
if ( streamID2 < 0 ) cdiError(streamID2, "Open failed on %s", cdoStreamName(1));
vlistID2 = vlistDuplicate(vlistID1);
taxisID2 = taxisDuplicate(taxisID1);
taxisDefRdate(taxisID2, 0);
......@@ -164,7 +164,7 @@ void *EOFs(void * argument)
/* eigenvectors */
streamID3 = streamOpenWrite(cdoStreamName(2), cdoFiletype());
if ( streamID3 < 0 ) cdiError(streamID3, "Open failed on %s", cdoStreamName(2));
vlistID3 = vlistDuplicate(vlistID1);
taxisID3 = taxisDuplicate(taxisID1);
gridID3 = gridDuplicate(gridID1);
......
......@@ -1490,7 +1490,6 @@ void *Echam5ini(void *argument)
cdoDefaultFileType = FILETYPE_NC;
streamID2 = streamOpenWrite(cdoStreamName(1), cdoFiletype());
if ( streamID2 < 0 ) cdiError(streamID2, "Open failed on %s", cdoStreamName(1));
streamDefVlist(streamID2, vlistID2);
......
......@@ -25,7 +25,6 @@
#include "cdo.h"
#include "cdo_int.h"
#include "pstream.h"
#include "functs.h"
void *Enlarge(void *argument)
......@@ -72,7 +71,6 @@ void *Enlarge(void *argument)
}
streamID2 = streamOpenWrite(cdoStreamName(1), cdoFiletype());
if ( streamID2 < 0 ) cdiError(streamID2, "Open failed on %s", cdoStreamName(1));
streamDefVlist(streamID2, vlistID2);
......
......@@ -222,7 +222,6 @@ void *Enlargegrid(void *argument)
}
streamID2 = streamOpenWrite(cdoStreamName(1), cdoFiletype());
if ( streamID2 < 0 ) cdiError(streamID2, "Open failed on %s", cdoStreamName(1));
vlistDefTaxis(vlistID2, taxisID2);
streamDefVlist(streamID2, vlistID2);
......
......@@ -159,7 +159,6 @@ void *Ensstat(void *argument)
vlistDefTaxis(vlistID2, taxisID2);
streamID2 = streamOpenWrite(ofilename, cdoFiletype());
if ( streamID2 < 0 ) cdiError(streamID2, "Open failed on %s", ofilename);
streamDefVlist(streamID2, vlistID2);
......
......@@ -213,7 +213,6 @@ void *Ensstat3(void *argument)
if ( operfunc != func_roc ) {
streamID2 = streamOpenWrite(ofilename, cdoFiletype());
if ( streamID2 < 0 ) cdiError(streamID2, "Open failed on %s", ofilename);
streamDefVlist(streamID2, vlistID2);
}
......
......@@ -150,7 +150,7 @@ void *EOF3d(void * argument)
/* eigenvalues */
streamID2 = streamOpenWrite(cdoStreamName(1), cdoFiletype());
if ( streamID2 < 0 ) cdiError(streamID2, "Open failed on %s", cdoStreamName(1));
taxisID2 = taxisDuplicate(taxisID1);
gridID2 = gridCreate(GRID_LONLAT, 1);
......@@ -184,7 +184,7 @@ void *EOF3d(void * argument)
/* eigenvectors */
streamID3 = streamOpenWrite(cdoStreamName(2), cdoFiletype());
if ( streamID3 < 0 ) cdiError(streamID3, "Open failed on %s", cdoStreamName(2));
vlistID3 = vlistDuplicate(vlistID1);
taxisID3 = taxisDuplicate(taxisID1);
gridID3 = gridDuplicate(gridID1);
......
......@@ -174,9 +174,7 @@ void *Eofcoeff(void * argument)
strcat(oname, filesuffix);
streamIDs[eofID] = streamOpenWrite(oname, cdoFiletype());
if ( streamIDs[eofID] < 0)
cdiError(streamIDs[eofID], "Open failed on %s", oname);
else if (cdoVerbose)
if (cdoVerbose)
cdoPrint("opened %s ('w') as stream%i for %i. eof", oname, streamIDs[eofID], eofID+1);
streamDefVlist(streamIDs[eofID], vlistID3);
......
......@@ -183,9 +183,7 @@ void *Eofcoeff3d(void * argument)
strcat(oname, filesuffix);
streamIDs[eofID] = streamOpenWrite(oname, cdoFiletype());
if ( streamIDs[eofID] < 0)
cdiError(streamIDs[eofID], "Open failed on %s", oname);
else if (cdoVerbose)
if (cdoVerbose)
cdoPrint("opened %s ('w') as stream%i for %i. eof", oname, streamIDs[eofID], eofID+1);
streamDefVlist(streamIDs[eofID], vlistID3);
......
......@@ -161,7 +161,6 @@ void *Expr(void *argument)
vlistDefTaxis(vlistID2, taxisID2);
streamID2 = streamOpenWrite(cdoStreamName(1), cdoFiletype());
if ( streamID2 < 0 ) cdiError(streamID2, "Open failed on %s", cdoStreamName(1));
streamDefVlist(streamID2, vlistID2);
......
......@@ -187,7 +187,6 @@ void *Fillmiss(void *argument)
}
streamID2 = streamOpenWrite(cdoStreamName(1), cdoFiletype());
if ( streamID2 < 0 ) cdiError(streamID2, "Open failed on %s", cdoStreamName(1));
streamDefVlist(streamID2, vlistID2);
......
......@@ -195,7 +195,6 @@ void *Filter(void *argument)
dpy = calendar_dpy(calendar); /* should be 365 !!! */
streamID2 = streamOpenWrite(cdoStreamName(1), cdoFiletype());
if ( streamID2 < 0 ) cdiError(streamID2, "Open failed on %s", cdoStreamName(1));
streamDefVlist(streamID2, vlistID2);
......
......@@ -25,7 +25,6 @@
#include "cdo.h"
#include "cdo_int.h"
#include "pstream.h"
#include "functs.h"
void *Fldrms(void *argument)
......@@ -93,7 +92,6 @@ void *Fldrms(void *argument)
if ( ndiffgrids > 0 ) cdoAbort("Too many different grids!");
streamID3 = streamOpenWrite(cdoStreamName(2), cdoFiletype());
if ( streamID3 < 0 ) cdiError(streamID3, "Open failed on %s", cdoStreamName(2));
streamDefVlist(streamID3, vlistID3);
......
......@@ -33,7 +33,6 @@
#include "cdo.h"
#include "cdo_int.h"
#include "pstream.h"
#include "functs.h"
void *Fldstat(void *argument)
......@@ -115,7 +114,6 @@ void *Fldstat(void *argument)
vlistChangeGridIndex(vlistID2, index, gridID2);
streamID2 = streamOpenWrite(cdoStreamName(1), cdoFiletype());
if ( streamID2 < 0 ) cdiError(streamID2, "Open failed on %s", cdoStreamName(1));
streamDefVlist(streamID2, vlistID2);
......
......@@ -26,7 +26,6 @@
#include "cdo.h"
#include "cdo_int.h"
#include "pstream.h"
#include "functs.h"
/* routine corr copied from PINGO */
......@@ -126,7 +125,6 @@ void *Fldstat2(void *argument)
vlistChangeGridIndex(vlistID3, index, gridID3);
streamID3 = streamOpenWrite(cdoStreamName(2), cdoFiletype());
if ( streamID3 < 0 ) cdiError(streamID3, "Open failed on %s", cdoStreamName(2));
streamDefVlist(streamID3, vlistID3);
......
......@@ -72,7 +72,6 @@ void *Fourier(void *argument)
vlistDefTaxis(vlistID2, taxisID2);
streamID2 = streamOpenWrite(cdoStreamName(1), cdoFiletype());
if ( streamID2 < 0 ) cdiError(streamID2, "Open failed on %s", cdoStreamName(1));
streamDefVlist(streamID2, vlistID2);
......
......@@ -323,7 +323,6 @@ void *Gather(void *argument)
}
streamID2 = streamOpenWrite(ofilename, cdoFiletype());
if ( streamID2 < 0 ) cdiError(streamID2, "Open failed on %s", ofilename);
streamDefVlist(streamID2, vlistID2);
......
......@@ -25,7 +25,6 @@
#include "cdo.h"
#include "cdo_int.h"
#include "pstream.h"
#include "functs.h"
void *Gengrid(void *argument)
......@@ -143,7 +142,6 @@ void *Gengrid(void *argument)
vlistDefTaxis(vlistID3, taxisID3);
streamID3 = streamOpenWrite(cdoStreamName(2), cdoFiletype());
if ( streamID3 < 0 ) cdiError(streamID3, "Open failed on %s", cdoStreamName(2));
streamDefVlist(streamID3, vlistID3);
......
......@@ -35,7 +35,6 @@
#include "cdo.h"
#include "cdo_int.h"
#include "pstream.h"
#include "functs.h"
#include "grid.h"
......@@ -676,7 +675,6 @@ void *Gridboxstat(void *argument)
vlistChangeGridIndex(vlistID2, index, gridID2);
streamID2 = streamOpenWrite(cdoStreamName(1), cdoFiletype());
if ( streamID2 < 0 ) cdiError(streamID2, "Open failed on %s", cdoStreamName(1));
streamDefVlist(streamID2, vlistID2);
......
Markdown is supported
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