Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
mpim-sw
libcdi
Commits
b8aca083
Commit
b8aca083
authored
Apr 30, 2008
by
Uwe Schulzweida
Browse files
No commit message
No commit message
parent
db45f592
Changes
3
Hide whitespace changes
Inline
Side-by-side
src/cdf.c
View file @
b8aca083
...
...
@@ -89,6 +89,7 @@ int cdfOpenFile(const char *filename, const char *mode, int version)
#if defined (HAVE_LIBNETCDF)
int
fmode
;
int
writemode
=
NC_CLOBBER
;
int
readmode
=
NC_NOWRITE
;
int
status
;
if
(
filename
==
NULL
)
...
...
@@ -100,7 +101,7 @@ int cdfOpenFile(const char *filename, const char *mode, int version)
case
'r'
:
case
'R'
:
fmode
=
'r'
;
status
=
cdf_open
(
filename
,
NC_NOWRITE
,
&
ncid
);
status
=
cdf_open
(
filename
,
readmode
,
&
ncid
);
if
(
status
>
0
&&
ncid
<
0
)
ncid
=
CDI_ESYSTEM
;
break
;
case
'w'
:
...
...
src/cdi.inc
View file @
b8aca083
!
!
Fortran
interface
for
CDI
library
version
1.
1.1
!
Fortran
interface
for
CDI
library
version
1.
2.0
!
INTEGER
CDI_UNDEFID
...
...
src/stream_cdf.c
View file @
b8aca083
...
...
@@ -2202,8 +2202,8 @@ int cdfDefVar(int streamID, int varID)
{
xid
=
streamptr
->
xdimID
[
gridindex
];
yid
=
streamptr
->
ydimID
[
gridindex
];
cdf_inq_dimlen
(
fileID
,
xid
,
&
xsize
);
cdf_inq_dimlen
(
fileID
,
yid
,
&
ysize
);
if
(
xid
!=
UNDEFID
)
cdf_inq_dimlen
(
fileID
,
xid
,
&
xsize
);
if
(
yid
!=
UNDEFID
)
cdf_inq_dimlen
(
fileID
,
yid
,
&
ysize
);
}
zaxisindex
=
vlistZaxisIndex
(
vlistID
,
zaxisID
);
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new 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