Skip to content
Snippets Groups Projects
Commit f7452fff authored by GUEZ Lionel's avatar GUEZ Lionel
Browse files

Invert order of arguments of procedure `read_grid`

Invert order of dummy arguments of procedure `read_grid`.
parent 6d7fe80f
No related branches found
No related tags found
No related merge requests found
......@@ -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
......
......@@ -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:
......
......@@ -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, &
......
......@@ -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:
......
......@@ -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")
......
......@@ -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
......
......@@ -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:
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment