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
0a4b043c
Commit
0a4b043c
authored
Feb 22, 2010
by
Uwe Schulzweida
Browse files
using complex packing only for res >= t21
parent
4d3e3d64
Changes
5
Hide whitespace changes
Inline
Side-by-side
ChangeLog
View file @
0a4b043c
2010-02-22 Uwe Schulzweida <Uwe.Schulzweida@zmaw.de>
* Version 1.4.3 released
2010-02-18 Uwe Schulzweida <Uwe.Schulzweida@zmaw.de>
* grib1: bug fix for description of gaussian reduced grids [report: Kaus Wyser]
* grib1: bug fix for description of gaussian reduced grids [report: K
l
aus Wyser]
2010-02-16 Uwe Schulzweida <Uwe.Schulzweida@zmaw.de>
...
...
src/cdi.inc
View file @
0a4b043c
!
This
file
was
automatically
created
,
don
'
t
edit
!
!
!
Fortran
interface
for
CDI
library
version
1.4.
1
!
Fortran
interface
for
CDI
library
version
1.4.
3
!
!
Author
:
!
-------
...
...
@@ -1469,6 +1469,15 @@
!
INTEGER
gridtype
)
EXTERNAL
gridChangeType
!
gridDefComplexPacking
!
(
INTEGER
gridID
,
!
INTEGER
lpack
)
EXTERNAL
gridDefComplexPacking
INTEGER
gridInqComplexPacking
!
(
INTEGER
gridID
)
EXTERNAL
gridInqComplexPacking
!
!
ZAXIS
routines
!
...
...
src/cdiFortran.c
View file @
0a4b043c
...
...
@@ -307,6 +307,8 @@ FCALLSCFUN2 (INT, gridInqYbounds, GRIDINQYBOUNDS, gridinqybounds, INT, PDOUBLE)
FCALLSCSUB3
(
gridDefRowlon
,
GRIDDEFROWLON
,
griddefrowlon
,
INT
,
INT
,
PINT
)
FCALLSCSUB2
(
gridInqRowlon
,
GRIDINQROWLON
,
gridinqrowlon
,
INT
,
PINT
)
FCALLSCSUB2
(
gridChangeType
,
GRIDCHANGETYPE
,
gridchangetype
,
INT
,
INT
)
FCALLSCSUB2
(
gridDefComplexPacking
,
GRIDDEFCOMPLEXPACKING
,
griddefcomplexpacking
,
INT
,
INT
)
FCALLSCFUN1
(
INT
,
gridInqComplexPacking
,
GRIDINQCOMPLEXPACKING
,
gridinqcomplexpacking
,
INT
)
/* ZAXIS routines */
...
...
src/dmemory.c
View file @
0a4b043c
...
...
@@ -12,7 +12,7 @@
#if ! defined (HAVE_CONFIG_H)
#if ! defined (HAVE_MALLOC_H)
# if defined
defined
(SX)
# if defined (SX)
# define HAVE_MALLOC_H
# endif
#endif
...
...
src/stream_cgribex.c
View file @
0a4b043c
...
...
@@ -1845,7 +1845,7 @@ void cgribexDefGrid(int *isec1, int *isec2, int *isec4, int gridID)
ISEC2_PentaM
=
ISEC2_PentaJ
;
ISEC2_RepType
=
1
;
isec4
[
2
]
=
128
;
if
(
gridInqComplexPacking
(
gridID
)
)
if
(
gridInqComplexPacking
(
gridID
)
&&
ISEC2_PentaJ
>=
21
)
{
ISEC2_RepMode
=
2
;
isec4
[
3
]
=
64
;
...
...
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