From f7452fff3f5d3d42fb95c7619ef717699c7524c4 Mon Sep 17 00:00:00 2001
From: Lionel GUEZ <guez@lmd.ipsl.fr>
Date: Wed, 11 Sep 2024 18:23:37 +0200
Subject: [PATCH] Invert order of arguments of procedure `read_grid`
Invert order of dummy arguments of procedure `read_grid`.
---
Overlap/Tests/test_get_dispatch_snap.f90 | 2 +-
Overlap/Tests/test_overlap.f90 | 2 +-
Overlap/Tests/test_read_eddy.f90 | 2 +-
Overlap/Tests/test_read_snapshot.f90 | 2 +-
Overlap/Tests/test_send_recv.f90 | 2 +-
Overlap/eddy_graph.f90 | 2 +-
Overlap/read_grid.F90 | 4 ++--
7 files changed, 8 insertions(+), 8 deletions(-)
diff --git a/Overlap/Tests/test_get_dispatch_snap.f90 b/Overlap/Tests/test_get_dispatch_snap.f90
index e7d40f5a..2f7870da 100644
--- a/Overlap/Tests/test_get_dispatch_snap.f90
+++ b/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
diff --git a/Overlap/Tests/test_overlap.f90 b/Overlap/Tests/test_overlap.f90
index 098f20fb..b087c326 100644
--- a/Overlap/Tests/test_overlap.f90
+++ b/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:
diff --git a/Overlap/Tests/test_read_eddy.f90 b/Overlap/Tests/test_read_eddy.f90
index 77e8f52c..cc670849 100644
--- a/Overlap/Tests/test_read_eddy.f90
+++ b/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, &
diff --git a/Overlap/Tests/test_read_snapshot.f90 b/Overlap/Tests/test_read_snapshot.f90
index 442a64d5..dfbdf3db 100644
--- a/Overlap/Tests/test_read_snapshot.f90
+++ b/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:
diff --git a/Overlap/Tests/test_send_recv.f90 b/Overlap/Tests/test_send_recv.f90
index f90e660e..580e19aa 100644
--- a/Overlap/Tests/test_send_recv.f90
+++ b/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")
diff --git a/Overlap/eddy_graph.f90 b/Overlap/eddy_graph.f90
index c68a0c5c..0c124fcb 100644
--- a/Overlap/eddy_graph.f90
+++ b/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
diff --git a/Overlap/read_grid.F90 b/Overlap/read_grid.F90
index 663e3848..93eca2fb 100644
--- a/Overlap/read_grid.F90
+++ b/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:
--
GitLab