[cig-commits] [commit] Faster_Legendre_transform, Legendre_transform_w_symmetry: Modify Legendre transform to speedup Add treatment of the center for whole sphere model Use structures for control array input (637a409)
cig_noreply at geodynamics.org
cig_noreply at geodynamics.org
Wed Nov 5 19:00:56 PST 2014
Repository : https://github.com/geodynamics/calypso
On branches: Faster_Legendre_transform,Legendre_transform_w_symmetry
Link : https://github.com/geodynamics/calypso/compare/0000000000000000000000000000000000000000...537bef902fcbd7167c78a1b35a7a41d022964d74
>---------------------------------------------------------------
commit 637a409ed67548adbbe0250ab2a8a5542a48b49d
Author: Hiroaki Matsui <h_kemono at mac.com>
Date: Wed Jun 25 11:28:03 2014 -0700
Modify Legendre transform to speedup
Add treatment of the center for whole sphere model
Use structures for control array input
>---------------------------------------------------------------
637a409ed67548adbbe0250ab2a8a5542a48b49d
.../MHD_src/IO/init_sph_MHD_elapsed_label.f90 | 16 +-
.../MHD_src/IO/m_ctl_data_composite_norm.f90 | 96 +-
.../MHD_src/IO/m_ctl_data_induct_norm.f90 | 152 +--
.../MHD_src/IO/m_ctl_data_mhd_evolution.f90 | 103 +-
.../MHD_src/IO/m_ctl_data_mhd_forces.f90 | 83 +-
.../MHD_src/IO/m_ctl_data_mhd_normalize.f90 | 39 +-
.../MHD_src/IO/m_ctl_data_momentum_norm.f90 | 249 ++---
.../MHD_src/IO/m_ctl_data_node_boundary.f90 | 336 ++-----
.../MHD_src/IO/m_ctl_data_node_monitor.f90 | 54 +-
.../MHD_src/IO/m_ctl_data_surf_boundary.f90 | 400 ++------
.../MHD_src/IO/m_ctl_data_termal_norm.f90 | 109 +-
.../MHD_src/IO/set_control_4_composition.f90 | 34 +-
.../MHD_src/IO/set_control_4_force.f90 | 194 ++--
.../MHD_src/IO/set_control_4_magne.f90 | 50 +-
.../MHD_src/IO/set_control_4_model.f90 | 15 +-
.../MHD_src/IO/set_control_4_normalize.f90 | 555 ++++++-----
.../MHD_src/IO/set_control_4_press.f90 | 28 +-
.../MHD_src/IO/set_control_4_temp.f90 | 32 +-
.../MHD_src/IO/set_control_4_velo.f90 | 62 +-
.../MHD_src/IO/set_node_group_types.f90 | 55 ++
.../MHD_src/IO/sph_mhd_rms_IO.f90 | 6 +
src/Fortran_libraries/MHD_src/Makefile | 2 +-
.../MHD_src/field_data/copy_MHD_4_pole_trans.f90 | 46 +-
.../field_data/lead_pole_data_4_sph_mhd.f90 | 34 +-
.../MHD_src/field_data/output_ucd_file_control.f90 | 17 +-
.../MHD_src/sph_MHD/cal_diff_adv_src_explicit.f90 | 30 +-
.../MHD_src/sph_MHD/cal_div_buoyancies_sph_MHD.f90 | 16 -
.../MHD_src/sph_MHD/cal_energy_flux_rtp.f90 | 3 +
.../MHD_src/sph_MHD/cal_nonlinear.f90 | 1 -
.../MHD_src/sph_MHD/cal_sol_sph_fluid_crank.f90 | 263 +++--
.../MHD_src/sph_MHD/cal_sph_exp_center.f90 | 331 +++++++
.../MHD_src/sph_MHD/cal_sph_exp_fixed_flux.f90 | 96 +-
.../MHD_src/sph_MHD/cal_sph_exp_fixed_scalar.f90 | 156 +--
.../MHD_src/sph_MHD/cal_sph_exp_nod_cmb_ins.f90 | 4 +-
.../MHD_src/sph_MHD/cal_sph_exp_nod_cmb_qvac.f90 | 4 +-
.../MHD_src/sph_MHD/cal_sph_exp_nod_icb_ins.f90 | 4 +-
.../MHD_src/sph_MHD/cal_sph_exp_nod_icb_qvac.f90 | 4 +-
.../MHD_src/sph_MHD/cal_sph_exp_nod_none_bc.f90 | 78 +-
.../MHD_src/sph_MHD/center_sph_matrices.f90 | 167 +++-
.../MHD_src/sph_MHD/check_dependency_for_MHD.f90 | 12 +
.../MHD_src/sph_MHD/check_sph_radial_mat.f90 | 198 ++--
.../MHD_src/sph_MHD/const_coriolis_sph_rlm.f90 | 3 +-
.../MHD_src/sph_MHD/const_r_mat_4_scalar_sph.f90 | 82 +-
.../MHD_src/sph_MHD/const_r_mat_4_vector_sph.f90 | 35 +-
.../MHD_src/sph_MHD/const_r_mat_w_center_sph.f90 | 165 ++++
.../MHD_src/sph_MHD/const_radial_mat_4_sph.f90 | 92 +-
.../MHD_src/sph_MHD/const_sph_radial_grad.f90 | 29 +
.../MHD_src/sph_MHD/copy_MHD_4_sph_trans.f90 | 50 +-
.../MHD_src/sph_MHD/copy_snap_4_sph_trans.f90 | 138 +--
.../MHD_src/sph_MHD/copy_temporal_4_sph_trans.f90 | 172 ++++
.../MHD_src/sph_MHD/lead_fields_4_sph_mhd.f90 | 37 +-
.../MHD_src/sph_MHD/m_addresses_trans_sph_MHD.f90 | 89 +-
.../MHD_src/sph_MHD/m_addresses_trans_sph_snap.f90 | 135 +--
.../MHD_src/sph_MHD/m_addresses_trans_sph_tmp.f90 | 154 +++
.../MHD_src/sph_MHD/m_coef_fdm_to_center.f90 | 153 ++-
.../MHD_src/sph_MHD/m_control_parameter.f90 | 90 ++
.../MHD_src/sph_MHD/m_coriolis_terms_rlm.f90 | 96 +-
.../MHD_src/sph_MHD/m_normalize_parameter.f90 | 34 +-
.../MHD_src/sph_MHD/m_radial_mat_sph_w_center.f90 | 235 +++++
.../MHD_src/sph_MHD/m_radial_matrices_sph.f90 | 120 ++-
.../MHD_src/sph_MHD/material_property.f90 | 24 +-
.../MHD_src/sph_MHD/poynting_flux_smp.f90 | 125 +++
.../MHD_src/sph_MHD/select_exp_scalar_bc.f90 | 49 +-
.../MHD_src/sph_MHD/set_bc_sph_mhd.f90 | 11 +-
.../MHD_src/sph_MHD/set_bc_sph_scalars.f90 | 29 +-
.../MHD_src/sph_MHD/set_control_sph_data_MHD.f90 | 18 +-
.../MHD_src/sph_MHD/set_scalar_boundary_sph.f90 | 4 +-
.../MHD_src/sph_MHD/set_sph_exp_free_CMB.f90 | 2 +-
.../MHD_src/sph_MHD/set_sph_exp_free_ICB.f90 | 2 +-
.../MHD_src/sph_MHD/set_sph_exp_rigid_CMB.f90 | 4 +-
.../MHD_src/sph_MHD/set_sph_exp_rigid_ICB.f90 | 4 +-
.../MHD_src/sph_MHD/set_sph_magne_mat_bc.f90 | 4 +-
.../MHD_src/sph_MHD/set_sph_scalar_mat_bc.f90 | 10 +-
.../MHD_src/sph_MHD/sph_poynting_flux_smp.f90 | 78 ++
.../MHD_src/sph_MHD/sph_trans_w_coriols.f90 | 37 +-
.../MHD_src/sph_MHD/sph_transforms_4_MHD.f90 | 190 ++--
.../MHD_src/sph_MHD/sum_coriolis_terms_rlm.f90 | 325 +++---
.../MHD_src/sph_MHD/t_boundary_params_sph_MHD.f90 | 15 +-
.../PARALLEL_src/COMM_src/calypso_SR.f90 | 8 -
.../PARALLEL_src/COMM_src/calypso_SR_2.f90 | 8 -
.../PARALLEL_src/COMM_src/calypso_SR_3.f90 | 8 -
.../PARALLEL_src/COMM_src/calypso_SR_6.f90 | 8 -
.../PARALLEL_src/COMM_src/calypso_SR_N.f90 | 20 +-
.../PARALLEL_src/COMM_src/calypso_SR_int.f90 | 4 -
.../PARALLEL_src/COMM_src/calypso_SR_rev.f90 | 8 -
.../PARALLEL_src/COMM_src/calypso_SR_rev_2.f90 | 8 -
.../PARALLEL_src/COMM_src/calypso_SR_rev_3.f90 | 8 -
.../PARALLEL_src/COMM_src/calypso_SR_rev_6.f90 | 8 -
.../PARALLEL_src/COMM_src/calypso_SR_rev_N.f90 | 20 +-
.../PARALLEL_src/COMM_src/calypso_SR_rev_int.f90 | 4 -
.../COMM_src/parallel_ucd_IO_select.F90 | 13 +-
.../PARALLEL_src/COMM_src/select_calypso_SR.f90 | 32 +
.../SPH_SHELL_src/cal_ave_4_rms_vector_sph.f90 | 100 +-
.../SPH_SHELL_src/cal_rms_by_sph_spectr.f90 | 181 ++--
.../SPH_SHELL_src/cal_rms_fields_by_sph.f90 | 156 +--
.../SPH_SHELL_src/copy_all_spec_4_sph_trans.f90 | 48 +-
.../SPH_SHELL_src/copy_pole_field_sph_trans.f90 | 40 +-
.../PARALLEL_src/SPH_SHELL_src/init_sph_trans.f90 | 147 ++-
.../SPH_SHELL_src/legendre_bwd_trans_fdout.f90 | 187 ++--
.../SPH_SHELL_src/legendre_bwd_trans_krin.f90 | 237 +++--
.../SPH_SHELL_src/legendre_bwd_trans_lgloop.f90 | 42 +-
.../SPH_SHELL_src/legendre_bwd_trans_org.f90 | 147 ++-
.../SPH_SHELL_src/legendre_bwd_trans_spin.f90 | 176 ++--
.../SPH_SHELL_src/legendre_fwd_trans_fdout.f90 | 81 +-
.../SPH_SHELL_src/legendre_fwd_trans_krin.f90 | 200 ++--
.../SPH_SHELL_src/legendre_fwd_trans_lgloop.f90 | 70 +-
.../SPH_SHELL_src/legendre_fwd_trans_org.f90 | 81 +-
.../SPH_SHELL_src/legendre_fwd_trans_spin.f90 | 172 ++--
.../SPH_SHELL_src/legendre_transform_fdout.f90 | 93 +-
.../SPH_SHELL_src/legendre_transform_krin.f90 | 90 +-
.../SPH_SHELL_src/legendre_transform_lgloop.f90 | 53 +-
.../SPH_SHELL_src/legendre_transform_org.f90 | 65 +-
.../SPH_SHELL_src/legendre_transform_select.f90 | 142 ++-
.../SPH_SHELL_src/legendre_transform_spin.f90 | 118 +--
.../SPH_SHELL_src/m_work_4_sph_trans.f90 | 25 +-
.../SPH_SHELL_src/m_work_4_sph_trans_spin.f90 | 84 +-
.../SPH_SHELL_src/m_work_pole_sph_trans.f90 | 10 +-
.../SPH_SHELL_src/ordering_leg_trans_fdout.f90 | 263 +----
.../SPH_SHELL_src/ordering_schmidt_trans_krin.f90 | 315 ++----
.../SPH_SHELL_src/ordering_schmidt_trans_spin.f90 | 258 +----
.../SPH_SHELL_src/parallel_load_data_4_sph.f90 | 70 ++
.../SPH_SHELL_src/pickup_gauss_coefficients.f90 | 14 +-
.../SPH_SHELL_src/pickup_sph_coefs.f90 | 146 ++-
.../SPH_SHELL_src/pickup_sph_rms_spectr.f90 | 214 ----
.../SPH_SHELL_src/pickup_sph_spectr.f90 | 59 +-
.../SPH_SHELL_src/pole_sph_transform.f90 | 92 +-
.../SPH_SHELL_src/r_interpolate_sph_data.f90 | 6 +-
.../SPH_SHELL_src/schmidt_b_trans_at_center.f90 | 52 +-
.../SPH_SHELL_src/schmidt_b_trans_at_pole.f90 | 264 ++---
.../SPH_SHELL_src/select_fourier_transform.F90 | 91 +-
.../SPH_SHELL_src/set_phys_name_4_sph_trans.f90 | 6 +-
.../{sph_trans_vector.f90 => sph_transforms.f90} | 53 +-
.../PARALLEL_src/SPH_SHELL_src/spherical_SRs_N.f90 | 53 +-
.../SPH_SHELL_src/sum_b_trans_at_pole.f90 | 62 +-
.../SPH_SHELL_src/sum_sph_rms_data.f90 | 123 ++-
.../SPH_SHELL_src/volume_average_4_sph.f90 | 191 ++++
.../SERIAL_src/BASE/m_constants.f90 | 2 +
.../SERIAL_src/BASE/m_phys_labels.f90 | 7 +-
.../SERIAL_src/BASE/set_field_address.f90 | 2 +
.../SERIAL_src/BASE/t_group_data.f90 | 25 +
.../SERIAL_src/BASE/t_phys_address.f90 | 3 +
.../SERIAL_src/BASE/t_phys_data.f90 | 5 +-
.../{FFTW_wrapper.f90 => FFTW3_wrapper.F90} | 328 +++---
.../SERIAL_src/FFT_wrapper/FFT_selector.F90 | 6 +-
.../SERIAL_src/FFT_wrapper/m_FFTW_wrapper.f90 | 108 +-
.../FFT_wrapper/m_multi_FFTW_wrapper.f90 | 205 ++++
.../SERIAL_src/FFT_wrapper/t_FFTW_wrapper.f90 | 100 +-
src/Fortran_libraries/SERIAL_src/IO/Makefile | 6 +-
.../SERIAL_src/IO/add_nodal_fields_ctl.f90 | 34 +-
.../SERIAL_src/IO/m_ctl_data_4_divide_sphere.f90 | 101 +-
.../SERIAL_src/IO/m_ctl_data_4_fields.f90 | 130 +--
.../SERIAL_src/IO/m_ctl_data_4_pickup_sph.f90 | 230 ++---
.../SERIAL_src/IO/m_ctl_data_4_platforms.f90 | 7 +
.../SERIAL_src/IO/m_ctl_data_4_sphere_model.f90 | 114 +--
.../SERIAL_src/IO/m_gauss_coefs_monitor_data.f90 | 4 +-
.../SERIAL_src/IO/m_pickup_sph_spectr_data.f90 | 4 +-
.../SERIAL_src/IO/m_read_control_elements.f90 | 463 ++-------
.../SERIAL_src/IO/ordering_field_by_viz.f90 | 56 +-
.../SERIAL_src/IO/set_and_cal_udt_data.f90 | 79 +-
.../SERIAL_src/IO/set_control_4_pickup_sph.f90 | 86 +-
.../SERIAL_src/IO/set_nodal_field_name.f90 | 15 +-
.../SERIAL_src/IO/t_read_control_arrays.f90 | 1042 ++++++++++++++++++++
src/Fortran_libraries/SERIAL_src/IO/t_ucd_data.f90 | 18 +
.../SPH_SPECTR_src/copy_sph_comm_table_4_type.f90 | 158 ++-
.../SPH_SPECTR_src/copy_sph_groups_from_IO.f90 | 26 +-
.../SPH_SPECTR_src/extend_potential_field.f90 | 79 +-
.../SPH_SPECTR_src/load_data_for_sph_IO.f90 | 71 +-
.../SPH_SPECTR_src/m_global_gauss_coefs.f90 | 10 +-
.../SPH_SPECTR_src/m_group_data_sph_specr.f90 | 71 +-
.../SPH_SPECTR_src/m_rms_4_sph_spectr.f90 | 37 +-
.../SPH_SPECTR_src/m_schmidt_poly_on_gauss.f90 | 135 ++-
.../SPH_SPECTR_src/m_schmidt_poly_on_rtm.f90 | 156 ++-
.../SPH_SPECTR_src/m_sph_phys_address.f90 | 2 +
.../SPH_SPECTR_src/m_spheric_parameter.f90 | 9 +
.../SPH_SPECTR_src/output_sph_m_square_file.f90 | 31 +-
.../SPH_SPECTR_src/radial_int_for_sph_spec.f90 | 171 +---
.../SPH_SPECTR_src/set_control_sph_data.f90 | 4 +-
.../SPH_SPECTR_src/set_radial_grid_sph_shell.f90 | 16 +-
.../SPH_SPECTR_src/set_special_sph_lm_flags.f90 | 22 +-
.../SPH_SPECTR_src/t_spheric_parameter.f90 | 9 +
.../SERIAL_src/spherical_harmonics/legendre.f90 | 22 +-
.../spherical_harmonics/m_schmidt_polynomial.f90 | 13 +-
.../SERIAL_src/spherical_harmonics/schmidt.f90 | 18 +-
.../UTILS_src/MERGE/merge_sph_step_spectr.f90 | 6 +-
.../UTILS_src/MERGE/r_interpolate_marged_sph.f90 | 2 +-
.../UTILS_src/MESH/check_geometries.f90 | 2 +-
.../UTILS_src/MESH/m_ucd_data.f90 | 18 +-
.../UTILS_src/MESH/set_group_types_4_IO.f90 | 15 +-
.../UTILS_src/MESH/t_comm_table.f90 | 73 +-
.../UTILS_src/MESH/t_edge_data.f90 | 87 +-
.../UTILS_src/MESH/t_geometry_data.f90 | 246 +++--
.../UTILS_src/MESH/t_group_connects.f90 | 39 +
.../UTILS_src/MESH/t_mesh_data.f90 | 177 +++-
.../UTILS_src/MESH/t_surface_data.f90 | 1 +
.../UTILS_src/MESH/t_surface_group_connect.f90 | 21 +-
.../spherical_grid/copy_sph_1d_global_index.f90 | 49 +-
.../spherical_grid/gen_sph_grids_modes.f90 | 304 +++---
.../spherical_grid/m_parallel_sph_grids.f90 | 3 +-
.../spherical_grid/set_comm_table_rtp_rj.f90 | 154 ++-
.../spherical_grid/set_ctl_gen_shell_eq.f90 | 37 +-
.../spherical_grid/set_ctl_gen_shell_grids.f90 | 120 ++-
.../spherical_grid/set_local_sphere_by_global.f90 | 162 ++-
.../spherical_grid/set_local_sphere_param.f90 | 40 +-
.../spherical_grid/set_stack_4_sph_groups.f90 | 23 +-
src/programs/SPH_MHD/SPH_analyzer_MHD.f90 | 11 +-
src/programs/SPH_MHD/control_MHD | 2 +-
src/programs/data_utilities/CMakeLists.txt | 2 +-
.../INITIAL_FIELD/SPH_analyzer_add_initial.f90 | 6 +-
.../INITIAL_FIELD/SPH_analyzer_const_initial.f90 | 9 +-
.../INITIAL_FIELD/const_sph_initial_spectr.f90 | 17 +-
.../data_utilities/MERGE/assemble_newsph.f90 | 2 +-
.../SNAPSHOT_MHD/SPH_analyzer_d_bench.f90 | 10 +-
.../SNAPSHOT_MHD/SPH_analyzer_snap.f90 | 12 +-
.../data_utilities/TIME_HISTORIES/Makefile | 20 +-
.../TIME_HISTORIES/t_average_sph_ene_spec.f90 | 3 +-
src/programs/mesh_utilities/analyzer_test_sph.f90 | 9 +-
.../mesh_utilities/cmp_trans_sph_tests.f90 | 7 +
.../mesh_utilities/generate_sph_grids_nosf.f90 | 2 +-
218 files changed, 10142 insertions(+), 7997 deletions(-)
Diff suppressed because of size. To see it, use:
git diff-tree --root --patch-with-stat --no-color --find-copies-harder --ignore-space-at-eol --cc 637a409ed67548adbbe0250ab2a8a5542a48b49d
More information about the CIG-COMMITS
mailing list