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
3572162f
Commit
3572162f
authored
Dec 07, 2014
by
Uwe Schulzweida
Browse files
removed unused-but-set-variable taxisID
parent
f62701bf
Changes
2
Hide whitespace changes
Inline
Side-by-side
examples/cdi_copy.c
View file @
3572162f
...
...
@@ -8,7 +8,7 @@ int nts = 3; // Number of time steps
int
main
(
void
)
{
int
taxisID
,
vlistID1
,
vlistID2
,
varID1
,
varID2
,
streamID1
,
streamID2
,
tsID
;
int
vlistID1
,
vlistID2
,
varID1
,
varID2
,
streamID1
,
streamID2
,
tsID
;
int
nmiss
;
double
var1
[
nlon
*
nlat
];
double
var2
[
nlon
*
nlat
*
nlev
];
...
...
@@ -29,9 +29,6 @@ int main(void)
varID1
=
0
;
varID2
=
1
;
// Get the Time axis from the variable list
taxisID
=
vlistInqTaxis
(
vlistID1
);
// Open the output dataset (GRIB format)
streamID2
=
streamOpenWrite
(
"example.grb"
,
FILETYPE_GRB
);
if
(
streamID2
<
0
)
...
...
examples/cdi_copy_f.f
View file @
3572162f
...
...
@@ -10,7 +10,7 @@
PARAMETER
(
nlev
=
5
)
! Number of levels
PARAMETER
(
nts
=
3
)
! Number of time steps
INTEGER
gridID
,
zaxisID1
,
zaxisID2
,
taxisID
,
tsID
INTEGER
gridID
,
zaxisID1
,
zaxisID2
,
tsID
INTEGER
vlistID1
,
vlistID2
,
varID1
,
varID2
,
streamID1
,
streamID2
INTEGER
i
,
nmiss
,
status
REAL
*
8
var1
(
nlon
*
nlat
),
var2
(
nlon
*
nlat
*
nlev
)
...
...
@@ -29,9 +29,6 @@
varID1
=
0
varID2
=
1
! Get the Time axis from the variable list
taxisID
=
vlistInqTaxis
(
vlistID1
)
! Open the output dataset (GRIB format)
streamID2
=
streamOpenWrite
(
"example.grb"
,
FILETYPE_GRB
)
IF
(
streamID2
<
0
)
THEN
...
...
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