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
libcdi
Commits
89771d78
Commit
89771d78
authored
Jan 20, 2012
by
Uwe Schulzweida
Browse files
Docu update
parent
76e2d031
Changes
7
Hide whitespace changes
Inline
Side-by-side
examples/cdi_copy.c
View file @
89771d78
...
...
@@ -32,7 +32,7 @@ int main(void)
// Get the Time axis from the variable list
taxisID
=
vlistInqTaxis
(
vlistID1
);
// Open the output dataset (GRIB f
r
omat)
// Open the output dataset (GRIB fo
r
mat)
streamID2
=
streamOpenWrite
(
"example.grb"
,
FILETYPE_GRB
);
if
(
streamID2
<
0
)
{
...
...
examples/cdi_copy_f.f
View file @
89771d78
...
...
@@ -32,7 +32,7 @@
! Get the Time axis from the variable list
taxisID
=
vlistInqTaxis
(
vlistID1
)
! Open the output dataset (GRIB f
r
omat)
! Open the output dataset (GRIB fo
r
mat)
streamID2
=
streamOpenWrite
(
"example.grb"
,
FILETYPE_GRB
)
IF
(
streamID2
<
0
)
THEN
WRITE
(
0
,
*
)
cdiStringError
(
streamID2
)
...
...
examples/cdi_copy_file.c
View file @
89771d78
...
...
@@ -39,7 +39,7 @@ int main(int argc, char *argv[])
vardata
=
(
double
*
)
malloc
(
gridsize
*
MAX_LEVEL
*
sizeof
(
double
));
/* Open the output dataset (GRIB f
r
omat) */
/* Open the output dataset (GRIB fo
r
mat) */
streamID2
=
streamOpenWrite
(
ofile
,
FILETYPE_GRB
);
if
(
streamID2
<
0
)
{
...
...
examples/cdi_write.c
View file @
89771d78
...
...
@@ -49,7 +49,7 @@ int main(void)
// Assign the Time axis to the variable list
vlistDefTaxis
(
vlistID
,
taxisID
);
// Create a dataset in netCDF f
r
omat
// Create a dataset in netCDF fo
r
mat
streamID
=
streamOpenWrite
(
"example.nc"
,
FILETYPE_NC
);
if
(
streamID
<
0
)
{
...
...
examples/cdi_write_f.f
View file @
89771d78
...
...
@@ -53,7 +53,7 @@
! Assign the Time axis to the variable list
CALL
vlistDefTaxis
(
vlistID
,
taxisID
)
! Create a dataset in netCDF f
r
omat
! Create a dataset in netCDF fo
r
mat
streamID
=
streamOpenWrite
(
"example.nc"
,
FILETYPE_NC
)
IF
(
streamID
<
0
)
THEN
WRITE
(
0
,
*
)
cdiStringError
(
streamID
)
...
...
examples/cdi_write_f2003.f90
View file @
89771d78
...
...
@@ -57,7 +57,7 @@
! Assign the Time axis to the variable list
CALL
vlistDefTaxis
(
vlistID
,
taxisID
)
! Create a dataset in netCDF f
r
omat
! Create a dataset in netCDF fo
r
mat
streamID
=
streamOpenWrite
(
C_CHAR_"example.nc"
//
C_NULL_CHAR
,
FILETYPE_NC
)
IF
(
streamID
<
0
)
THEN
msg
=
cdiStringError
(
streamID
)
...
...
src/stream_gribapi.c
View file @
89771d78
...
...
@@ -1811,7 +1811,7 @@ void gribapiDefInstitut(grib_handle *gh, int vlistID, int varID)
GRIB_CHECK
(
grib_get_long
(
gh
,
"centre"
,
&
center0
),
0
);
GRIB_CHECK
(
grib_get_long
(
gh
,
"subCentre"
,
&
subcenter0
),
0
);
if
(
center
!=
center0
)
GRIB_CHECK
(
grib_set_long
(
gh
,
"centre"
,
center
),
0
);
if
(
subcenter
!=
subcenter0
)
...
...
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