Commit a2f489c3 authored by Thomas Jahns's avatar Thomas Jahns 🤸
Browse files

Remove unused variable.

parent 0974eae6
......@@ -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;
}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment