Commit f910c718 authored by Uwe Schulzweida's avatar Uwe Schulzweida
Browse files

eof: change wrong index eigenvalues.ptr[i] to eigenvalues.ptr[0]

parent 5ac1d1e4
......@@ -171,6 +171,7 @@ case "${HOSTNAME}" in
# powerpc-ibm-aix5.3.0.0
blizzard*)
${CONFPATH}configure --prefix=$HOME/local \
--with-grib_api=/sw/aix61/ECMWF \
--with-netcdf=/sw/aix61/netcdf-4.1.1-rc2 \
--with-hdf5=/sw/aix61/hdf5-1.8.4-patch1-threadsafe \
--with-zlib=/sw/aix53/zlib-1.2.3 \
......
......@@ -645,7 +645,7 @@ void *EOFs(void * argument)
streamWriteRecord(streamID3, eigenvectors[varID][levelID][tsID].ptr, nmiss);
}
if ( DBL_IS_EQUAL(eigenvalues[varID][levelID][tsID].ptr[i], missval) ) nmiss = 1;
if ( DBL_IS_EQUAL(eigenvalues[varID][levelID][tsID].ptr[0], missval) ) nmiss = 1;
else nmiss = 0;
streamDefRecord(streamID2, varID, levelID);
streamWriteRecord(streamID2, eigenvalues[varID][levelID][tsID].ptr,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