Remove intermediary variables nlon and nlat

Inst_eddies/set_contours.f90

@@ -38,7 +38,6 @@ contains
 
     ! Local:
 
-    integer nlon, nlat
     real innermost_level_2
 
     ! Window around each extremum:
@@ -65,9 +64,6 @@ contains
 
     !--------------------------------------------------------------
 
-    nlon = size(ssh, 1)
-    nlat = size(ssh, 2)
-
     ! Only look for good contours with amplitudes >= min_amp:
     innermost_level_2 = merge(e%extr%ssh + merge(min_amp, - min_amp, &
          e%cyclone), e%innermost_level, &
@@ -89,8 +85,8 @@ contains
             corner, step))
 
        ! Should have no effect except because of roundup error:
-       urc(2) = min(urc(2), nlat)
-       urc(1) = min(urc(1), nlon)
+       urc(2) = min(urc(2), size(ssh, 2))
+       urc(1) = min(urc(1), size(ssh, 1))
 
        corner_window = corner + (llc - 1) * step