[cig-commits] [commit] Hiro_latest: Delete m_parallel_var_dof (4dfe9a7)
cig_noreply at geodynamics.org
cig_noreply at geodynamics.org
Mon Nov 18 16:21:00 PST 2013
Repository : ssh://geoshell/calypso
On branch : Hiro_latest
Link : https://github.com/geodynamics/calypso/compare/93e9f8f974c7a247c8f02e54ec18de063f86c8fb...3c548304673360ddedd7d68c8095b3fb74a2b9ce
>---------------------------------------------------------------
commit 4dfe9a718352073434b2500141ec02b763d84d8c
Author: Hiroaki Matsui <h_kemono at mac.com>
Date: Tue Oct 8 17:23:52 2013 -0700
Delete m_parallel_var_dof
>---------------------------------------------------------------
4dfe9a718352073434b2500141ec02b763d84d8c
.../MHD_src/IO/check_read_bc_file.f90 | 2 +-
src/Fortran_libraries/MHD_src/IO/range_data_IO.f90 | 4 +-
.../MHD_src/IO/set_control_4_composition.f90 | 2 +-
.../MHD_src/IO/set_control_4_magne.f90 | 2 +-
.../MHD_src/IO/set_control_4_press.f90 | 2 +-
.../MHD_src/IO/set_control_4_temp.f90 | 2 +-
.../MHD_src/IO/set_control_4_velo.f90 | 2 +-
.../MHD_src/IO/sph_mhd_rms_IO.f90 | 2 +-
.../MHD_src/IO/sph_mhd_rst_IO_control.f90 | 2 +-
.../MHD_src/field_data/node_monitor_IO.f90 | 4 +-
.../MHD_src/field_data/output_ucd_file_control.f90 | 2 +-
.../MHD_src/sph_MHD/FEM_analyzer_sph_MHD.f90 | 2 +-
.../MHD_src/sph_MHD/cal_momentum_eq_explicit.f90 | 2 +-
.../MHD_src/sph_MHD/cal_nonlinear.f90 | 2 +-
.../MHD_src/sph_MHD/cal_sol_sph_MHD_crank.f90 | 2 +-
.../MHD_src/sph_MHD/cal_sol_sph_fluid_crank.f90 | 2 +-
.../MHD_src/sph_MHD/cal_sph_field_by_rotation.f90 | 6 +-
.../MHD_src/sph_MHD/const_coriolis_sph.f90 | 2 +-
.../MHD_src/sph_MHD/const_data_4_dynamobench.f90 | 2 +-
.../MHD_src/sph_MHD/const_radial_mat_4_sph.f90 | 2 +-
.../MHD_src/sph_MHD/const_wz_coriolis_rtp.f90 | 2 +-
.../MHD_src/sph_MHD/m_comm_tbl_sph_coriolis.f90 | 2 +-
.../MHD_src/sph_MHD/m_control_parameter.f90 | 11 +++-
.../MHD_src/sph_MHD/m_field_4_dynamobench.f90 | 2 +-
.../MHD_src/sph_MHD/m_field_at_mid_equator.f90 | 4 +-
.../MHD_src/sph_MHD/m_field_on_circle.f90 | 10 ++--
.../MHD_src/sph_MHD/material_property.f90 | 2 +-
.../MHD_src/sph_MHD/set_control_sph_mhd.f90 | 2 +-
.../MHD_src/sph_MHD/set_radial_mat_sph.f90 | 2 +-
.../MHD_src/sph_MHD/set_reference_sph_mhd.f90 | 2 +-
.../MHD_src/sph_MHD/sph_MHD_circle_transform.f90 | 2 +-
.../MHD_src/sph_MHD/trans_sph_velo_4_coriolis.f90 | 2 +-
.../PARALLEL_src/COMM_src/m_parallel_var_dof.f90 | 25 --------
.../COMM_src/merged_udt_vtk_file_IO.f90 | 2 +-
.../PARALLEL_src/COMM_src/nod_phys_send_recv.f90 | 2 +-
.../COMM_src/nodal_vector_send_recv.f90 | 2 +-
.../COMM_src/output_parallel_ucd_file.f90 | 2 +-
.../COMM_src/parallel_ucd_IO_select.F90 | 2 +-
.../SPH_SHELL_src/circle_transform_single.f90 | 2 +-
.../SPH_SHELL_src/copy_pole_field_sph_trans.f90 | 2 +-
.../PARALLEL_src/SPH_SHELL_src/init_sph_trans.f90 | 4 +-
.../SPH_SHELL_src/pickup_gauss_coefficients.f90 | 4 +-
.../SPH_SHELL_src/schmidt_b_trans_at_pole.f90 | 2 +-
.../SPH_SHELL_src/sph_trans_scalar.f90 | 4 +-
.../SPH_SHELL_src/sph_trans_vector.f90 | 2 +-
.../UTILS_src/MESH/set_edge_hash.f90 | 8 +--
src/programs/SPH_MHD/SPH_analyzer_MHD.f90 | 70 +++++++++++-----------
src/programs/SPH_MHD/analyzer_sph_MHD.f90 | 32 +++++-----
.../INITIAL_FIELD/SPH_analyzer_const_initial.f90 | 2 +-
.../INITIAL_FIELD/analyzer_sph_initial_fld.f90 | 2 +-
.../SNAPSHOT_MHD/SPH_analyzer_d_bench.f90 | 2 +-
.../SNAPSHOT_MHD/SPH_analyzer_snap.f90 | 2 +-
src/programs/mesh_utilities/analyzer_test_sph.f90 | 4 +-
.../mesh_utilities/cmp_trans_sph_indices.f90 | 2 +-
54 files changed, 126 insertions(+), 144 deletions(-)
diff --git a/src/Fortran_libraries/MHD_src/IO/check_read_bc_file.f90 b/src/Fortran_libraries/MHD_src/IO/check_read_bc_file.f90
index 15d84d5..29dbd28 100644
--- a/src/Fortran_libraries/MHD_src/IO/check_read_bc_file.f90
+++ b/src/Fortran_libraries/MHD_src/IO/check_read_bc_file.f90
@@ -21,7 +21,7 @@
!
subroutine check_read_boundary_files
!
- use m_parallel_var_dof
+ use calypso_mpi
use m_control_parameter
use m_bc_data_list
use m_surf_data_list
diff --git a/src/Fortran_libraries/MHD_src/IO/range_data_IO.f90 b/src/Fortran_libraries/MHD_src/IO/range_data_IO.f90
index 8356874..8f035de 100644
--- a/src/Fortran_libraries/MHD_src/IO/range_data_IO.f90
+++ b/src/Fortran_libraries/MHD_src/IO/range_data_IO.f90
@@ -80,7 +80,7 @@
!
subroutine output_range_data
!
- use m_parallel_var_dof
+ use calypso_mpi
use m_node_phys_data
use m_cal_max_indices
use m_t_step_parameter
@@ -112,7 +112,7 @@
!
subroutine skip_range_data
!
- use m_parallel_var_dof
+ use calypso_mpi
use m_node_phys_data
use m_t_step_parameter
!
diff --git a/src/Fortran_libraries/MHD_src/IO/set_control_4_composition.f90 b/src/Fortran_libraries/MHD_src/IO/set_control_4_composition.f90
index c45929b..2390fe1 100644
--- a/src/Fortran_libraries/MHD_src/IO/set_control_4_composition.f90
+++ b/src/Fortran_libraries/MHD_src/IO/set_control_4_composition.f90
@@ -26,7 +26,7 @@
subroutine s_set_control_4_composition
!
use m_machine_parameter
- use m_parallel_var_dof
+ use calypso_mpi
use m_control_parameter
use m_ctl_data_node_boundary
use m_ctl_data_surf_boundary
diff --git a/src/Fortran_libraries/MHD_src/IO/set_control_4_magne.f90 b/src/Fortran_libraries/MHD_src/IO/set_control_4_magne.f90
index 794649e..f91448c 100644
--- a/src/Fortran_libraries/MHD_src/IO/set_control_4_magne.f90
+++ b/src/Fortran_libraries/MHD_src/IO/set_control_4_magne.f90
@@ -26,7 +26,7 @@
subroutine s_set_control_4_magne
!
use m_machine_parameter
- use m_parallel_var_dof
+ use calypso_mpi
use m_control_parameter
use m_ctl_data_node_boundary
use m_ctl_data_surf_boundary
diff --git a/src/Fortran_libraries/MHD_src/IO/set_control_4_press.f90 b/src/Fortran_libraries/MHD_src/IO/set_control_4_press.f90
index 507a885..9055b48 100644
--- a/src/Fortran_libraries/MHD_src/IO/set_control_4_press.f90
+++ b/src/Fortran_libraries/MHD_src/IO/set_control_4_press.f90
@@ -27,7 +27,7 @@
subroutine s_set_control_4_press
!
use m_machine_parameter
- use m_parallel_var_dof
+ use calypso_mpi
use m_control_parameter
use m_ctl_data_node_boundary
use m_ctl_data_surf_boundary
diff --git a/src/Fortran_libraries/MHD_src/IO/set_control_4_temp.f90 b/src/Fortran_libraries/MHD_src/IO/set_control_4_temp.f90
index 80106ea..896957f 100644
--- a/src/Fortran_libraries/MHD_src/IO/set_control_4_temp.f90
+++ b/src/Fortran_libraries/MHD_src/IO/set_control_4_temp.f90
@@ -27,7 +27,7 @@
subroutine s_set_control_4_temp
!
use m_machine_parameter
- use m_parallel_var_dof
+ use calypso_mpi
use m_control_parameter
use m_ctl_data_node_boundary
use m_ctl_data_surf_boundary
diff --git a/src/Fortran_libraries/MHD_src/IO/set_control_4_velo.f90 b/src/Fortran_libraries/MHD_src/IO/set_control_4_velo.f90
index 836a9f6..58c1350 100644
--- a/src/Fortran_libraries/MHD_src/IO/set_control_4_velo.f90
+++ b/src/Fortran_libraries/MHD_src/IO/set_control_4_velo.f90
@@ -27,7 +27,7 @@
subroutine s_set_control_4_velo
!
use m_machine_parameter
- use m_parallel_var_dof
+ use calypso_mpi
use m_control_parameter
use m_ctl_data_node_boundary
use m_ctl_data_surf_boundary
diff --git a/src/Fortran_libraries/MHD_src/IO/sph_mhd_rms_IO.f90 b/src/Fortran_libraries/MHD_src/IO/sph_mhd_rms_IO.f90
index 7c8eaab..89ac3c5 100644
--- a/src/Fortran_libraries/MHD_src/IO/sph_mhd_rms_IO.f90
+++ b/src/Fortran_libraries/MHD_src/IO/sph_mhd_rms_IO.f90
@@ -15,7 +15,7 @@
!
use m_precision
!
- use m_parallel_var_dof
+ use calypso_mpi
use m_spheric_parameter
use m_gauss_coefs_monitor_data
use m_pickup_sph_spectr_data
diff --git a/src/Fortran_libraries/MHD_src/IO/sph_mhd_rst_IO_control.f90 b/src/Fortran_libraries/MHD_src/IO/sph_mhd_rst_IO_control.f90
index 4a0bbd8..60613b7 100644
--- a/src/Fortran_libraries/MHD_src/IO/sph_mhd_rst_IO_control.f90
+++ b/src/Fortran_libraries/MHD_src/IO/sph_mhd_rst_IO_control.f90
@@ -24,7 +24,7 @@
use m_precision
!
use m_machine_parameter
- use m_parallel_var_dof
+ use calypso_mpi
use m_control_parameter
use m_t_step_parameter
use m_file_format_switch
diff --git a/src/Fortran_libraries/MHD_src/field_data/node_monitor_IO.f90 b/src/Fortran_libraries/MHD_src/field_data/node_monitor_IO.f90
index c2c11e1..c43e960 100644
--- a/src/Fortran_libraries/MHD_src/field_data/node_monitor_IO.f90
+++ b/src/Fortran_libraries/MHD_src/field_data/node_monitor_IO.f90
@@ -130,7 +130,7 @@
!
subroutine set_local_node_id_4_monitor
!
- use m_parallel_var_dof
+ use calypso_mpi
use m_control_parameter
use m_geometry_parameter
use m_geometry_data
@@ -183,7 +183,7 @@
!
subroutine output_monitor_control
!
- use m_parallel_var_dof
+ use calypso_mpi
use m_geometry_data
use m_geometry_parameter
use m_node_phys_address
diff --git a/src/Fortran_libraries/MHD_src/field_data/output_ucd_file_control.f90 b/src/Fortran_libraries/MHD_src/field_data/output_ucd_file_control.f90
index 06794fc..857ddbd 100644
--- a/src/Fortran_libraries/MHD_src/field_data/output_ucd_file_control.f90
+++ b/src/Fortran_libraries/MHD_src/field_data/output_ucd_file_control.f90
@@ -24,7 +24,7 @@
!
subroutine s_output_ucd_file_control
!
- use m_parallel_var_dof
+ use calypso_mpi
use m_control_parameter
use m_t_step_parameter
use m_ucd_data
diff --git a/src/Fortran_libraries/MHD_src/sph_MHD/FEM_analyzer_sph_MHD.f90 b/src/Fortran_libraries/MHD_src/sph_MHD/FEM_analyzer_sph_MHD.f90
index 1c810eb..fb73187 100644
--- a/src/Fortran_libraries/MHD_src/sph_MHD/FEM_analyzer_sph_MHD.f90
+++ b/src/Fortran_libraries/MHD_src/sph_MHD/FEM_analyzer_sph_MHD.f90
@@ -30,7 +30,7 @@
use m_precision
use m_constants
!
- use m_parallel_var_dof
+ use calypso_mpi
use m_work_time
!
implicit none
diff --git a/src/Fortran_libraries/MHD_src/sph_MHD/cal_momentum_eq_explicit.f90 b/src/Fortran_libraries/MHD_src/sph_MHD/cal_momentum_eq_explicit.f90
index 4b43793..7e1238d 100644
--- a/src/Fortran_libraries/MHD_src/sph_MHD/cal_momentum_eq_explicit.f90
+++ b/src/Fortran_libraries/MHD_src/sph_MHD/cal_momentum_eq_explicit.f90
@@ -32,7 +32,7 @@
!
use m_control_params_sph_MHD
use cal_explicit_terms
- use m_parallel_var_dof
+ use calypso_mpi
use cal_sph_field_by_rotation
use cal_nonlinear_sph_MHD
!
diff --git a/src/Fortran_libraries/MHD_src/sph_MHD/cal_nonlinear.f90 b/src/Fortran_libraries/MHD_src/sph_MHD/cal_nonlinear.f90
index 63c3c53..32b2b72 100644
--- a/src/Fortran_libraries/MHD_src/sph_MHD/cal_nonlinear.f90
+++ b/src/Fortran_libraries/MHD_src/sph_MHD/cal_nonlinear.f90
@@ -17,7 +17,7 @@
use m_precision
!
use m_machine_parameter
- use m_parallel_var_dof
+ use calypso_mpi
use m_control_parameter
!
implicit none
diff --git a/src/Fortran_libraries/MHD_src/sph_MHD/cal_sol_sph_MHD_crank.f90 b/src/Fortran_libraries/MHD_src/sph_MHD/cal_sol_sph_MHD_crank.f90
index df59987..afa3357 100644
--- a/src/Fortran_libraries/MHD_src/sph_MHD/cal_sol_sph_MHD_crank.f90
+++ b/src/Fortran_libraries/MHD_src/sph_MHD/cal_sol_sph_MHD_crank.f90
@@ -17,7 +17,7 @@
!
use m_precision
!
- use m_parallel_var_dof
+ use calypso_mpi
use m_machine_parameter
use m_control_parameter
use m_control_params_sph_MHD
diff --git a/src/Fortran_libraries/MHD_src/sph_MHD/cal_sol_sph_fluid_crank.f90 b/src/Fortran_libraries/MHD_src/sph_MHD/cal_sol_sph_fluid_crank.f90
index eea6918..7346062 100644
--- a/src/Fortran_libraries/MHD_src/sph_MHD/cal_sol_sph_fluid_crank.f90
+++ b/src/Fortran_libraries/MHD_src/sph_MHD/cal_sol_sph_fluid_crank.f90
@@ -31,7 +31,7 @@
!
use m_precision
!
- use m_parallel_var_dof
+ use calypso_mpi
use m_machine_parameter
use m_control_params_sph_MHD
use m_spheric_parameter
diff --git a/src/Fortran_libraries/MHD_src/sph_MHD/cal_sph_field_by_rotation.f90 b/src/Fortran_libraries/MHD_src/sph_MHD/cal_sph_field_by_rotation.f90
index dc71997..323e16a 100644
--- a/src/Fortran_libraries/MHD_src/sph_MHD/cal_sph_field_by_rotation.f90
+++ b/src/Fortran_libraries/MHD_src/sph_MHD/cal_sph_field_by_rotation.f90
@@ -32,7 +32,7 @@
!
subroutine cal_rot_of_forces_sph_2
!
- use m_parallel_var_dof
+ use calypso_mpi
use m_sph_spectr_data
use const_sph_radial_grad
use const_sph_rotation
@@ -85,7 +85,7 @@
!
subroutine cal_rot_of_induction_sph
!
- use m_parallel_var_dof
+ use calypso_mpi
use const_sph_radial_grad
use const_sph_rotation
use m_sph_spectr_data
@@ -102,7 +102,7 @@
!
subroutine cal_div_of_fluxes_sph
!
- use m_parallel_var_dof
+ use calypso_mpi
use const_sph_divergence
use m_sph_spectr_data
!
diff --git a/src/Fortran_libraries/MHD_src/sph_MHD/const_coriolis_sph.f90 b/src/Fortran_libraries/MHD_src/sph_MHD/const_coriolis_sph.f90
index 956eb77..0a5e69a 100644
--- a/src/Fortran_libraries/MHD_src/sph_MHD/const_coriolis_sph.f90
+++ b/src/Fortran_libraries/MHD_src/sph_MHD/const_coriolis_sph.f90
@@ -123,7 +123,7 @@
!
subroutine set_tri_int_sph_coriolis
!
- use m_parallel_var_dof
+ use calypso_mpi
use m_spheric_parameter
use m_integrals_4_sph_coriolis
use set_integral_sph_coriolis
diff --git a/src/Fortran_libraries/MHD_src/sph_MHD/const_data_4_dynamobench.f90 b/src/Fortran_libraries/MHD_src/sph_MHD/const_data_4_dynamobench.f90
index 1707edb..f4e7f3d 100644
--- a/src/Fortran_libraries/MHD_src/sph_MHD/const_data_4_dynamobench.f90
+++ b/src/Fortran_libraries/MHD_src/sph_MHD/const_data_4_dynamobench.f90
@@ -28,7 +28,7 @@
subroutine s_const_data_4_dynamobench
!
use m_control_params_sph_MHD
- use m_parallel_var_dof
+ use calypso_mpi
use cal_rms_fields_by_sph
use global_field_4_dynamobench
use m_field_at_mid_equator
diff --git a/src/Fortran_libraries/MHD_src/sph_MHD/const_radial_mat_4_sph.f90 b/src/Fortran_libraries/MHD_src/sph_MHD/const_radial_mat_4_sph.f90
index 045f683..8e573a5 100644
--- a/src/Fortran_libraries/MHD_src/sph_MHD/const_radial_mat_4_sph.f90
+++ b/src/Fortran_libraries/MHD_src/sph_MHD/const_radial_mat_4_sph.f90
@@ -16,7 +16,7 @@
!
use m_constants
use m_machine_parameter
- use m_parallel_var_dof
+ use calypso_mpi
use m_radial_matrices_sph
!
implicit none
diff --git a/src/Fortran_libraries/MHD_src/sph_MHD/const_wz_coriolis_rtp.f90 b/src/Fortran_libraries/MHD_src/sph_MHD/const_wz_coriolis_rtp.f90
index b97a2fd..b5e4749 100644
--- a/src/Fortran_libraries/MHD_src/sph_MHD/const_wz_coriolis_rtp.f90
+++ b/src/Fortran_libraries/MHD_src/sph_MHD/const_wz_coriolis_rtp.f90
@@ -173,7 +173,7 @@
subroutine subtract_sphere_ave_coriolis
!
use calypso_mpi
- use m_parallel_var_dof
+ use calypso_mpi
use m_sph_phys_address
use m_work_4_sph_trans
!
diff --git a/src/Fortran_libraries/MHD_src/sph_MHD/m_comm_tbl_sph_coriolis.f90 b/src/Fortran_libraries/MHD_src/sph_MHD/m_comm_tbl_sph_coriolis.f90
index 2c4dbea..5e5b83d 100644
--- a/src/Fortran_libraries/MHD_src/sph_MHD/m_comm_tbl_sph_coriolis.f90
+++ b/src/Fortran_libraries/MHD_src/sph_MHD/m_comm_tbl_sph_coriolis.f90
@@ -116,7 +116,7 @@
!
subroutine alloc_comm_work_sph_coriolis(nri)
!
- use m_parallel_var_dof
+ use calypso_mpi
!
integer(kind = kint), intent(in) :: nri
!
diff --git a/src/Fortran_libraries/MHD_src/sph_MHD/m_control_parameter.f90 b/src/Fortran_libraries/MHD_src/sph_MHD/m_control_parameter.f90
index 0ec1ed6..81111a1 100644
--- a/src/Fortran_libraries/MHD_src/sph_MHD/m_control_parameter.f90
+++ b/src/Fortran_libraries/MHD_src/sph_MHD/m_control_parameter.f90
@@ -138,8 +138,15 @@
!
!> ID for using SUPG by mangeitc field
integer (kind=kint), parameter :: id_magnetic_SUPG = 2
-!> SUPG flag
- integer (kind=kint) :: iflag_4_supg = id_turn_OFF
+!
+!> SUPG flag for velocity
+ integer (kind=kint) :: iflag_velo_supg = id_turn_OFF
+!> SUPG flag for temperature
+ integer (kind=kint) :: iflag_temp_supg = id_turn_OFF
+!> SUPG flag for magnetic field
+ integer (kind=kint) :: iflag_mag_supg = id_turn_OFF
+!> SUPG flag for light element
+ integer (kind=kint) :: iflag_comp_supg = id_turn_OFF
!
!
!> Maximum CG iteration count for Poisson equation
diff --git a/src/Fortran_libraries/MHD_src/sph_MHD/m_field_4_dynamobench.f90 b/src/Fortran_libraries/MHD_src/sph_MHD/m_field_4_dynamobench.f90
index d2681e4..82c0b4e 100644
--- a/src/Fortran_libraries/MHD_src/sph_MHD/m_field_4_dynamobench.f90
+++ b/src/Fortran_libraries/MHD_src/sph_MHD/m_field_4_dynamobench.f90
@@ -18,7 +18,7 @@
!
use m_precision
use m_constants
- use m_parallel_var_dof
+ use calypso_mpi
!
implicit none
!
diff --git a/src/Fortran_libraries/MHD_src/sph_MHD/m_field_at_mid_equator.f90 b/src/Fortran_libraries/MHD_src/sph_MHD/m_field_at_mid_equator.f90
index 63991a4..48faa27 100644
--- a/src/Fortran_libraries/MHD_src/sph_MHD/m_field_at_mid_equator.f90
+++ b/src/Fortran_libraries/MHD_src/sph_MHD/m_field_at_mid_equator.f90
@@ -55,7 +55,7 @@
!
subroutine mid_eq_transfer_dynamobench
!
- use m_parallel_var_dof
+ use calypso_mpi
use m_sph_phys_address
!
use m_field_on_circle
@@ -119,7 +119,7 @@
!
subroutine cal_field_4_dynamobench
!
- use m_parallel_var_dof
+ use calypso_mpi
use m_spheric_parameter
use m_sph_spectr_data
use m_sph_phys_address
diff --git a/src/Fortran_libraries/MHD_src/sph_MHD/m_field_on_circle.f90 b/src/Fortran_libraries/MHD_src/sph_MHD/m_field_on_circle.f90
index dde5837..184552f 100644
--- a/src/Fortran_libraries/MHD_src/sph_MHD/m_field_on_circle.f90
+++ b/src/Fortran_libraries/MHD_src/sph_MHD/m_field_on_circle.f90
@@ -87,7 +87,7 @@
!
subroutine allocate_circle_field
!
- use m_parallel_var_dof
+ use calypso_mpi
use m_spheric_parameter
use m_sph_spectr_data
use m_circle_transform
@@ -123,7 +123,7 @@
!
subroutine deallocate_circle_field
!
- use m_parallel_var_dof
+ use calypso_mpi
!
!
deallocate(vrtm_mag, vrtm_phase)
@@ -140,7 +140,7 @@
!
subroutine write_field_data_on_circle(i_step, time)
!
- use m_parallel_var_dof
+ use calypso_mpi
use m_circle_transform
!
integer(kind = kint), intent(in) :: i_step
@@ -216,7 +216,7 @@
!
subroutine open_field_data_on_circle
!
- use m_parallel_var_dof
+ use calypso_mpi
use m_phys_constants
use m_circle_transform
use sel_comp_labels_by_coord
@@ -362,7 +362,7 @@
!
subroutine close_field_data_on_circle
!
- use m_parallel_var_dof
+ use calypso_mpi
!
!
if(my_rank .gt. 0) return
diff --git a/src/Fortran_libraries/MHD_src/sph_MHD/material_property.f90 b/src/Fortran_libraries/MHD_src/sph_MHD/material_property.f90
index c9df96f..0f29aa8 100644
--- a/src/Fortran_libraries/MHD_src/sph_MHD/material_property.f90
+++ b/src/Fortran_libraries/MHD_src/sph_MHD/material_property.f90
@@ -27,7 +27,7 @@
!
subroutine set_material_property
!
- use m_parallel_var_dof
+ use calypso_mpi
use m_control_parameter
use m_normalize_parameter
use m_geometry_parameter
diff --git a/src/Fortran_libraries/MHD_src/sph_MHD/set_control_sph_mhd.f90 b/src/Fortran_libraries/MHD_src/sph_MHD/set_control_sph_mhd.f90
index d867a97..37e3bc9 100644
--- a/src/Fortran_libraries/MHD_src/sph_MHD/set_control_sph_mhd.f90
+++ b/src/Fortran_libraries/MHD_src/sph_MHD/set_control_sph_mhd.f90
@@ -15,7 +15,7 @@
use m_precision
!
use m_machine_parameter
- use m_parallel_var_dof
+ use calypso_mpi
!
implicit none
!
diff --git a/src/Fortran_libraries/MHD_src/sph_MHD/set_radial_mat_sph.f90 b/src/Fortran_libraries/MHD_src/sph_MHD/set_radial_mat_sph.f90
index 26c15b4..d8bb450 100644
--- a/src/Fortran_libraries/MHD_src/sph_MHD/set_radial_mat_sph.f90
+++ b/src/Fortran_libraries/MHD_src/sph_MHD/set_radial_mat_sph.f90
@@ -58,7 +58,7 @@
!
use m_precision
!
- use m_parallel_var_dof
+ use calypso_mpi
use m_constants
use m_t_int_parameter
use m_spheric_parameter
diff --git a/src/Fortran_libraries/MHD_src/sph_MHD/set_reference_sph_mhd.f90 b/src/Fortran_libraries/MHD_src/sph_MHD/set_reference_sph_mhd.f90
index 94ae330..fc523c8 100644
--- a/src/Fortran_libraries/MHD_src/sph_MHD/set_reference_sph_mhd.f90
+++ b/src/Fortran_libraries/MHD_src/sph_MHD/set_reference_sph_mhd.f90
@@ -34,7 +34,7 @@
use m_precision
!
use m_constants
- use m_parallel_var_dof
+ use calypso_mpi
use m_control_parameter
use m_spheric_parameter
use m_sph_spectr_data
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 f8108a2..895c5d3 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
@@ -33,7 +33,7 @@
subroutine sph_transfer_on_circle
!
use m_phys_constants
- use m_parallel_var_dof
+ use calypso_mpi
use m_sph_phys_address
use m_circle_transform
!
diff --git a/src/Fortran_libraries/MHD_src/sph_MHD/trans_sph_velo_4_coriolis.f90 b/src/Fortran_libraries/MHD_src/sph_MHD/trans_sph_velo_4_coriolis.f90
index 0ece0a7..bee568e 100644
--- a/src/Fortran_libraries/MHD_src/sph_MHD/trans_sph_velo_4_coriolis.f90
+++ b/src/Fortran_libraries/MHD_src/sph_MHD/trans_sph_velo_4_coriolis.f90
@@ -14,7 +14,7 @@
!
use m_precision
!
- use m_parallel_var_dof
+ use calypso_mpi
use m_spheric_parameter
use m_sph_spectr_data
use m_sph_phys_address
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
deleted file mode 100644
index 138b7a9..0000000
--- a/src/Fortran_libraries/PARALLEL_src/COMM_src/m_parallel_var_dof.f90
+++ /dev/null
@@ -1,25 +0,0 @@
-!>@file m_parallel_var_dof.f90
-!!@brief module m_parallel_var_dof
-!!
-!!@author H. Matsui and H. Okuda
-!!@date Programmed in 2000
-!!@n Modified on Apr., 2008
-!!@n Modified on Dec., 2012
-!
-!> @brief Basic parameters for MPI parallelization
-!
-! subroutine parallel_cal_init
-!
- module m_parallel_var_dof
-!
- use calypso_mpi
-!
- implicit none
-!
-! ----------------------------------------------------------------------
-!
-! contains
-!
-! ----------------------------------------------------------------------
-!
- end module m_parallel_var_dof
diff --git a/src/Fortran_libraries/PARALLEL_src/COMM_src/merged_udt_vtk_file_IO.f90 b/src/Fortran_libraries/PARALLEL_src/COMM_src/merged_udt_vtk_file_IO.f90
index 6a55682..3670842 100644
--- a/src/Fortran_libraries/PARALLEL_src/COMM_src/merged_udt_vtk_file_IO.f90
+++ b/src/Fortran_libraries/PARALLEL_src/COMM_src/merged_udt_vtk_file_IO.f90
@@ -18,7 +18,7 @@
!
use m_precision
use m_constants
- use m_parallel_var_dof
+ use calypso_mpi
use m_ucd_data
use m_field_file_format
use m_merged_ucd_data
diff --git a/src/Fortran_libraries/PARALLEL_src/COMM_src/nod_phys_send_recv.f90 b/src/Fortran_libraries/PARALLEL_src/COMM_src/nod_phys_send_recv.f90
index 8e9dceb..49a643c 100644
--- a/src/Fortran_libraries/PARALLEL_src/COMM_src/nod_phys_send_recv.f90
+++ b/src/Fortran_libraries/PARALLEL_src/COMM_src/nod_phys_send_recv.f90
@@ -16,7 +16,7 @@
!
use m_precision
!
- use m_parallel_var_dof
+ use calypso_mpi
use m_geometry_parameter
use m_nod_comm_table
use m_node_phys_data
diff --git a/src/Fortran_libraries/PARALLEL_src/COMM_src/nodal_vector_send_recv.f90 b/src/Fortran_libraries/PARALLEL_src/COMM_src/nodal_vector_send_recv.f90
index 866a912..6ea1cbe 100644
--- a/src/Fortran_libraries/PARALLEL_src/COMM_src/nodal_vector_send_recv.f90
+++ b/src/Fortran_libraries/PARALLEL_src/COMM_src/nodal_vector_send_recv.f90
@@ -13,7 +13,7 @@
module nodal_vector_send_recv
!
use m_precision
- use m_parallel_var_dof
+ use calypso_mpi
!
use m_geometry_parameter
use m_nod_comm_table
diff --git a/src/Fortran_libraries/PARALLEL_src/COMM_src/output_parallel_ucd_file.f90 b/src/Fortran_libraries/PARALLEL_src/COMM_src/output_parallel_ucd_file.f90
index 0005510..e181d5c 100644
--- a/src/Fortran_libraries/PARALLEL_src/COMM_src/output_parallel_ucd_file.f90
+++ b/src/Fortran_libraries/PARALLEL_src/COMM_src/output_parallel_ucd_file.f90
@@ -11,7 +11,7 @@
module output_parallel_ucd_file
!
use m_precision
- use m_parallel_var_dof
+ use calypso_mpi
use m_field_file_format
!
implicit none
diff --git a/src/Fortran_libraries/PARALLEL_src/COMM_src/parallel_ucd_IO_select.F90 b/src/Fortran_libraries/PARALLEL_src/COMM_src/parallel_ucd_IO_select.F90
index 6c43b9e..9131a8e 100644
--- a/src/Fortran_libraries/PARALLEL_src/COMM_src/parallel_ucd_IO_select.F90
+++ b/src/Fortran_libraries/PARALLEL_src/COMM_src/parallel_ucd_IO_select.F90
@@ -21,7 +21,7 @@
module parallel_ucd_IO_select
!
use m_precision
- use m_parallel_var_dof
+ use calypso_mpi
use m_file_format_switch
use m_field_file_format
!
diff --git a/src/Fortran_libraries/PARALLEL_src/SPH_SHELL_src/circle_transform_single.f90 b/src/Fortran_libraries/PARALLEL_src/SPH_SHELL_src/circle_transform_single.f90
index 7ce9682..bcb43fc 100644
--- a/src/Fortran_libraries/PARALLEL_src/SPH_SHELL_src/circle_transform_single.f90
+++ b/src/Fortran_libraries/PARALLEL_src/SPH_SHELL_src/circle_transform_single.f90
@@ -43,7 +43,7 @@
!
subroutine initialize_circle_transform(ltr, s_circ, z_circ)
!
- use m_parallel_var_dof
+ use calypso_mpi
use m_schmidt_polynomial
use m_circle_transform
!
diff --git a/src/Fortran_libraries/PARALLEL_src/SPH_SHELL_src/copy_pole_field_sph_trans.f90 b/src/Fortran_libraries/PARALLEL_src/SPH_SHELL_src/copy_pole_field_sph_trans.f90
index 7c1a925..b1fb1dd 100644
--- a/src/Fortran_libraries/PARALLEL_src/SPH_SHELL_src/copy_pole_field_sph_trans.f90
+++ b/src/Fortran_libraries/PARALLEL_src/SPH_SHELL_src/copy_pole_field_sph_trans.f90
@@ -27,7 +27,7 @@
!
use m_constants
use m_phys_constants
- use m_parallel_var_dof
+ use calypso_mpi
!
implicit none
!
diff --git a/src/Fortran_libraries/PARALLEL_src/SPH_SHELL_src/init_sph_trans.f90 b/src/Fortran_libraries/PARALLEL_src/SPH_SHELL_src/init_sph_trans.f90
index eb9d973..af7a907 100644
--- a/src/Fortran_libraries/PARALLEL_src/SPH_SHELL_src/init_sph_trans.f90
+++ b/src/Fortran_libraries/PARALLEL_src/SPH_SHELL_src/init_sph_trans.f90
@@ -28,7 +28,7 @@
!
subroutine initialize_sph_trans
!
- use m_parallel_var_dof
+ use calypso_mpi
use m_machine_parameter
use m_spheric_parameter
use m_spheric_param_smp
@@ -68,7 +68,7 @@
!
subroutine set_mdx_rlm_rtm
!
- use m_parallel_var_dof
+ use calypso_mpi
use m_spheric_parameter
use m_work_4_sph_trans
!
diff --git a/src/Fortran_libraries/PARALLEL_src/SPH_SHELL_src/pickup_gauss_coefficients.f90 b/src/Fortran_libraries/PARALLEL_src/SPH_SHELL_src/pickup_gauss_coefficients.f90
index 44ddb6e..e08e913 100644
--- a/src/Fortran_libraries/PARALLEL_src/SPH_SHELL_src/pickup_gauss_coefficients.f90
+++ b/src/Fortran_libraries/PARALLEL_src/SPH_SHELL_src/pickup_gauss_coefficients.f90
@@ -7,8 +7,8 @@
!> @brief choose Gauss coefficients to output
!!
!!@verbatim
-! subroutine init_gauss_coefs_4_monitor
-! subroutine cal_gauss_coefficients
+!! subroutine init_gauss_coefs_4_monitor
+!! subroutine cal_gauss_coefficients
!!@endverbatim
!
module pickup_gauss_coefficients
diff --git a/src/Fortran_libraries/PARALLEL_src/SPH_SHELL_src/schmidt_b_trans_at_pole.f90 b/src/Fortran_libraries/PARALLEL_src/SPH_SHELL_src/schmidt_b_trans_at_pole.f90
index a2cc7c4..1cf503f 100644
--- a/src/Fortran_libraries/PARALLEL_src/SPH_SHELL_src/schmidt_b_trans_at_pole.f90
+++ b/src/Fortran_libraries/PARALLEL_src/SPH_SHELL_src/schmidt_b_trans_at_pole.f90
@@ -110,7 +110,7 @@
!
subroutine schmidt_b_trans_pole_vect(nb)
!
- use m_parallel_var_dof
+ use calypso_mpi
!
integer(kind = kint), intent(in) :: nb
!
diff --git a/src/Fortran_libraries/PARALLEL_src/SPH_SHELL_src/sph_trans_scalar.f90 b/src/Fortran_libraries/PARALLEL_src/SPH_SHELL_src/sph_trans_scalar.f90
index 7595452..025b98a 100644
--- a/src/Fortran_libraries/PARALLEL_src/SPH_SHELL_src/sph_trans_scalar.f90
+++ b/src/Fortran_libraries/PARALLEL_src/SPH_SHELL_src/sph_trans_scalar.f90
@@ -30,7 +30,7 @@
!
use m_precision
!
- use m_parallel_var_dof
+ use calypso_mpi
use m_work_time
use m_phys_constants
use m_machine_parameter
@@ -42,7 +42,7 @@
use legendre_transform_krin
use legendre_transform_spin
use spherical_SRs_N
- use m_parallel_var_dof
+ use calypso_mpi
use m_schmidt_poly_on_rtm
!
implicit none
diff --git a/src/Fortran_libraries/PARALLEL_src/SPH_SHELL_src/sph_trans_vector.f90 b/src/Fortran_libraries/PARALLEL_src/SPH_SHELL_src/sph_trans_vector.f90
index 93769a8..8fbe525 100644
--- a/src/Fortran_libraries/PARALLEL_src/SPH_SHELL_src/sph_trans_vector.f90
+++ b/src/Fortran_libraries/PARALLEL_src/SPH_SHELL_src/sph_trans_vector.f90
@@ -41,7 +41,7 @@
!
use m_precision
!
- use m_parallel_var_dof
+ use calypso_mpi
use m_work_time
use m_machine_parameter
use m_spheric_parameter
diff --git a/src/Fortran_libraries/UTILS_src/MESH/set_edge_hash.f90 b/src/Fortran_libraries/UTILS_src/MESH/set_edge_hash.f90
index 4f95048..f40a12f 100644
--- a/src/Fortran_libraries/UTILS_src/MESH/set_edge_hash.f90
+++ b/src/Fortran_libraries/UTILS_src/MESH/set_edge_hash.f90
@@ -34,7 +34,7 @@
integer(kind = kint), intent(in) :: nnod_4_surf, nnod_4_edge
integer(kind = kint), intent(in) :: ie_surf(numsurf,nnod_4_surf)
!
- integer(kind = kint) :: isurf, inod1, inod2, is1, is2, k1
+ integer(kind = kint) :: isurf, is1, is2, k1
integer(kind = kint) :: ihash
!
!
@@ -69,7 +69,7 @@
integer(kind = kint), intent(in) :: ie_surf(numsurf,nnod_4_surf)
!
integer(kind = kint) :: j
- integer(kind = kint) :: isurf, inod1, inod2, is1, is2, k1
+ integer(kind = kint) :: isurf, is1, is2, k1
integer(kind = kint) :: ihash
!
!
@@ -102,7 +102,7 @@
integer(kind = kint), intent(in) :: isf_part(numsurf_part)
integer(kind = kint), intent(in) :: ie_surf(numsurf,nnod_4_surf)
!
- integer(kind = kint) :: inum, isurf, inod1, inod2, is1, is2, k1
+ integer(kind = kint) :: inum, isurf, is1, is2, k1
integer(kind = kint) :: ihash
!
!
@@ -141,7 +141,7 @@
integer(kind = kint), intent(in) :: ie_surf(numsurf,nnod_4_surf)
!
integer(kind = kint) :: j
- integer(kind = kint) :: inum, isurf, inod1, inod2, is1, is2, k1
+ integer(kind = kint) :: inum, isurf, is1, is2, k1
integer(kind = kint) :: ihash
!
!
diff --git a/src/programs/SPH_MHD/SPH_analyzer_MHD.f90 b/src/programs/SPH_MHD/SPH_analyzer_MHD.f90
index 8aaa3e2..74066ae 100644
--- a/src/programs/SPH_MHD/SPH_analyzer_MHD.f90
+++ b/src/programs/SPH_MHD/SPH_analyzer_MHD.f90
@@ -21,7 +21,7 @@
subroutine SPH_initialize_MHD
!
use m_constants
- use m_parallel_var_dof
+ use calypso_mpi
use m_machine_parameter
use m_control_parameter
!
@@ -55,10 +55,10 @@
!
! Load spherical harmonics data
!
- if (iflag_debug.eq.1) write(*,*) 'input_sph_trans_grids'
- call start_eleps_time(4)
+! if (iflag_debug.eq.1) write(*,*) 'input_sph_trans_grids'
+! call start_eleps_time(4)
call input_sph_trans_grids(my_rank)
- call end_eleps_time(4)
+! call end_eleps_time(4)
!
! Allocate spectr field data
!
@@ -75,24 +75,24 @@
!
! ---------------------------------
!
- if (iflag_debug.gt.0) write(*,*) 'set_radius_rot_reft_dat_4_sph'
+! if (iflag_debug.gt.0) write(*,*) 'set_radius_rot_reft_dat_4_sph'
call set_radius_rot_reft_dat_4_sph(depth_high_t, depth_low_t, &
& high_temp, low_temp, angular)
!
- if (iflag_debug.gt.0) write(*,*) 'const_2nd_fdm_matrices'
+! if (iflag_debug.gt.0) write(*,*) 'const_2nd_fdm_matrices'
call const_2nd_fdm_matrices
!
- if (iflag_debug.gt.0) write(*,*) 's_cal_sph_bc_fdm_matrices'
+! if (iflag_debug.gt.0) write(*,*) 's_cal_sph_bc_fdm_matrices'
call s_cal_sph_bc_fdm_matrices
!
- if (iflag_debug.gt.0) write(*,*) 'const_2nd_fdm_coefs'
+! if (iflag_debug.gt.0) write(*,*) 'const_2nd_fdm_coefs'
call const_2nd_fdm_coefs
!
!*
!* ----- set integrals for coriolis term -----------------
!*
if(iflag_4_coriolis .gt. id_turn_OFF) then
- if ( iflag_debug.gt.0 ) write(*,*) 'init_sum_coriolis_sph'
+! if ( iflag_debug.gt.0 ) write(*,*) 'init_sum_coriolis_sph'
call init_sum_coriolis_sph
end if
!
@@ -104,48 +104,48 @@
!
! ---------------------------------
!
- if (iflag_debug.gt.0) write(*,*) 'init_sph_transform_MHD'
+! if (iflag_debug.gt.0) write(*,*) 'init_sph_transform_MHD'
call init_sph_transform_MHD
!
! ---------------------------------
!
- if(iflag_debug.gt.0) write(*,*)' set_material_property'
+! if(iflag_debug.gt.0) write(*,*)' set_material_property'
call set_material_property
!
! -------------------------------
!
- if(iflag_debug.gt.0) write(*,*)' sph_initial_data_control'
+! if(iflag_debug.gt.0) write(*,*)' sph_initial_data_control'
call sph_initial_data_control
!
- if(iflag_debug.gt.0) write(*,*)' sync_temp_by_per_temp_sph'
- call sync_temp_by_per_temp_sph
+! if(iflag_debug.gt.0) write(*,*)' sync_temp_by_per_temp_sph'
+! call sync_temp_by_per_temp_sph
!
! -------------------------------
!
- if(iflag_debug.gt.0) write(*,*) 's_set_bc_sph_mhd'
+! if(iflag_debug.gt.0) write(*,*) 's_set_bc_sph_mhd'
call s_set_bc_sph_mhd
!
! -------------------------------
!
- if(iflag_debug.gt.0) write(*,*)' s_const_radial_mat_4_sph'
+! if(iflag_debug.gt.0) write(*,*)' s_const_radial_mat_4_sph'
call s_const_radial_mat_4_sph
!*
!* obtain linear terms for starting
!*
- if(iflag_debug .gt. 0) write(*,*) 'set_sph_field_to_start'
+! if(iflag_debug .gt. 0) write(*,*) 'set_sph_field_to_start'
call set_sph_field_to_start
!
!* obtain nonlinear terms for starting
!*
if(iflag_debug .gt. 0) write(*,*) 'first nonlinear'
- call start_eleps_time(12)
+! call start_eleps_time(12)
call nonlinear
- call end_eleps_time(12)
+! call end_eleps_time(12)
!
!* ----- Open Volume integration data files -----------------
!*
if(iflag_debug .gt. 0) write(*,*) 'open_sph_vol_rms_file_mhd'
- call start_eleps_time(4)
+! call start_eleps_time(4)
call open_sph_vol_rms_file_mhd
call end_eleps_time(4)
!
@@ -186,26 +186,26 @@
!*
!* ----------------lead nonlinear term ... ----------
!*
- call start_eleps_time(12)
+! call start_eleps_time(12)
call nonlinear
- call end_eleps_time(12)
+! call end_eleps_time(12)
!
!* ---- Update fields after time evolution ------------------------=
!*
- call start_eleps_time(4)
- call start_eleps_time(7)
+! call start_eleps_time(4)
+! call start_eleps_time(7)
!
- if(iflag_debug.gt.0) write(*,*) 'trans_per_temp_to_temp_sph'
- call trans_per_temp_to_temp_sph
+! if(iflag_debug.gt.0) write(*,*) 'trans_per_temp_to_temp_sph'
+! call trans_per_temp_to_temp_sph
!*
- if(iflag_debug.gt.0) write(*,*) 's_lead_fields_4_sph_mhd'
+! if(iflag_debug.gt.0) write(*,*) 's_lead_fields_4_sph_mhd'
call s_lead_fields_4_sph_mhd
- call end_eleps_time(7)
+! call end_eleps_time(7)
!
!* ----------- output restart data --------------
!*
- call start_eleps_time(8)
+! call start_eleps_time(8)
if(iflag_debug.gt.0) write(*,*) 'output_sph_restart_control'
call output_sph_restart_control
!
@@ -215,23 +215,23 @@
call output_sph_rst_by_elaps
iflag_finish = 1
end if
- call end_eleps_time(8)
+! call end_eleps_time(8)
!
!
!* ----------- lead energy data --------------
!*
- call start_eleps_time(10)
- if(iflag_debug.gt.0) write(*,*) 'output_rms_sph_mhd_control'
+! call start_eleps_time(10)
+! if(iflag_debug.gt.0) write(*,*) 'output_rms_sph_mhd_control'
call output_rms_sph_mhd_control
- call end_eleps_time(10)
+! call end_eleps_time(10)
!
- if(iflag_debug.gt.0) write(*,*) 'sync_temp_by_per_temp_sph'
+! if(iflag_debug.gt.0) write(*,*) 'sync_temp_by_per_temp_sph'
call sync_temp_by_per_temp_sph
!
if(i_step .ge. i_step_number .and. i_step_number.gt.0) then
iflag_finish = 1
end if
- call end_eleps_time(4)
+! call end_eleps_time(4)
!
end subroutine SPH_analyze_MHD
!
diff --git a/src/programs/SPH_MHD/analyzer_sph_MHD.f90 b/src/programs/SPH_MHD/analyzer_sph_MHD.f90
index b516d09..9b40543 100644
--- a/src/programs/SPH_MHD/analyzer_sph_MHD.f90
+++ b/src/programs/SPH_MHD/analyzer_sph_MHD.f90
@@ -51,19 +51,19 @@
!
! Load parameter file
!
- call start_eleps_time(1)
- call start_eleps_time(4)
- if (iflag_debug.eq.1) write(*,*) 'read_control_4_MHD_noviz'
+! call start_eleps_time(1)
+! call start_eleps_time(4)
+! if (iflag_debug.eq.1) write(*,*) 'read_control_4_MHD_noviz'
call read_control_4_MHD_noviz
- if (iflag_debug.eq.1) write(*,*) 'set_control_4_sph_mhd'
+! if (iflag_debug.eq.1) write(*,*) 'set_control_4_sph_mhd'
call set_control_4_sph_mhd
call set_control_4_SPH_to_FEM
!
! IO elapsed end
! precondition elaps start
!
- call end_eleps_time(4)
- call start_eleps_time(2)
+! call end_eleps_time(4)
+! call start_eleps_time(2)
!
! Initialize FEM mesh data for field data IO
!
@@ -78,7 +78,7 @@
call SPH_to_FEM_init_MHD
call calypso_MPI_barrier
!
- call end_eleps_time(2)
+! call end_eleps_time(2)
!
end subroutine initialize_sph_MHD
!
@@ -92,7 +92,7 @@
!
! ---------------------
!
- call start_eleps_time(3)
+! call start_eleps_time(3)
!
!* ----------- set initial step data --------------
!*
@@ -114,13 +114,13 @@
!*
!* ----------- output field data --------------
!*
- call start_eleps_time(4)
- if (iflag_debug.eq.1) write(*,*) 'SPH_to_FEM_bridge_MHD'
+! call start_eleps_time(4)
+! if (iflag_debug.eq.1) write(*,*) 'SPH_to_FEM_bridge_MHD'
call SPH_to_FEM_bridge_MHD
- if (iflag_debug.eq.1) write(*,*) 'FEM_analyze'
+! if (iflag_debug.eq.1) write(*,*) 'FEM_analyze'
call FEM_analyze(i_step_MHD, istep_psf, istep_iso, &
& istep_pvr, istep_fline, visval)
- call end_eleps_time(4)
+! call end_eleps_time(4)
!
!* ----------- exit loop --------------
!*
@@ -137,13 +137,13 @@
! if (iflag_debug.eq.1) write(*,*) 'SPH_finalize_MHD'
! call SPH_finalize_MHD
!
- call copy_COMM_TIME_to_eleps(num_elapsed)
- call end_eleps_time(1)
+! call copy_COMM_TIME_to_eleps(num_elapsed)
+! call end_eleps_time(1)
!
- call output_elapsed_times
+! call output_elapsed_times
!
call calypso_MPI_barrier
- if (iflag_debug.eq.1) write(*,*) 'exit evolution'
+! if (iflag_debug.eq.1) write(*,*) 'exit evolution'
!
end subroutine evolution_sph_MHD
!
diff --git a/src/programs/data_utilities/INITIAL_FIELD/SPH_analyzer_const_initial.f90 b/src/programs/data_utilities/INITIAL_FIELD/SPH_analyzer_const_initial.f90
index 19b488a..1c0524d 100644
--- a/src/programs/data_utilities/INITIAL_FIELD/SPH_analyzer_const_initial.f90
+++ b/src/programs/data_utilities/INITIAL_FIELD/SPH_analyzer_const_initial.f90
@@ -20,7 +20,7 @@
subroutine SPH_const_initial
!
use m_constants
- use m_parallel_var_dof
+ use calypso_mpi
use m_machine_parameter
use m_control_parameter
!
diff --git a/src/programs/data_utilities/INITIAL_FIELD/analyzer_sph_initial_fld.f90 b/src/programs/data_utilities/INITIAL_FIELD/analyzer_sph_initial_fld.f90
index c4bc7c4..89b5a4a 100644
--- a/src/programs/data_utilities/INITIAL_FIELD/analyzer_sph_initial_fld.f90
+++ b/src/programs/data_utilities/INITIAL_FIELD/analyzer_sph_initial_fld.f90
@@ -17,7 +17,7 @@
use m_precision
!
use m_machine_parameter
- use m_parallel_var_dof
+ use calypso_mpi
use m_work_time
use m_control_parameter
use m_control_params_sph_MHD
diff --git a/src/programs/data_utilities/SNAPSHOT_MHD/SPH_analyzer_d_bench.f90 b/src/programs/data_utilities/SNAPSHOT_MHD/SPH_analyzer_d_bench.f90
index 7049001..8637630 100644
--- a/src/programs/data_utilities/SNAPSHOT_MHD/SPH_analyzer_d_bench.f90
+++ b/src/programs/data_utilities/SNAPSHOT_MHD/SPH_analyzer_d_bench.f90
@@ -28,7 +28,7 @@
subroutine SPH_init_sph_dbench
!
use m_constants
- use m_parallel_var_dof
+ use calypso_mpi
use m_array_for_send_recv
use m_machine_parameter
use m_control_parameter
diff --git a/src/programs/data_utilities/SNAPSHOT_MHD/SPH_analyzer_snap.f90 b/src/programs/data_utilities/SNAPSHOT_MHD/SPH_analyzer_snap.f90
index 7f22499..32a7a82 100644
--- a/src/programs/data_utilities/SNAPSHOT_MHD/SPH_analyzer_snap.f90
+++ b/src/programs/data_utilities/SNAPSHOT_MHD/SPH_analyzer_snap.f90
@@ -21,7 +21,7 @@
subroutine SPH_init_sph_snap
!
use m_constants
- use m_parallel_var_dof
+ use calypso_mpi
use m_machine_parameter
use m_control_parameter
!
diff --git a/src/programs/mesh_utilities/analyzer_test_sph.f90 b/src/programs/mesh_utilities/analyzer_test_sph.f90
index 465a50c..3ff56b6 100644
--- a/src/programs/mesh_utilities/analyzer_test_sph.f90
+++ b/src/programs/mesh_utilities/analyzer_test_sph.f90
@@ -26,7 +26,7 @@
!
subroutine init_analyzer
!
- use m_parallel_var_dof
+ use calypso_mpi
use m_read_ctl_gen_sph_shell
use set_control_platform_data
use load_data_for_sph_IO
@@ -52,7 +52,7 @@
!
subroutine analyze
!
- use m_parallel_var_dof
+ use calypso_mpi
use cmp_trans_sph_indices
use set_parallel_file_name
!
diff --git a/src/programs/mesh_utilities/cmp_trans_sph_indices.f90 b/src/programs/mesh_utilities/cmp_trans_sph_indices.f90
index 893c028..811025f 100644
--- a/src/programs/mesh_utilities/cmp_trans_sph_indices.f90
+++ b/src/programs/mesh_utilities/cmp_trans_sph_indices.f90
@@ -59,7 +59,7 @@
!
subroutine sph_indices_transfer
!
- use m_parallel_var_dof
+ use calypso_mpi
use m_spheric_parameter
use spherical_SRs_int
!
More information about the CIG-COMMITS
mailing list