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
75f2ca18
Commit
75f2ca18
authored
Aug 26, 2010
by
Uwe Schulzweida
Browse files
vlistCopyFlag: copy zaxis meta data
parent
4bafe8de
Changes
2
Hide whitespace changes
Inline
Side-by-side
ChangeLog
View file @
75f2ca18
...
...
@@ -3,6 +3,10 @@
* using CGRIBEX library version 1.4.6
* Version 1.4.6 released
2010-08-26 Uwe Schulzweida <Uwe.Schulzweida@zmaw.de>
* vlistCopyFlag: copy zaxis meta data
2010-08-25 Uwe Schulzweida <Uwe.Schulzweida@zmaw.de>
* Added support for attribute type int16 and float32 [Request: Don Murray]
...
...
src/vlist.c
View file @
75f2ca18
...
...
@@ -702,11 +702,21 @@ void vlistCopyFlag(int vlistID2, int vlistID1)
nvct
=
zaxisInqVctSize
(
zaxisID
);
vct
=
zaxisInqVctPtr
(
zaxisID
);
}
lbounds
=
0
;
/* <------------ have to define */
levels2
=
NULL
;
/* <------------ have to define */
lbounds
=
0
;
/* <------------ have to define */
levels2
=
NULL
;
/* <------------ have to define */
zaxisID2
=
vlistInqZaxis
(
vlistID2
,
zaxisType
,
nlevs2
,
levels
,
lbounds
,
levels2
,
nvct
,
vct
);
free
(
levels
);
{
char
ctemp
[
256
];
zaxisInqName
(
zaxisID
,
ctemp
);
zaxisDefName
(
zaxisID
,
ctemp
);
zaxisInqLongname
(
zaxisID
,
ctemp
);
zaxisDefLongname
(
zaxisID
,
ctemp
);
zaxisInqUnits
(
zaxisID
,
ctemp
);
zaxisDefUnits
(
zaxisID
,
ctemp
);
}
zaxisID
=
zaxisID2
;
vlistptr2
->
vars
[
varID2
].
zaxisID
=
zaxisID2
;
vlistptr2
->
vars
[
varID2
].
nlevs
=
nlevs2
;
...
...
@@ -730,17 +740,17 @@ void vlistCopyFlag(int vlistID2, int vlistID1)
for
(
index
=
0
;
index
<
vlistptr2
->
ngrids
;
index
++
)
if
(
vlistptr2
->
gridIDs
[
index
]
==
gridID
)
break
;
if
(
index
==
vlistptr2
->
ngrids
)
if
(
index
==
vlistptr2
->
ngrids
)
{
vlistptr2
->
gridIDs
[
vlistptr2
->
ngrids
++
]
=
gridID
;
if
(
vlistptr2
->
ngrids
>=
MAX_GRIDS_PS
)
Error
(
func
,
"Internal Problem! More than %d grids."
,
MAX_GRIDS_PS
);
}
for
(
index
=
0
;
index
<
vlistptr2
->
nzaxis
;
index
++
)
if
(
vlistptr2
->
zaxisIDs
[
index
]
==
zaxisID
)
break
;
for
(
index
=
0
;
index
<
vlistptr2
->
nzaxis
;
index
++
)
if
(
vlistptr2
->
zaxisIDs
[
index
]
==
zaxisID
)
break
;
if
(
index
==
vlistptr2
->
nzaxis
)
if
(
index
==
vlistptr2
->
nzaxis
)
{
vlistptr2
->
zaxisIDs
[
vlistptr2
->
nzaxis
++
]
=
zaxisID
;
if
(
vlistptr2
->
nzaxis
>=
MAX_ZAXES_PS
)
...
...
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