[cig-commits] [commit] Hiro_latest: delete use m_parallel_var_dof with calypso_mpi (9b5c867)
cig_noreply at geodynamics.org
cig_noreply at geodynamics.org
Mon Nov 18 16:20:52 PST 2013
Repository : ssh://geoshell/calypso
On branch : Hiro_latest
Link : https://github.com/geodynamics/calypso/compare/93e9f8f974c7a247c8f02e54ec18de063f86c8fb...3c548304673360ddedd7d68c8095b3fb74a2b9ce
>---------------------------------------------------------------
commit 9b5c867e7bebeb281b09fca4259b56ae03796b6f
Author: Hiroaki Matsui <h_kemono at mac.com>
Date: Sun Sep 29 12:12:53 2013 -0700
delete use m_parallel_var_dof with calypso_mpi
>---------------------------------------------------------------
9b5c867e7bebeb281b09fca4259b56ae03796b6f
src/Fortran_libraries/MHD_src/IO/m_ctl_data_mhd_forces.f90 | 1 -
src/Fortran_libraries/MHD_src/IO/set_control_4_force.f90 | 1 -
src/Fortran_libraries/MHD_src/IO/set_control_4_model.f90 | 1 -
src/Fortran_libraries/MHD_src/IO/set_control_4_normalize.f90 | 1 -
src/Fortran_libraries/MHD_src/IO/set_control_4_time_steps.f90 | 1 -
src/Fortran_libraries/MHD_src/field_data/cal_max_indices.f90 | 1 -
src/Fortran_libraries/MHD_src/sph_MHD/check_dependency_for_MHD.f90 | 1 -
src/Fortran_libraries/MHD_src/sph_MHD/check_field_dependency.f90 | 1 -
src/Fortran_libraries/MHD_src/sph_MHD/construct_MHD_coefficient.f90 | 1 -
src/Fortran_libraries/MHD_src/sph_MHD/global_field_4_dynamobench.f90 | 2 --
src/Fortran_libraries/MHD_src/sph_MHD/set_comm_tbl_sph_coriolis.f90 | 1 -
src/Fortran_libraries/MHD_src/sph_MHD/set_control_sph_data_MHD.f90 | 1 -
src/Fortran_libraries/MHD_src/sph_MHD/solver_sph_coriolis_sr.f90 | 1 -
src/Fortran_libraries/MHD_src/sph_MHD/sph_MHD_circle_transform.f90 | 1 -
src/Fortran_libraries/MHD_src/sph_MHD/sph_transforms_4_MHD.f90 | 1 -
src/Fortran_libraries/PARALLEL_src/COMM_src/calypso_mpi.f90 | 2 ++
src/Fortran_libraries/PARALLEL_src/COMM_src/hdf5_file_IO.F90 | 1 -
src/Fortran_libraries/PARALLEL_src/COMM_src/m_merged_ucd_data.f90 | 5 ++---
src/Fortran_libraries/PARALLEL_src/COMM_src/m_parallel_var_dof.f90 | 5 +----
src/Fortran_libraries/PARALLEL_src/COMM_src/m_work_time.f90 | 5 +----
src/Fortran_libraries/PARALLEL_src/COMM_src/merged_ucd_data_IO.f90 | 1 -
src/Fortran_libraries/PARALLEL_src/COMM_src/merged_vtk_data_IO.f90 | 1 -
.../PARALLEL_src/COMM_src/set_ctl_parallel_platform.f90 | 1 -
src/Fortran_libraries/PARALLEL_src/COMM_src/spherical_SR.f90 | 1 -
src/Fortran_libraries/PARALLEL_src/COMM_src/spherical_SR_3.f90 | 1 -
src/Fortran_libraries/PARALLEL_src/COMM_src/spherical_SR_rev.f90 | 1 -
src/Fortran_libraries/PARALLEL_src/COMM_src/spherical_SR_rev_3.f90 | 1 -
.../PARALLEL_src/SPH_SHELL_src/cal_rms_fields_by_sph.f90 | 5 ++---
.../PARALLEL_src/SPH_SHELL_src/pickup_sph_coefs.f90 | 1 -
.../PARALLEL_src/SPH_SHELL_src/pickup_sph_rms_spectr.f90 | 2 --
.../PARALLEL_src/SPH_SHELL_src/r_interpolate_sph_data.f90 | 3 +--
.../PARALLEL_src/SPH_SHELL_src/select_fourier_transform.F90 | 4 +---
src/Fortran_libraries/PARALLEL_src/SPH_SHELL_src/spherical_SRs.f90 | 1 -
src/Fortran_libraries/PARALLEL_src/SPH_SHELL_src/spherical_SRs_2.f90 | 1 -
src/Fortran_libraries/PARALLEL_src/SPH_SHELL_src/spherical_SRs_3.f90 | 1 -
src/Fortran_libraries/PARALLEL_src/SPH_SHELL_src/spherical_SRs_6.f90 | 1 -
src/Fortran_libraries/PARALLEL_src/SPH_SHELL_src/spherical_SRs_N.f90 | 1 -
.../PARALLEL_src/SPH_SHELL_src/spherical_SRs_int.f90 | 1 -
.../PARALLEL_src/SPH_SHELL_src/sum_b_trans_at_pole.f90 | 1 -
.../PARALLEL_src/SPH_SHELL_src/sum_sph_rms_data.f90 | 1 -
src/programs/SPH_MHD/analyzer_sph_MHD.f90 | 1 -
src/programs/data_utilities/SNAPSHOT_MHD/analyzer_noviz_sph_snap.f90 | 1 -
.../data_utilities/SNAPSHOT_MHD/analyzer_noviz_sph_zm_snap.f90 | 1 -
.../data_utilities/SNAPSHOT_MHD/analyzer_sph_dynamobench.f90 | 1 -
44 files changed, 10 insertions(+), 58 deletions(-)
diff --git a/src/Fortran_libraries/MHD_src/IO/m_ctl_data_mhd_forces.f90 b/src/Fortran_libraries/MHD_src/IO/m_ctl_data_mhd_forces.f90
index b516bd5..3a81d3a 100644
--- a/src/Fortran_libraries/MHD_src/IO/m_ctl_data_mhd_forces.f90
+++ b/src/Fortran_libraries/MHD_src/IO/m_ctl_data_mhd_forces.f90
@@ -72,7 +72,6 @@
use m_precision
!
use m_constants
- use m_parallel_var_dof
use m_machine_parameter
use m_read_control_elements
use calypso_mpi
diff --git a/src/Fortran_libraries/MHD_src/IO/set_control_4_force.f90 b/src/Fortran_libraries/MHD_src/IO/set_control_4_force.f90
index 7e393bb..d497f2d 100644
--- a/src/Fortran_libraries/MHD_src/IO/set_control_4_force.f90
+++ b/src/Fortran_libraries/MHD_src/IO/set_control_4_force.f90
@@ -26,7 +26,6 @@
subroutine s_set_control_4_force
!
use calypso_mpi
- use m_parallel_var_dof
use m_machine_parameter
use m_control_parameter
use m_ctl_data_mhd_forces
diff --git a/src/Fortran_libraries/MHD_src/IO/set_control_4_model.f90 b/src/Fortran_libraries/MHD_src/IO/set_control_4_model.f90
index 6b58a98..f12e1c6 100644
--- a/src/Fortran_libraries/MHD_src/IO/set_control_4_model.f90
+++ b/src/Fortran_libraries/MHD_src/IO/set_control_4_model.f90
@@ -33,7 +33,6 @@
subroutine s_set_control_4_model
!
use calypso_mpi
- use m_parallel_var_dof
use m_t_step_parameter
use m_phys_labels
use m_physical_property
diff --git a/src/Fortran_libraries/MHD_src/IO/set_control_4_normalize.f90 b/src/Fortran_libraries/MHD_src/IO/set_control_4_normalize.f90
index fa70fe8..50850bd 100644
--- a/src/Fortran_libraries/MHD_src/IO/set_control_4_normalize.f90
+++ b/src/Fortran_libraries/MHD_src/IO/set_control_4_normalize.f90
@@ -26,7 +26,6 @@
subroutine s_set_control_4_normalize
!
use calypso_mpi
- use m_parallel_var_dof
use m_machine_parameter
use m_control_parameter
use m_normalize_parameter
diff --git a/src/Fortran_libraries/MHD_src/IO/set_control_4_time_steps.f90 b/src/Fortran_libraries/MHD_src/IO/set_control_4_time_steps.f90
index 458b6b2..d063e39 100644
--- a/src/Fortran_libraries/MHD_src/IO/set_control_4_time_steps.f90
+++ b/src/Fortran_libraries/MHD_src/IO/set_control_4_time_steps.f90
@@ -17,7 +17,6 @@
use m_precision
!
use calypso_mpi
- use m_parallel_var_dof
use m_machine_parameter
use m_control_parameter
use m_ctl_data_4_time_steps
diff --git a/src/Fortran_libraries/MHD_src/field_data/cal_max_indices.f90 b/src/Fortran_libraries/MHD_src/field_data/cal_max_indices.f90
index cc47924..7b12fcd 100644
--- a/src/Fortran_libraries/MHD_src/field_data/cal_max_indices.f90
+++ b/src/Fortran_libraries/MHD_src/field_data/cal_max_indices.f90
@@ -26,7 +26,6 @@
subroutine s_cal_max_indices
!
use calypso_mpi
- use m_parallel_var_dof
use m_cal_max_indices
use m_geometry_parameter
use m_geometry_data
diff --git a/src/Fortran_libraries/MHD_src/sph_MHD/check_dependency_for_MHD.f90 b/src/Fortran_libraries/MHD_src/sph_MHD/check_dependency_for_MHD.f90
index 04a25ef..1a16dc2 100644
--- a/src/Fortran_libraries/MHD_src/sph_MHD/check_dependency_for_MHD.f90
+++ b/src/Fortran_libraries/MHD_src/sph_MHD/check_dependency_for_MHD.f90
@@ -29,7 +29,6 @@
subroutine check_dependencies(num_nod_phys, phys_nod_name)
!
use calypso_mpi
- use m_parallel_var_dof
use m_control_parameter
use m_phys_labels
!
diff --git a/src/Fortran_libraries/MHD_src/sph_MHD/check_field_dependency.f90 b/src/Fortran_libraries/MHD_src/sph_MHD/check_field_dependency.f90
index 110e616..aed051b 100644
--- a/src/Fortran_libraries/MHD_src/sph_MHD/check_field_dependency.f90
+++ b/src/Fortran_libraries/MHD_src/sph_MHD/check_field_dependency.f90
@@ -34,7 +34,6 @@
& target_name, phys_nod_name, phys_check_name)
!
use calypso_mpi
- use m_parallel_var_dof
!
integer(kind=kint) :: num_nod_phys, num_check
character(len=kchara) :: target_name
diff --git a/src/Fortran_libraries/MHD_src/sph_MHD/construct_MHD_coefficient.f90 b/src/Fortran_libraries/MHD_src/sph_MHD/construct_MHD_coefficient.f90
index 4eee28a..dfd8aa9 100644
--- a/src/Fortran_libraries/MHD_src/sph_MHD/construct_MHD_coefficient.f90
+++ b/src/Fortran_libraries/MHD_src/sph_MHD/construct_MHD_coefficient.f90
@@ -54,7 +54,6 @@
& r_low_t, r_high_t)
!
use calypso_mpi
- use m_parallel_var_dof
!
integer (kind = kint), intent(in) :: num_dimless
character(len=kchara), intent(in) :: name_dimless(num_dimless)
diff --git a/src/Fortran_libraries/MHD_src/sph_MHD/global_field_4_dynamobench.f90 b/src/Fortran_libraries/MHD_src/sph_MHD/global_field_4_dynamobench.f90
index 093c43a..5ed0066 100644
--- a/src/Fortran_libraries/MHD_src/sph_MHD/global_field_4_dynamobench.f90
+++ b/src/Fortran_libraries/MHD_src/sph_MHD/global_field_4_dynamobench.f90
@@ -88,7 +88,6 @@
subroutine pick_inner_core_rotation
!
use calypso_mpi
- use m_parallel_var_dof
use m_spheric_parameter
use m_sph_spectr_data
use m_sph_phys_address
@@ -117,7 +116,6 @@
subroutine pick_mag_torque_inner_core
!
use calypso_mpi
- use m_parallel_var_dof
use m_spheric_parameter
use m_sph_spectr_data
use m_sph_phys_address
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 6084c08..11a037e 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
@@ -17,7 +17,6 @@
!
use calypso_mpi
use m_machine_parameter
- use m_parallel_var_dof
!
implicit none
!
diff --git a/src/Fortran_libraries/MHD_src/sph_MHD/set_control_sph_data_MHD.f90 b/src/Fortran_libraries/MHD_src/sph_MHD/set_control_sph_data_MHD.f90
index 2181891..a62fc44 100644
--- a/src/Fortran_libraries/MHD_src/sph_MHD/set_control_sph_data_MHD.f90
+++ b/src/Fortran_libraries/MHD_src/sph_MHD/set_control_sph_data_MHD.f90
@@ -28,7 +28,6 @@
subroutine s_set_control_sph_data_MHD
!
use calypso_mpi
- use m_parallel_var_dof
use m_machine_parameter
use m_node_phys_data
use m_ctl_data_4_platforms
diff --git a/src/Fortran_libraries/MHD_src/sph_MHD/solver_sph_coriolis_sr.f90 b/src/Fortran_libraries/MHD_src/sph_MHD/solver_sph_coriolis_sr.f90
index 3199140..99273f8 100644
--- a/src/Fortran_libraries/MHD_src/sph_MHD/solver_sph_coriolis_sr.f90
+++ b/src/Fortran_libraries/MHD_src/sph_MHD/solver_sph_coriolis_sr.f90
@@ -32,7 +32,6 @@
use m_precision
!
use calypso_mpi
- use m_parallel_var_dof
use m_comm_tbl_sph_coriolis
!
implicit none
diff --git a/src/Fortran_libraries/MHD_src/sph_MHD/sph_MHD_circle_transform.f90 b/src/Fortran_libraries/MHD_src/sph_MHD/sph_MHD_circle_transform.f90
index d19d815..f8108a2 100644
--- a/src/Fortran_libraries/MHD_src/sph_MHD/sph_MHD_circle_transform.f90
+++ b/src/Fortran_libraries/MHD_src/sph_MHD/sph_MHD_circle_transform.f90
@@ -116,7 +116,6 @@
subroutine collect_spectr_for_circle
!
use calypso_mpi
- use m_parallel_var_dof
use m_sph_spectr_data
use m_sph_phys_address
!
diff --git a/src/Fortran_libraries/MHD_src/sph_MHD/sph_transforms_4_MHD.f90 b/src/Fortran_libraries/MHD_src/sph_MHD/sph_transforms_4_MHD.f90
index b4bea93..beb0644 100644
--- a/src/Fortran_libraries/MHD_src/sph_MHD/sph_transforms_4_MHD.f90
+++ b/src/Fortran_libraries/MHD_src/sph_MHD/sph_transforms_4_MHD.f90
@@ -158,7 +158,6 @@
subroutine select_legendre_transform
!
use calypso_mpi
- use m_parallel_var_dof
use m_machine_parameter
use m_work_4_sph_trans
!
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 9af070b..dbf799d 100644
--- a/src/Fortran_libraries/PARALLEL_src/COMM_src/calypso_mpi.f90
+++ b/src/Fortran_libraries/PARALLEL_src/COMM_src/calypso_mpi.f90
@@ -45,6 +45,8 @@
!> error flag for MPI
integer(kind=kint) :: ierr_MPI
!
+ real(kind=kreal) :: START_TIME, END_TIME, COMMtime
+!
! ----------------------------------------------------------------------
!
contains
diff --git a/src/Fortran_libraries/PARALLEL_src/COMM_src/hdf5_file_IO.F90 b/src/Fortran_libraries/PARALLEL_src/COMM_src/hdf5_file_IO.F90
index 5e5820c..5203f75 100644
--- a/src/Fortran_libraries/PARALLEL_src/COMM_src/hdf5_file_IO.F90
+++ b/src/Fortran_libraries/PARALLEL_src/COMM_src/hdf5_file_IO.F90
@@ -26,7 +26,6 @@
use calypso_mpi
use m_constants
use m_ucd_data
- use m_parallel_var_dof
use m_phys_constants
use m_merged_ucd_data
use set_ucd_data
diff --git a/src/Fortran_libraries/PARALLEL_src/COMM_src/m_merged_ucd_data.f90 b/src/Fortran_libraries/PARALLEL_src/COMM_src/m_merged_ucd_data.f90
index b1ac172..3737384 100644
--- a/src/Fortran_libraries/PARALLEL_src/COMM_src/m_merged_ucd_data.f90
+++ b/src/Fortran_libraries/PARALLEL_src/COMM_src/m_merged_ucd_data.f90
@@ -17,7 +17,8 @@
!
use m_precision
use m_constants
- use m_parallel_var_dof
+!
+ use calypso_mpi
!
implicit none
!
@@ -143,8 +144,6 @@
!
subroutine count_merged_ucd(nnod, internal_node, nele)
!
- use calypso_mpi
-!
integer(kind = kint), intent(in) :: nnod, internal_node, nele
!
integer(kind = kint) :: ip
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 d8ffee7..138b7a9 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
@@ -13,15 +13,12 @@
module m_parallel_var_dof
!
use calypso_mpi
- use m_precision
!
implicit none
!
- real(kind=kreal) :: START_TIME, END_TIME, COMMtime
-!
! ----------------------------------------------------------------------
!
- contains
+! contains
!
! ----------------------------------------------------------------------
!
diff --git a/src/Fortran_libraries/PARALLEL_src/COMM_src/m_work_time.f90 b/src/Fortran_libraries/PARALLEL_src/COMM_src/m_work_time.f90
index 9729179..9c0fa53 100644
--- a/src/Fortran_libraries/PARALLEL_src/COMM_src/m_work_time.f90
+++ b/src/Fortran_libraries/PARALLEL_src/COMM_src/m_work_time.f90
@@ -85,7 +85,6 @@
subroutine start_eleps_time(iflag_elps)
!
use calypso_mpi
- use m_parallel_var_dof
!
integer(kind = kint), intent(in) :: iflag_elps
!
@@ -99,7 +98,6 @@
subroutine end_eleps_time(iflag_elps)
!
use calypso_mpi
- use m_parallel_var_dof
!
integer(kind = kint), intent(in) :: iflag_elps
!
@@ -114,7 +112,7 @@
!
subroutine copy_COMM_TIME_to_eleps(iflag_elps)
!
- use m_parallel_var_dof
+ use calypso_mpi
!
integer(kind = kint), intent(in) :: iflag_elps
!
@@ -129,7 +127,6 @@
subroutine output_elapsed_times
!
use calypso_mpi
- use m_parallel_var_dof
!
integer(kind = kint) :: i
!
diff --git a/src/Fortran_libraries/PARALLEL_src/COMM_src/merged_ucd_data_IO.f90 b/src/Fortran_libraries/PARALLEL_src/COMM_src/merged_ucd_data_IO.f90
index bf5ed59..1e39475 100644
--- a/src/Fortran_libraries/PARALLEL_src/COMM_src/merged_ucd_data_IO.f90
+++ b/src/Fortran_libraries/PARALLEL_src/COMM_src/merged_ucd_data_IO.f90
@@ -18,7 +18,6 @@
use m_precision
use calypso_mpi
use m_constants
- use m_parallel_var_dof
!
use m_merged_ucd_data
!
diff --git a/src/Fortran_libraries/PARALLEL_src/COMM_src/merged_vtk_data_IO.f90 b/src/Fortran_libraries/PARALLEL_src/COMM_src/merged_vtk_data_IO.f90
index aee54e0..7264d1e 100644
--- a/src/Fortran_libraries/PARALLEL_src/COMM_src/merged_vtk_data_IO.f90
+++ b/src/Fortran_libraries/PARALLEL_src/COMM_src/merged_vtk_data_IO.f90
@@ -20,7 +20,6 @@
!
use calypso_mpi
use m_constants
- use m_parallel_var_dof
use vtk_data_IO
!
implicit none
diff --git a/src/Fortran_libraries/PARALLEL_src/COMM_src/set_ctl_parallel_platform.f90 b/src/Fortran_libraries/PARALLEL_src/COMM_src/set_ctl_parallel_platform.f90
index 614fea3..adb334d 100644
--- a/src/Fortran_libraries/PARALLEL_src/COMM_src/set_ctl_parallel_platform.f90
+++ b/src/Fortran_libraries/PARALLEL_src/COMM_src/set_ctl_parallel_platform.f90
@@ -13,7 +13,6 @@
!
use m_constants
use m_machine_parameter
- use m_parallel_var_dof
use m_ctl_data_4_platforms
use calypso_mpi
!
diff --git a/src/Fortran_libraries/PARALLEL_src/COMM_src/spherical_SR.f90 b/src/Fortran_libraries/PARALLEL_src/COMM_src/spherical_SR.f90
index 32b91a9..128c197 100644
--- a/src/Fortran_libraries/PARALLEL_src/COMM_src/spherical_SR.f90
+++ b/src/Fortran_libraries/PARALLEL_src/COMM_src/spherical_SR.f90
@@ -61,7 +61,6 @@
& X_org, X_new)
!
use calypso_mpi
-!
use m_solver_SR
!
integer(kind = kint), intent(in) :: nnod_org
diff --git a/src/Fortran_libraries/PARALLEL_src/COMM_src/spherical_SR_3.f90 b/src/Fortran_libraries/PARALLEL_src/COMM_src/spherical_SR_3.f90
index b7f3bc6..0d77378 100644
--- a/src/Fortran_libraries/PARALLEL_src/COMM_src/spherical_SR_3.f90
+++ b/src/Fortran_libraries/PARALLEL_src/COMM_src/spherical_SR_3.f90
@@ -61,7 +61,6 @@
& X_org, X_new)
!
use calypso_mpi
-!
use m_solver_SR
!
integer(kind = kint), intent(in) :: nnod_org
diff --git a/src/Fortran_libraries/PARALLEL_src/COMM_src/spherical_SR_rev.f90 b/src/Fortran_libraries/PARALLEL_src/COMM_src/spherical_SR_rev.f90
index 5294b15..d1ce47c 100644
--- a/src/Fortran_libraries/PARALLEL_src/COMM_src/spherical_SR_rev.f90
+++ b/src/Fortran_libraries/PARALLEL_src/COMM_src/spherical_SR_rev.f90
@@ -61,7 +61,6 @@
& X_org, X_new)
!
use calypso_mpi
-!
use m_solver_SR
!
integer(kind = kint), intent(in) :: nnod_org
diff --git a/src/Fortran_libraries/PARALLEL_src/COMM_src/spherical_SR_rev_3.f90 b/src/Fortran_libraries/PARALLEL_src/COMM_src/spherical_SR_rev_3.f90
index 7dbacf0..51685c2 100644
--- a/src/Fortran_libraries/PARALLEL_src/COMM_src/spherical_SR_rev_3.f90
+++ b/src/Fortran_libraries/PARALLEL_src/COMM_src/spherical_SR_rev_3.f90
@@ -61,7 +61,6 @@
& X_org, X_new)
!
use calypso_mpi
-!
use m_solver_SR
!
integer(kind = kint), intent(in) :: nnod_org
diff --git a/src/Fortran_libraries/PARALLEL_src/SPH_SHELL_src/cal_rms_fields_by_sph.f90 b/src/Fortran_libraries/PARALLEL_src/SPH_SHELL_src/cal_rms_fields_by_sph.f90
index c5472f5..25cefa9 100644
--- a/src/Fortran_libraries/PARALLEL_src/SPH_SHELL_src/cal_rms_fields_by_sph.f90
+++ b/src/Fortran_libraries/PARALLEL_src/SPH_SHELL_src/cal_rms_fields_by_sph.f90
@@ -112,7 +112,6 @@
subroutine cal_rms_sph_spec_local
!
use calypso_mpi
- use m_parallel_var_dof
use m_spheric_parameter
use m_phys_constants
use m_sph_spectr_data
@@ -163,7 +162,7 @@
!
subroutine r_int_sph_rms_data(kg_st, kg_ed)
!
- use m_parallel_var_dof
+ use calypso_mpi
use m_spheric_parameter
use m_phys_constants
use m_sph_spectr_data
@@ -207,7 +206,7 @@
!
subroutine cal_average_for_sph_rms(kg_st, kg_ed)
!
- use m_parallel_var_dof
+ use calypso_mpi
use m_spheric_parameter
use m_phys_constants
use m_sph_spectr_data
diff --git a/src/Fortran_libraries/PARALLEL_src/SPH_SHELL_src/pickup_sph_coefs.f90 b/src/Fortran_libraries/PARALLEL_src/SPH_SHELL_src/pickup_sph_coefs.f90
index 2417668..769747d 100644
--- a/src/Fortran_libraries/PARALLEL_src/SPH_SHELL_src/pickup_sph_coefs.f90
+++ b/src/Fortran_libraries/PARALLEL_src/SPH_SHELL_src/pickup_sph_coefs.f90
@@ -77,7 +77,6 @@
subroutine pickup_sph_spec_4_monitor
!
use calypso_mpi
- use m_parallel_var_dof
!
integer(kind = kint) :: inum, knum, j, k, nd,icou, i_fld
integer(kind = kint) :: inod, ipick, num, ist_comp, ncomp
diff --git a/src/Fortran_libraries/PARALLEL_src/SPH_SHELL_src/pickup_sph_rms_spectr.f90 b/src/Fortran_libraries/PARALLEL_src/SPH_SHELL_src/pickup_sph_rms_spectr.f90
index 26861ea..e1195a4 100644
--- a/src/Fortran_libraries/PARALLEL_src/SPH_SHELL_src/pickup_sph_rms_spectr.f90
+++ b/src/Fortran_libraries/PARALLEL_src/SPH_SHELL_src/pickup_sph_rms_spectr.f90
@@ -85,7 +85,6 @@
subroutine pickup_sph_rms_4_monitor
!
use calypso_mpi
- use m_parallel_var_dof
!
integer(kind = kint) :: inum, knum, j, k, nd
integer(kind = kint) :: inod, ipick, num
@@ -127,7 +126,6 @@
subroutine pickup_sph_rms_vol_monitor
!
use calypso_mpi
- use m_parallel_var_dof
!
integer(kind = kint) :: inum, j, nd, num
!
diff --git a/src/Fortran_libraries/PARALLEL_src/SPH_SHELL_src/r_interpolate_sph_data.f90 b/src/Fortran_libraries/PARALLEL_src/SPH_SHELL_src/r_interpolate_sph_data.f90
index 21741bc..6b4198e 100644
--- a/src/Fortran_libraries/PARALLEL_src/SPH_SHELL_src/r_interpolate_sph_data.f90
+++ b/src/Fortran_libraries/PARALLEL_src/SPH_SHELL_src/r_interpolate_sph_data.f90
@@ -21,7 +21,7 @@
use m_precision
!
use m_constants
- use m_parallel_var_dof
+ use calypso_mpi
use m_spheric_parameter
!
implicit none
@@ -253,7 +253,6 @@
!
subroutine copy_original_sph_rj_from_IO
!
- use calypso_mpi
use m_node_id_spherical_IO
use m_comm_data_IO
use m_group_data_sph_specr_IO
diff --git a/src/Fortran_libraries/PARALLEL_src/SPH_SHELL_src/select_fourier_transform.F90 b/src/Fortran_libraries/PARALLEL_src/SPH_SHELL_src/select_fourier_transform.F90
index b517022..ac71df0 100644
--- a/src/Fortran_libraries/PARALLEL_src/SPH_SHELL_src/select_fourier_transform.F90
+++ b/src/Fortran_libraries/PARALLEL_src/SPH_SHELL_src/select_fourier_transform.F90
@@ -14,7 +14,7 @@
!
use m_precision
!
- use m_parallel_var_dof
+ use calypso_mpi
use m_work_time
use m_machine_parameter
use m_spheric_parameter
@@ -94,8 +94,6 @@
!
subroutine test_fourier_trans_vector(ncomp, Nstacksmp, etime_fft)
!
- use calypso_mpi
-!
integer(kind = kint), intent(in) :: ncomp
integer(kind = kint), intent(in) :: Nstacksmp(0:np_smp)
real(kind = kreal), intent(inout) :: etime_fft
diff --git a/src/Fortran_libraries/PARALLEL_src/SPH_SHELL_src/spherical_SRs.f90 b/src/Fortran_libraries/PARALLEL_src/SPH_SHELL_src/spherical_SRs.f90
index 59ffa37..75fdf2c 100644
--- a/src/Fortran_libraries/PARALLEL_src/SPH_SHELL_src/spherical_SRs.f90
+++ b/src/Fortran_libraries/PARALLEL_src/SPH_SHELL_src/spherical_SRs.f90
@@ -42,7 +42,6 @@
subroutine init_sph_send_recv_1(X_rtp, X_rtm, X_rlm, X_rj)
!
use calypso_mpi
- use m_parallel_var_dof
!
use m_spheric_parameter
use m_sph_trans_comm_table
diff --git a/src/Fortran_libraries/PARALLEL_src/SPH_SHELL_src/spherical_SRs_2.f90 b/src/Fortran_libraries/PARALLEL_src/SPH_SHELL_src/spherical_SRs_2.f90
index 549b981..d8269b6 100644
--- a/src/Fortran_libraries/PARALLEL_src/SPH_SHELL_src/spherical_SRs_2.f90
+++ b/src/Fortran_libraries/PARALLEL_src/SPH_SHELL_src/spherical_SRs_2.f90
@@ -47,7 +47,6 @@
subroutine init_sph_send_recv_2(X_rtp, X_rtm, X_rlm, X_rj)
!
use calypso_mpi
- use m_parallel_var_dof
!
use m_spheric_parameter
use m_sph_trans_comm_table
diff --git a/src/Fortran_libraries/PARALLEL_src/SPH_SHELL_src/spherical_SRs_3.f90 b/src/Fortran_libraries/PARALLEL_src/SPH_SHELL_src/spherical_SRs_3.f90
index 8d73e53..2064d5d 100644
--- a/src/Fortran_libraries/PARALLEL_src/SPH_SHELL_src/spherical_SRs_3.f90
+++ b/src/Fortran_libraries/PARALLEL_src/SPH_SHELL_src/spherical_SRs_3.f90
@@ -46,7 +46,6 @@
subroutine init_sph_send_recv_3(X_rtp, X_rtm, X_rlm, X_rj)
!
use calypso_mpi
- use m_parallel_var_dof
!
use m_spheric_parameter
use m_sph_trans_comm_table
diff --git a/src/Fortran_libraries/PARALLEL_src/SPH_SHELL_src/spherical_SRs_6.f90 b/src/Fortran_libraries/PARALLEL_src/SPH_SHELL_src/spherical_SRs_6.f90
index 4e60908..06213f3 100644
--- a/src/Fortran_libraries/PARALLEL_src/SPH_SHELL_src/spherical_SRs_6.f90
+++ b/src/Fortran_libraries/PARALLEL_src/SPH_SHELL_src/spherical_SRs_6.f90
@@ -46,7 +46,6 @@
subroutine init_sph_send_recv_6(X_rtp, X_rtm, X_rlm, X_rj)
!
use calypso_mpi
- use m_parallel_var_dof
use m_spheric_parameter
use m_sph_trans_comm_table
!
diff --git a/src/Fortran_libraries/PARALLEL_src/SPH_SHELL_src/spherical_SRs_N.f90 b/src/Fortran_libraries/PARALLEL_src/SPH_SHELL_src/spherical_SRs_N.f90
index 6079cf9..fff4110 100644
--- a/src/Fortran_libraries/PARALLEL_src/SPH_SHELL_src/spherical_SRs_N.f90
+++ b/src/Fortran_libraries/PARALLEL_src/SPH_SHELL_src/spherical_SRs_N.f90
@@ -49,7 +49,6 @@
subroutine init_sph_send_recv_N(NB, X_rtp, X_rtm, X_rlm, X_rj)
!
use calypso_mpi
- use m_parallel_var_dof
!
use m_spheric_parameter
use m_sph_trans_comm_table
diff --git a/src/Fortran_libraries/PARALLEL_src/SPH_SHELL_src/spherical_SRs_int.f90 b/src/Fortran_libraries/PARALLEL_src/SPH_SHELL_src/spherical_SRs_int.f90
index 307c2bc..ef6f324 100644
--- a/src/Fortran_libraries/PARALLEL_src/SPH_SHELL_src/spherical_SRs_int.f90
+++ b/src/Fortran_libraries/PARALLEL_src/SPH_SHELL_src/spherical_SRs_int.f90
@@ -41,7 +41,6 @@
subroutine init_sph_send_recv_int(iX_rtp, iX_rtm, iX_rlm, iX_rj)
!
use calypso_mpi
- use m_parallel_var_dof
!
use m_spheric_parameter
use m_sph_trans_comm_table
diff --git a/src/Fortran_libraries/PARALLEL_src/SPH_SHELL_src/sum_b_trans_at_pole.f90 b/src/Fortran_libraries/PARALLEL_src/SPH_SHELL_src/sum_b_trans_at_pole.f90
index 47dba9c..53025b7 100644
--- a/src/Fortran_libraries/PARALLEL_src/SPH_SHELL_src/sum_b_trans_at_pole.f90
+++ b/src/Fortran_libraries/PARALLEL_src/SPH_SHELL_src/sum_b_trans_at_pole.f90
@@ -72,7 +72,6 @@
use m_constants
use m_machine_parameter
use m_spheric_parameter
- use m_parallel_var_dof
use m_phys_constants
!
use m_work_pole_sph_trans
diff --git a/src/Fortran_libraries/PARALLEL_src/SPH_SHELL_src/sum_sph_rms_data.f90 b/src/Fortran_libraries/PARALLEL_src/SPH_SHELL_src/sum_sph_rms_data.f90
index 8b58c40..fcac6a8 100644
--- a/src/Fortran_libraries/PARALLEL_src/SPH_SHELL_src/sum_sph_rms_data.f90
+++ b/src/Fortran_libraries/PARALLEL_src/SPH_SHELL_src/sum_sph_rms_data.f90
@@ -174,7 +174,6 @@
subroutine sum_sph_layerd_rms
!
use calypso_mpi
- use m_parallel_var_dof
use m_spheric_parameter
use m_rms_4_sph_spectr
!
diff --git a/src/programs/SPH_MHD/analyzer_sph_MHD.f90 b/src/programs/SPH_MHD/analyzer_sph_MHD.f90
index 0c0e0e8..b516d09 100644
--- a/src/programs/SPH_MHD/analyzer_sph_MHD.f90
+++ b/src/programs/SPH_MHD/analyzer_sph_MHD.f90
@@ -18,7 +18,6 @@
use calypso_mpi
!
use m_machine_parameter
- use m_parallel_var_dof
use m_work_time
use m_control_parameter
use m_control_params_sph_MHD
diff --git a/src/programs/data_utilities/SNAPSHOT_MHD/analyzer_noviz_sph_snap.f90 b/src/programs/data_utilities/SNAPSHOT_MHD/analyzer_noviz_sph_snap.f90
index f681b10..8880e92 100644
--- a/src/programs/data_utilities/SNAPSHOT_MHD/analyzer_noviz_sph_snap.f90
+++ b/src/programs/data_utilities/SNAPSHOT_MHD/analyzer_noviz_sph_snap.f90
@@ -18,7 +18,6 @@
use calypso_mpi
!
use m_machine_parameter
- use m_parallel_var_dof
use m_work_time
use m_control_parameter
use m_control_params_sph_MHD
diff --git a/src/programs/data_utilities/SNAPSHOT_MHD/analyzer_noviz_sph_zm_snap.f90 b/src/programs/data_utilities/SNAPSHOT_MHD/analyzer_noviz_sph_zm_snap.f90
index 718ca29..d2c5294 100644
--- a/src/programs/data_utilities/SNAPSHOT_MHD/analyzer_noviz_sph_zm_snap.f90
+++ b/src/programs/data_utilities/SNAPSHOT_MHD/analyzer_noviz_sph_zm_snap.f90
@@ -17,7 +17,6 @@
use calypso_mpi
!
use m_machine_parameter
- use m_parallel_var_dof
use m_work_time
use m_control_parameter
use m_control_params_sph_MHD
diff --git a/src/programs/data_utilities/SNAPSHOT_MHD/analyzer_sph_dynamobench.f90 b/src/programs/data_utilities/SNAPSHOT_MHD/analyzer_sph_dynamobench.f90
index 88d61ff..9c70c57 100644
--- a/src/programs/data_utilities/SNAPSHOT_MHD/analyzer_sph_dynamobench.f90
+++ b/src/programs/data_utilities/SNAPSHOT_MHD/analyzer_sph_dynamobench.f90
@@ -18,7 +18,6 @@
use calypso_mpi
!
use m_machine_parameter
- use m_parallel_var_dof
use m_work_time
use m_control_parameter
use m_control_params_sph_MHD
More information about the CIG-COMMITS
mailing list