Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
mpim-sw
cdo
Commits
f910c718
Commit
f910c718
authored
Jan 04, 2011
by
Uwe Schulzweida
Browse files
eof: change wrong index eigenvalues.ptr[i] to eigenvalues.ptr[0]
parent
5ac1d1e4
Changes
2
Hide whitespace changes
Inline
Side-by-side
config/default
View file @
f910c718
...
...
@@ -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
\
...
...
src/EOFs.c
View file @
f910c718
...
...
@@ -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
);
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment