core
/
eccodes
mirror of https://github.com/ecmwf/eccodes.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

ECC-1291: Remove unused variables

This commit is contained in:
Shahram Najm 2021-11-02 17:38:51 +00:00
parent 7f47e8d567
commit 66e78b5256
1 changed files with 12 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/grib_iterator_class_lambert_azimuthal_equal_area.c
View File

@ -170,11 +170,9 @@ static int init_oblate(grib_handle* h,
long i, j;
double x0, y0, x, y;
double coslam, sinlam, sinphi, sinphi_, q, sinb = 0.0, cosb = 0.0, b = 0.0, cosb2;
double Q__qp = 0, Q__rq = 0, Q__mmf = 0, Q__cosb1, Q__sinb1, Q__dd, Q__xmf, Q__ymf, t;
double Q__qp = 0, Q__rq = 0, Q__cosb1, Q__sinb1, Q__dd, Q__xmf, Q__ymf, t;
/* double Q__mmf = 0; */
double e, es, temp, one_es;
double false_easting; /* x offset in meters */
double false_northing; /* y offset in meters */
double latRad = 0, lonRad = 0, latDeg, lonDeg;
double APA[3] = {0,};
double xFirst, yFirst;
@ -203,7 +201,7 @@ static int init_oblate(grib_handle* h,
Q->mode = OBLIQ;
*/
Q__qp = pj_qsfn(1.0, e, one_es);
Q__mmf = 0.5 / one_es;
/* Q__mmf = 0.5 / one_es; ---- TODO(masn): do I need this? */
pj_authset(es, APA); /* sets up APA array */
Q__rq = sqrt(0.5 * Q__qp);
sinphi_ = sin(standardParallelInRadians); /* (P->phi0); */
@ -248,7 +246,7 @@ static int init_oblate(grib_handle* h,
for (j = 0; j < ny; j++) {
x = xFirst;
for (i = 0; i < nx; i++) {
double cCe, sCe, q, rho, ab = 0.0, lp__lam, lp__phi, xy_x = x, xy_y = y;
double cCe, sCe, rho, ab = 0.0, lp__lam, lp__phi, xy_x = x, xy_y = y;
xy_x /= Q__dd;
xy_y *= Q__dd;
rho = hypot(xy_x, xy_y);