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
a2f489c3
Commit
a2f489c3
authored
Apr 04, 2014
by
Thomas Jahns
🤸
Browse files
Remove unused variable.
parent
0974eae6
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/gaussgrid.c
View file @
a2f489c3
...
...
@@ -73,13 +73,12 @@ void cpledn(int kn, int kodd, double *pfn, double pdx, int kflag,
}
static
void
gawl
(
double
*
pfn
,
double
*
pl
,
double
*
pw
,
int
kn
,
int
*
kiter
)
void
gawl
(
double
*
pfn
,
double
*
pl
,
double
*
pw
,
int
kn
)
{
int
iodd
;
double
pmod
=
0
;
int
iflag
;
int
itemax
;
int
jter
;
double
zw
=
0
;
double
zdlx
;
double
zdlxn
=
0
;
...
...
@@ -95,9 +94,8 @@ void gawl(double *pfn, double *pl, double *pw, int kn, int *kiter)
/* 2.0 Newton iteration */
for
(
jter
=
1
;
jter
<=
itemax
+
1
;
jter
++
)
for
(
int
jter
=
1
;
jter
<=
itemax
+
1
;
jter
++
)
{
*
kiter
=
jter
;
cpledn
(
kn
,
iodd
,
pfn
,
zdlx
,
iflag
,
&
zw
,
&
zdlxn
,
&
pmod
);
zdlx
=
zdlxn
;
if
(
iflag
==
1
)
break
;
...
...
@@ -123,11 +121,8 @@ void gauaw(int kn, double *pl, double *pw)
double
z
,
zfnn
;
int
*
iter
;
int
ik
,
ins2
,
isym
,
jgl
,
jglm1
,
jn
,
iodd
;
iter
=
(
int
*
)
malloc
(
kn
*
sizeof
(
int
));
zfn
=
(
double
*
)
malloc
((
kn
+
1
)
*
(
kn
+
1
)
*
sizeof
(
double
));
zfnlat
=
(
double
*
)
malloc
((
kn
/
2
+
1
+
1
)
*
sizeof
(
double
));
...
...
@@ -179,7 +174,7 @@ void gauaw(int kn, double *pl, double *pw)
for
(
jgl
=
ins2
;
jgl
>=
1
;
jgl
--
)
{
jglm1
=
jgl
-
1
;
gawl
(
zfnlat
,
&
(
pl
[
jglm1
]),
&
(
pw
[
jglm1
]),
kn
,
&
(
iter
[
jglm1
])
);
gawl
(
zfnlat
,
&
(
pl
[
jglm1
]),
&
(
pw
[
jglm1
]),
kn
);
}
/* convert to physical latitude */
...
...
@@ -199,7 +194,6 @@ void gauaw(int kn, double *pl, double *pw)
free
(
zfnlat
);
free
(
zfn
);
free
(
iter
);
return
;
}
...
...
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