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
f2cd6326
Commit
f2cd6326
authored
Jan 08, 2013
by
Uwe Schulzweida
Browse files
global netCDF attribute source missing (bug fix)
parent
029c9e8f
Changes
2
Hide whitespace changes
Inline
Side-by-side
ChangeLog
View file @
f2cd6326
2013-01-08 Uwe Schulzweida <Uwe.Schulzweida@zmaw.de>
* global netCDF attribute "source" missing (bug fix)
2012-12-18 Uwe Schulzweida <Uwe.Schulzweida@zmaw.de>
* reshGetValue: added caller function name to error message
...
...
src/stream_cdf.c
View file @
f2cd6326
...
...
@@ -6284,10 +6284,9 @@ void define_all_vars(int streamID, int vlistID, int instID, int modelID, int *va
tableID
=
cdiDefaultTableID
;
}
}
if
(
cdiDefaultModelID
!=
UNDEFID
)
modelID
=
cdiDefaultModelID
;
if
(
cdiDefaultInstID
!=
UNDEFID
)
instID
=
cdiDefaultInstID
;
if
(
cdiDefaultModelID
!=
UNDEFID
)
modelID
=
cdiDefaultModelID
;
if
(
cdiDefaultInstID
!=
UNDEFID
)
instID
=
cdiDefaultInstID
;
}
if
(
instID
!=
UNDEFID
)
vlistDefVarInstitut
(
vlistID
,
varID
,
instID
);
if
(
modelID
!=
UNDEFID
)
vlistDefVarModel
(
vlistID
,
varID
,
modelID
);
...
...
@@ -6330,6 +6329,8 @@ void read_global_attributtes(int fileID, int vlistID, stream_t *streamptr, int n
else
if
(
strcmp
(
attname
,
"source"
)
==
0
)
{
*
modelID
=
modelInq
(
-
1
,
0
,
attstring
);
if
(
*
modelID
==
UNDEFID
)
*
modelID
=
modelDef
(
-
1
,
0
,
attstring
);
}
else
if
(
strcmp
(
attname
,
"Source"
)
==
0
)
{
...
...
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