Remove intermediary variable m

Inst_eddies/Tests/test_mean_speed.f90

@@ -16,7 +16,7 @@ program test_mean_speed
 
   implicit none
 
-  real m, corner(2)
+  real corner(2)
   real:: center(2) = [9.625, - 33.875] ! longitude and latitude, in degrees
   integer ncid, varid, dimid
   integer:: ishape = 0
@@ -72,8 +72,7 @@ program test_mean_speed
   p = shpobj2pol(psobject)
   call shpdestroyobject(psobject)
   p%part(1)%points = p%part(1)%points * deg_to_rad
-  m = mean_speed(u, v, p%part(1), center * deg_to_rad, corner * deg_to_rad, &
-       step  * deg_to_rad)
-  print *, "mean azimuthal speed = ", m, "m s-1"
+  print *, "mean azimuthal speed = ", mean_speed(u, v, p%part(1), &
+       center * deg_to_rad, corner * deg_to_rad, step  * deg_to_rad), "m s-1"
 
 end program test_mean_speed