Remove unused variable len.

src/fieldccplx.cc

@@ -30,7 +30,6 @@ farcmulcplx(Field *field, const double rconst[2])
   if (nwpv != 2) nwpv = 1;
 
   size_t gridsize = gridInqSize(grid);
-  size_t len = nwpv * gridInqSize(grid);
 
   // z1 x z2 = (x1x2 - y1y2) + i(x1y2 + x2y1)
   for (size_t i = 0; i < gridsize; i++)
@@ -54,7 +53,6 @@ farcdivcplx(Field *field, const double rconst[2])
   if (nwpv != 2) nwpv = 1;
 
   size_t gridsize = gridInqSize(grid);
-  size_t len = nwpv * gridInqSize(grid);
 
   // z1 / z2 = (x1x2 + y1y2) / (x2x2 + y2y2) + i (y1x2 - x1y2) / (x2x2 + y2y2)
   for (size_t i = 0; i < gridsize; i++)
@@ -79,7 +77,6 @@ farcaddcplx(Field *field, const double rconst[2])
   if (nwpv != 2) nwpv = 1;
 
   size_t gridsize = gridInqSize(grid);
-  size_t len = nwpv * gridInqSize(grid);
 
   for (size_t i = 0; i < gridsize; i++)
     {
@@ -100,7 +97,6 @@ farcsubcplx(Field *field, const double rconst[2])
   if (nwpv != 2) nwpv = 1;
 
   size_t gridsize = gridInqSize(grid);
-  size_t len = nwpv * gridInqSize(grid);
 
   for (size_t i = 0; i < gridsize; i++)
     {