Move definition of nlon and nlat out of the loop

Inst_eddies/inst_eddies.f90

@@ -142,10 +142,11 @@ program inst_eddies
 
   ! Done sorting
 
+  if (.not. periodic) nlon = size(ssh, 1)
+  nlat = size(ssh, 2)
+
   loop_extr: do l = 1, s%number_extr
      i = sorted_extr(l)
-     if (.not. periodic) nlon = size(ssh, 1)
-     nlat = size(ssh, 2)
 
      associate (e => s%list(i))
        ! Define the geographical window around each eddy extremum: