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
cdo
Commits
120f276b
Commit
120f276b
authored
Oct 09, 2008
by
Uwe Schulzweida
Browse files
namelist: bug fix for wrong input
parent
06cb926d
Changes
3
Hide whitespace changes
Inline
Side-by-side
ChangeLog
View file @
120f276b
...
...
@@ -10,6 +10,7 @@
* cat, copy: compare input files
* ifthen: bug fix for datasets with different missing values [report: Beate Geyer]
* runmean: bug fix for datasets with missing values [report: Carmen Ulmen]
* namelist: bug fix for wrong input
* Version 1.2.1 released
2008-08-13 Uwe Schulzweida <Uwe.Schulzweida@zmaw.de>
...
...
src/grid.c
View file @
120f276b
...
...
@@ -235,14 +235,12 @@ int gridDefine(GRID grid)
if
(
grid
.
xbounds
)
{
printf
(
"gridDefXbounds
\n
"
);
gridDefXbounds
(
gridID
,
grid
.
xbounds
);
free
(
grid
.
xbounds
);
}
if
(
grid
.
ybounds
)
{
printf
(
"gridDefYbounds
\n
"
);
gridDefYbounds
(
gridID
,
grid
.
ybounds
);
free
(
grid
.
ybounds
);
}
...
...
src/namelist.c
View file @
120f276b
...
...
@@ -481,12 +481,11 @@ void namelistRead(FILE *nmlfp, NAMELIST *nml)
if
(
nml
->
line
.
namitf
<
nml
->
line
.
namitl
)
pnamecx
=
&
nml
->
line
.
linelc
[
nml
->
line
.
namitf
+
1
];
if
(
strncmp
(
pnamecx
,
"select"
,
6
)
==
0
||
strncmp
(
pnamecx
,
"
params
"
,
6
)
==
0
||
strncmp
(
pnamecx
,
nml
->
name
,
strlen
(
nml
->
name
)
)
==
0
)
{
if
(
pnamecx
)
if
(
strncmp
(
pnamecx
,
"
select
"
,
6
)
==
0
||
strncmp
(
pnamecx
,
"params"
,
6
)
==
0
||
strncmp
(
pnamecx
,
nml
->
name
,
strlen
(
nml
->
name
))
==
0
)
goto
L2000
;
}
goto
L3000
;
}
...
...
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