Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
mpim-sw
libcdi
Commits
8383cdf4
Commit
8383cdf4
authored
Nov 25, 2009
by
Uwe Schulzweida
Browse files
using GRIB library version 1.4.1
parent
acdf4657
Changes
2
Hide whitespace changes
Inline
Side-by-side
ChangeLog
View file @
8383cdf4
2009-11-25 Uwe Schulzweida <Uwe.Schulzweida@zmaw.de>
* using GRIB library version 1.4.1
check max limit of binary scale vaule (bug fix)
2009-11-22 Uwe Schulzweida <Uwe.Schulzweida@zmaw.de>
* change code/tabnum to param
...
...
src/cgribexlib.c
View file @
8383cdf4
/* Automatically generated by m214003 at 2009-1
0-17
, do not edit */
/* Automatically generated by m214003 at 2009-1
1-25
, do not edit */
/* CGRIBEXLIB_VERSION="1.4.
0.
1" */
/* CGRIBEXLIB_VERSION="1.4.1" */
#if defined (HAVE_CONFIG_H)
# include "config.h"
...
...
@@ -3450,7 +3450,7 @@ int encodeBDS(GRIBPACK *lGrib, long *gribLen, int decscale, int *isec2, int *ise
int
binscale
=
0
;
int
nbpv
;
/* ibits = BitsPerInt; */
/*
unsigned int max_nbpv_pow2;
*/
unsigned
int
max_nbpv_pow2
;
int
exponent
,
mantissa
;
int
unused_bits
=
0
;
double
factor
=
1
,
fmin
,
fmax
,
zref
;
...
...
@@ -3586,14 +3586,25 @@ int encodeBDS(GRIBPACK *lGrib, long *gribLen, int decscale, int *isec2, int *ise
}
}
max_nbpv_pow2
=
(
unsigned
int
)
(
intpow2
(
nbpv
)
-
1
);
if
(
binscale
!=
0
)
{
if
(
binscale
<
0
)
{
if
(
(
unsigned
int
)(
range
*
intpow2
(
-
binscale
)
+
0
.
5
)
>
max_nbpv_pow2
)
binscale
++
;
}
else
{
if
(
(
unsigned
int
)(
range
/
intpow2
(
binscale
)
+
0
.
5
)
>
max_nbpv_pow2
)
binscale
--
;
}
if
(
binscale
<
0
)
factor
=
intpow2
(
-
binscale
);
else
factor
=
1
.
0
/
intpow2
(
binscale
);
}
/* max_nbpv_pow2 = (unsigned int) (intpow2(nbpv) - 1); */
ref2ibm
(
&
zref
,
BitsPerInt
);
Put3Byte
(
blockLength
);
/* 0-2 Length of Block 4 */
...
...
@@ -6367,7 +6378,7 @@ C Fix message for longitude number out of bounds, and routine
C name in title and formats.
C
*/
static
char
func
[]
=
"qu2reg
2
"
;
static
char
func
[]
=
"qu2reg
3
"
;
/* System generated locals */
int
i_1
,
i_2
;
...
...
@@ -8878,7 +8889,7 @@ int gribUnzip(unsigned char *dbuf, long dbufsize, unsigned char *sbuf, long sbu
return
(
gribLen
);
}
static
const
char
grb_libvers
[]
=
"1.4.
0.
1"
" of ""
Oct 17
2009"" ""
08:09:19
"
;
static
const
char
grb_libvers
[]
=
"1.4.1"
" of ""
Nov 25
2009"" ""
14:45:48
"
;
const
char
*
cgribexLibraryVersion
(
void
)
{
...
...
Write
Preview
Markdown
is supported
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