Move argument values in first position

`Intent(out)` first. We could not do this before because of reference
to periodic.

Inst_eddies/get_var.f90

@@ -4,7 +4,7 @@ module get_var_m
 
 contains
 
-  subroutine get_var(periodic, values, ncid, nc_time, name, new_fill_value)
+  subroutine get_var(values, periodic, ncid, nc_time, name, new_fill_value)
 
     ! Read a NetCDF variable, change the missing value and extend it
     ! in longitude if periodic.
@@ -19,12 +19,11 @@ contains
     use config_m, only: max_radius
     use read_grid_inst_eddies_m, only: nlon, copy_max_radius
 
-    logical, intent(in):: periodic ! grid is periodic in longitude
-
     real, intent(out):: values(1 - copy_max_radius:, :)
     ! (1 - copy_max_radius:nlon + copy_max_radius, nlat)
-    ! ssh, u or v. We cannot place this argument first because the
-    ! declaration references periodic.
+    ! ssh, u or v
+
+    logical, intent(in):: periodic ! grid is periodic in longitude
 
     integer, intent(in):: ncid
 

Inst_eddies/input_ssh.f90

@@ -72,7 +72,7 @@ contains
 
     ! Read ssh, u and v:
 
-    call get_var(periodic, ssh, ncid, nc_time, name = "adt", &
+    call get_var(ssh, periodic, ncid, nc_time, name = "adt", &
          new_fill_value = huge(0.))
     ! (We cannot keep the original fill value because Contour_531
     ! works with an upper limit for valid values.)
@@ -82,7 +82,7 @@ contains
        call nf95_open(u_fname, nf95_nowrite, ncid)
     end if
 
-    call get_var(periodic, u, ncid, nc_time, name = "ugos", &
+    call get_var(u, periodic, ncid, nc_time, name = "ugos", &
          new_fill_value = ieee_value(0., IEEE_QUIET_NAN))
 
     if (v_fname /= u_fname) then
@@ -90,7 +90,7 @@ contains
        call nf95_open(v_fname, nf95_nowrite, ncid)
     end if
 
-    call get_var(periodic, v, ncid, nc_time, name = "vgos", &
+    call get_var(v, periodic, ncid, nc_time, name = "vgos", &
          new_fill_value = ieee_value(0., IEEE_QUIET_NAN))
     ! (We will need quiet NaNs rather the original fill values for u and
     ! v when we compute the max-speed contours and when we search the