Invert order of arguments of procedure `read_grid`

Invert order of dummy arguments of procedure `read_grid`.

Overlap/Tests/test_get_dispatch_snap.f90

@@ -41,7 +41,7 @@ program test_get_dispatch_snap
   end if
 
   call get_command_arg_dyn(1, shpc_dir, "Required argument: SHPC-directory")
-  call read_grid(rank, shpc_dir)
+  call read_grid(shpc_dir, rank)
   call config_graph(rank)
 
   if (rank == 0) then

Overlap/Tests/test_overlap.f90

@@ -28,7 +28,7 @@ program test_overlap
   !-------------------------------------------------------------------------
 
   call get_command_arg_dyn(1, shpc_dir, "Required argument: SHPC-directory")
-  call read_grid(rank = 0, shpc_dir = shpc_dir)
+  call read_grid(shpc_dir, rank = 0)
   call config_graph(rank = 0)
 
   ! main_nml:

Overlap/Tests/test_read_eddy.f90

@@ -24,7 +24,7 @@ program test_read_eddy
   !-------------------------------------------------------------------------
 
   call get_command_arg_dyn(1, shpc_dir, "Required argument: SHPC-directory")
-  call read_grid(rank = 0, shpc_dir = shpc_dir)
+  call read_grid(shpc_dir, rank = 0)
   print *, "Enter namelist main_nml."
   read(unit = *, nml = main_nml)
   call shpc_open(hshp_in, shpc_dir, cyclone, slice = 0, &

Overlap/Tests/test_read_snapshot.f90

@@ -28,7 +28,7 @@ program test_read_snapshot
   !-------------------------------------------------------------------------
 
   call get_command_arg_dyn(1, shpc_dir, "Required argument: SHPC-directory")
-  call read_grid(rank = 0, shpc_dir = shpc_dir)
+  call read_grid(shpc_dir, rank = 0)
   call config_graph(rank = 0)
 
   ! n_slices:

Overlap/Tests/test_send_recv.f90

@@ -48,7 +48,7 @@ program test_send_recv
           "test_send_recv MPI_io MPI_ANY_SOURCE")
   end if
 
-  call read_grid(rank, shpc_dir)
+  call read_grid(shpc_dir, rank)
   call config_graph(rank)
   call shpc_open(hshp, trim(shpc_dir), cyclone = .false., slice = 0, &
        with_proj = .not. uniform_lon_lat, pszaccess = "rb")

Overlap/eddy_graph.f90

@@ -47,7 +47,7 @@ program eddy_graph
   call MPI_Comm_rank(MPI_Comm_world, rank)
   call MPI_Comm_size(MPI_Comm_world, n_proc)
   call get_command_arg_dyn(1, shpc_dir, "Required argument: SHPC-directory")
-  call read_grid(rank, shpc_dir)
+  call read_grid(shpc_dir, rank)
   call config_graph(rank)
 
   if (rank == 0) then

Overlap/read_grid.F90

@@ -19,7 +19,7 @@ module read_grid_m
 
 contains
 
-  subroutine read_grid(rank, shpc_dir)
+  subroutine read_grid(shpc_dir, rank)
 
     ! Libraries:
 #ifndef CPP_SEQUENTIAL
@@ -27,8 +27,8 @@ contains
 #endif
     use jumble, only: new_unit, deg_to_rad
 
-    integer, intent(in):: rank
     character(len = *), intent(in):: shpc_dir
+    integer, intent(in):: rank
 
     ! Local: