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
cdo
Commits
c1d9eacb
Commit
c1d9eacb
authored
Jan 11, 2011
by
Uwe Schulzweida
Browse files
sellonlatbox: does not work as expected (bug fix)
parent
52c29d88
Changes
3
Hide whitespace changes
Inline
Side-by-side
ChangeLog
View file @
c1d9eacb
2011-01-11 Uwe Schulzweida <Uwe.Schulzweida@zmaw.de>
* sellonlatbox: does not work as expected (bug fix) [report: Jonathan Schubert]
2011-01-10 Uwe Schulzweida <Uwe.Schulzweida@zmaw.de>
* Added operator delete - Delete fields
...
...
cdo.spec
View file @
c1d9eacb
...
...
@@ -4,7 +4,7 @@
Name: cdo
#BuildRequires:
Version: 1.4.
7
rc
6
Version: 1.4.
8
rc
1
Release: 1
Summary: Climate Data Operators
License: GNU GENERAL PUBLIC LICENSE Version 2, June 1991
...
...
src/Selbox.c
View file @
c1d9eacb
...
...
@@ -347,16 +347,18 @@ void genlonlatbox(double xlon1, double xlon2, double xlat1, double xlat2,
for
(
*
lon22
=
*
lon21
;
*
lon22
<
nlon1
&&
xvals1
[
*
lon22
]
<
xlon2
;
(
*
lon22
)
++
);
if
(
*
lon22
>=
nlon1
||
xvals1
[
*
lon22
]
>
xlon2
)
(
*
lon22
)
--
;
xlon1
-=
360
;
xlon2
-=
360
;
for
(
*
lon11
=
0
;
xvals1
[
*
lon11
]
<
xlon1
;
(
*
lon11
)
++
);
for
(
*
lon12
=
*
lon11
;
*
lon12
<
nlon1
&&
xvals1
[
*
lon12
]
<
xlon2
;
(
*
lon12
)
++
);
//(*lon12)--;
//
(*lon12)--;
if
(
*
lon12
>=
nlon1
||
xvals1
[
*
lon12
]
>
xlon2
)
(
*
lon12
)
--
;
if
(
*
lon12
>=
0
)
if
(
IS_EQUAL
(
xvals1
[
*
lon12
],
xvals1
[
*
lon21
])
)
(
*
lon12
)
--
;
if
(
*
lon12
-
*
lon11
+
1
+
*
lon22
-
*
lon21
+
1
<=
0
)
cdoAbort
(
"Longitudinal dimension is too small!"
);
...
...
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