[cig-commits] [commit] Hiro_latest: move my_rank into module calypso_mpi (d637a63)

[cig_noreply at geodynamics.org]

Repository : ssh://geoshell/calypso

On branch  : Hiro_latest
Link       : https://github.com/geodynamics/calypso/compare/93e9f8f974c7a247c8f02e54ec18de063f86c8fb...3c548304673360ddedd7d68c8095b3fb74a2b9ce

>---------------------------------------------------------------

commit d637a6301cfba6c8b2b56f2b20f4eaad90cd1599
Author: Hiroaki Matsui <h_kemono at mac.com>
Date:   Sun Sep 29 09:44:00 2013 -0700

    move my_rank into module calypso_mpi


>---------------------------------------------------------------

d637a6301cfba6c8b2b56f2b20f4eaad90cd1599
 src/Fortran_libraries/MHD_src/sph_MHD/set_comm_tbl_sph_coriolis.f90 | 2 +-
 src/Fortran_libraries/PARALLEL_src/COMM_src/calypso_mpi.f90         | 2 ++
 src/Fortran_libraries/PARALLEL_src/COMM_src/m_parallel_var_dof.f90  | 2 --
 3 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/Fortran_libraries/MHD_src/sph_MHD/set_comm_tbl_sph_coriolis.f90 b/src/Fortran_libraries/MHD_src/sph_MHD/set_comm_tbl_sph_coriolis.f90
index a417ca4..2afe76c 100644
--- a/src/Fortran_libraries/MHD_src/sph_MHD/set_comm_tbl_sph_coriolis.f90
+++ b/src/Fortran_libraries/MHD_src/sph_MHD/set_comm_tbl_sph_coriolis.f90
@@ -15,6 +15,7 @@
 !
       use m_precision
 !
+      use calypso_mpi
       use m_machine_parameter
       use m_parallel_var_dof
 !
@@ -188,7 +189,6 @@
 !
       subroutine set_sph_range_coriolis
 !
-      use calypso_mpi
       use m_constants
       use m_spheric_parameter
       use m_comm_tbl_sph_coriolis
diff --git a/src/Fortran_libraries/PARALLEL_src/COMM_src/calypso_mpi.f90 b/src/Fortran_libraries/PARALLEL_src/COMM_src/calypso_mpi.f90
index 76c15d2..75738d6 100644
--- a/src/Fortran_libraries/PARALLEL_src/COMM_src/calypso_mpi.f90
+++ b/src/Fortran_libraries/PARALLEL_src/COMM_src/calypso_mpi.f90
@@ -38,6 +38,8 @@
 !>     character size for MPI
       integer :: CALYPSO_CHARACTER
 !
+!>      process ID (start from 0)
+      integer(kind=kint) :: my_rank
 !>      total number of processes
       integer(kind=kint) :: nprocs
 !
diff --git a/src/Fortran_libraries/PARALLEL_src/COMM_src/m_parallel_var_dof.f90 b/src/Fortran_libraries/PARALLEL_src/COMM_src/m_parallel_var_dof.f90
index ca4108b..36f3525 100644
--- a/src/Fortran_libraries/PARALLEL_src/COMM_src/m_parallel_var_dof.f90
+++ b/src/Fortran_libraries/PARALLEL_src/COMM_src/m_parallel_var_dof.f90
@@ -17,8 +17,6 @@
 !
       implicit  none
 !
-!>      process ID (start from 0)
-      integer(kind=kint) :: my_rank
 !>      error flag
       integer(kind=kint) :: ierr
 !