Skip to content

Commit

Permalink
Add initialization of control data labels for control file check utility
Browse files Browse the repository at this point in the history
  • Loading branch information
@hiromatsui
hiromatsui committed Aug 10, 2023
1 parent 974f5f0 commit a2ffb44
Show file tree
Hide file tree
Showing 192 changed files with 6,768 additions and 3,544 deletions.
4 changes: 3 additions & 1 deletion src/C_libraries/BASE/Makefile
View file
Original file line number Diff line number Diff line change
Expand Up @@ -16,7 +16,9 @@ dir_list:

lib_name:

lib_archve:
libtarget:

lib_archve: libtarget
@echo ' ''$$(AR)' '$$(ARFLUGS)' rcsv '$$@' '$$(OBJ_BASE_C)' >> $(MAKENAME)


Expand Down
4 changes: 2 additions & 2 deletions src/External_libs/FFTPACK5.1D/Makefile
View file
Original file line number Diff line number Diff line change
Expand Up @@ -26,14 +26,14 @@ lib_name:
@echo 'LIB_FFTPACK_FILE = $(LIB_FFTPACK_FILE)' >> $(MAKENAME)
@echo >> $(MAKENAME)

lib_tasks: libtarget lib_archve
lib_tasks: lib_archve
@echo ' ''$$(RANLIB) $$@' >> $(MAKENAME)

libtarget:
@echo '' >> $(MAKENAME)
@echo '$$(LIB_FFTPACK_FILE): $$(MOD_FFTPACK)'>> $(MAKENAME)

lib_archve:
lib_archve: libtarget
@echo ' $$(AR) $$(ARFLUGS) rcsv $$@ $$(MOD_FFTPACK)' >> $(MAKENAME)

mod_list:
Expand Down
4 changes: 3 additions & 1 deletion src/Fortran_libraries/MHD_src/IO/Makefile
View file
Original file line number Diff line number Diff line change
Expand Up @@ -13,7 +13,9 @@ MOD_MHD_IO = $(addsuffix .o,$(basename $(SOURCES)) )
dir_list:
@echo 'MHD_IO_DIR = $(MHD_IO_DIR)' >> $(MAKENAME)

lib_archve:
libtarget:

lib_archve: libtarget
@echo ' ''$$(AR)' '$$(ARFLUGS)' rcsv '$$@' '$$(MOD_MHD_IO)' \
>> $(MAKENAME)

Expand Down
36 changes: 19 additions & 17 deletions src/Fortran_libraries/MHD_src/IO/Makefile.depends
View file
Original file line number Diff line number Diff line change
Expand Up @@ -4,21 +4,21 @@ add_sph_MHD_fields_2_ctl.o: $(MHD_IO_DIR)/add_sph_MHD_fields_2_ctl.f90 m_precisi
$(F90) -c $(F90OPTFLAGS) $<
bcast_control_sph_MHD.o: $(MHD_IO_DIR)/bcast_control_sph_MHD.f90 m_precision.o calypso_mpi.o m_machine_parameter.o t_ctl_data_MHD.o t_ctl_data_sph_MHD_w_psf.o calypso_mpi_int.o calypso_mpi_char.o transfer_to_long_integers.o bcast_4_platform_ctl.o bcast_4_field_ctl.o bcast_4_sph_monitor_ctl.o bcast_4_sphere_ctl.o bcast_ctl_MHD_model.o bcast_monitor_data_ctl.o t_ctl_data_SPH_MHD_control.o bcast_4_time_step_ctl.o bcast_ctl_data_mhd_time_rst.o t_ctl_data_crust_filter.o bcast_control_arrays.o
$(F90) -c $(F90OPTFLAGS) $<
bcast_ctl_MHD_model.o: $(MHD_IO_DIR)/bcast_ctl_MHD_model.f90 m_precision.o m_machine_parameter.o calypso_mpi.o t_ctl_data_MHD_model.o calypso_mpi_int.o bcast_4_field_ctl.o bcast_ctl_data_mhd_evo.o bcast_ctl_data_mhd_forces.o t_ctl_data_dimless_numbers.o bcast_control_arrays.o t_ctl_data_mhd_normalize.o t_ctl_data_termal_norm.o t_ctl_data_momentum_norm.o t_ctl_data_induct_norm.o
bcast_ctl_MHD_model.o: $(MHD_IO_DIR)/bcast_ctl_MHD_model.f90 m_precision.o m_machine_parameter.o calypso_mpi.o t_ctl_data_MHD_model.o calypso_mpi_char.o calypso_mpi_int.o bcast_4_field_ctl.o bcast_ctl_data_mhd_evo.o bcast_ctl_data_mhd_forces.o transfer_to_long_integers.o t_ctl_data_dimless_numbers.o bcast_control_arrays.o t_ctl_data_mhd_normalize.o t_ctl_data_termal_norm.o t_ctl_data_momentum_norm.o t_ctl_data_induct_norm.o
$(F90) -c $(F90OPTFLAGS) $<
bcast_ctl_data_mhd_evo.o: $(MHD_IO_DIR)/bcast_ctl_data_mhd_evo.f90 m_precision.o m_machine_parameter.o calypso_mpi.o t_ctl_data_mhd_evolution.o calypso_mpi_int.o bcast_control_arrays.o t_ctl_data_mhd_evo_area.o t_ctl_data_node_boundary.o t_ctl_data_surf_boundary.o
bcast_ctl_data_mhd_evo.o: $(MHD_IO_DIR)/bcast_ctl_data_mhd_evo.f90 m_precision.o m_machine_parameter.o calypso_mpi.o t_ctl_data_mhd_evolution.o calypso_mpi_int.o calypso_mpi_char.o transfer_to_long_integers.o bcast_control_arrays.o t_ctl_data_mhd_evo_area.o t_ctl_data_node_boundary.o t_ctl_data_surf_boundary.o
$(F90) -c $(F90OPTFLAGS) $<
bcast_ctl_data_mhd_forces.o: $(MHD_IO_DIR)/bcast_ctl_data_mhd_forces.f90 m_precision.o m_machine_parameter.o calypso_mpi.o t_ctl_data_mhd_forces.o calypso_mpi_int.o bcast_control_arrays.o t_ctl_data_gravity.o t_ctl_data_coriolis_force.o t_ctl_data_mhd_magne.o t_ctl_data_magnetic_scale.o t_ctl_data_temp_model.o t_ctl_data_stratified_model.o
bcast_ctl_data_mhd_forces.o: $(MHD_IO_DIR)/bcast_ctl_data_mhd_forces.f90 m_precision.o m_machine_parameter.o calypso_mpi.o t_ctl_data_mhd_forces.o transfer_to_long_integers.o calypso_mpi_int.o calypso_mpi_char.o bcast_control_arrays.o t_ctl_data_gravity.o t_ctl_data_coriolis_force.o t_ctl_data_mhd_magne.o t_ctl_data_magnetic_scale.o t_ctl_data_temp_model.o t_ctl_data_stratified_model.o
$(F90) -c $(F90OPTFLAGS) $<
bcast_ctl_data_mhd_time_rst.o: $(MHD_IO_DIR)/bcast_ctl_data_mhd_time_rst.f90 m_precision.o m_machine_parameter.o calypso_mpi.o t_ctl_data_mhd_evo_scheme.o calypso_mpi_int.o bcast_control_arrays.o t_ctl_data_mhd_restart.o
bcast_ctl_data_mhd_time_rst.o: $(MHD_IO_DIR)/bcast_ctl_data_mhd_time_rst.f90 m_precision.o m_machine_parameter.o calypso_mpi.o t_ctl_data_mhd_evo_scheme.o transfer_to_long_integers.o calypso_mpi_char.o calypso_mpi_int.o bcast_control_arrays.o t_ctl_data_mhd_restart.o
$(F90) -c $(F90OPTFLAGS) $<
bcast_dynamo_sect_control.o: $(MHD_IO_DIR)/bcast_dynamo_sect_control.f90 m_precision.o calypso_mpi.o m_machine_parameter.o t_control_data_dynamo_sects.o calypso_mpi_int.o bcast_control_arrays.o bcast_section_control_data.o bcast_control_sph_MHD.o
bcast_dynamo_sect_control.o: $(MHD_IO_DIR)/bcast_dynamo_sect_control.f90 m_precision.o calypso_mpi.o m_machine_parameter.o t_control_data_dynamo_sects.o bcast_control_arrays.o bcast_section_control_data.o bcast_control_sph_MHD.o calypso_mpi_int.o calypso_mpi_char.o transfer_to_long_integers.o
$(F90) -c $(F90OPTFLAGS) $<
bcast_monitor_data_ctl.o: $(MHD_IO_DIR)/bcast_monitor_data_ctl.f90 m_precision.o m_machine_parameter.o t_ctl_data_node_monitor.o calypso_mpi.o calypso_mpi_int.o bcast_control_arrays.o
bcast_monitor_data_ctl.o: $(MHD_IO_DIR)/bcast_monitor_data_ctl.f90 m_precision.o m_machine_parameter.o t_ctl_data_node_monitor.o calypso_mpi.o transfer_to_long_integers.o calypso_mpi_char.o calypso_mpi_int.o bcast_control_arrays.o
$(F90) -c $(F90OPTFLAGS) $<
check_read_bc_file.o: $(MHD_IO_DIR)/check_read_bc_file.f90 m_precision.o t_bc_data_list.o t_control_parameter.o calypso_mpi.o t_physical_property.o
$(F90) -c $(F90OPTFLAGS) $<
ctl_data_MHD_model_IO.o: $(MHD_IO_DIR)/ctl_data_MHD_model_IO.f90 m_precision.o m_machine_parameter.o t_read_control_elements.o t_ctl_data_4_fields.o t_ctl_data_mhd_evolution.o t_ctl_data_mhd_evo_area.o t_ctl_data_node_boundary.o t_ctl_data_surf_boundary.o t_ctl_data_mhd_normalize.o t_ctl_data_mhd_forces.o t_ctl_data_coriolis_force.o t_ctl_data_gravity.o t_ctl_data_mhd_magne.o t_ctl_data_magnetic_scale.o t_ctl_data_temp_model.o t_ctl_data_dimless_numbers.o t_ctl_data_MHD_model.o skip_comment_f.o write_control_elements.o ctl_data_temp_model_IO.o ctl_data_comp_model_IO.o ctl_data_node_boundary_IO.o ctl_data_surf_boundary_IO.o
ctl_data_MHD_model_IO.o: $(MHD_IO_DIR)/ctl_data_MHD_model_IO.f90 m_precision.o m_machine_parameter.o t_read_control_elements.o t_ctl_data_4_fields.o t_ctl_data_mhd_evolution.o t_ctl_data_mhd_evo_area.o t_ctl_data_node_boundary.o t_ctl_data_surf_boundary.o t_ctl_data_mhd_normalize.o t_ctl_data_mhd_forces.o t_ctl_data_coriolis_force.o t_ctl_data_gravity.o t_ctl_data_mhd_magne.o t_ctl_data_magnetic_scale.o t_ctl_data_temp_model.o t_ctl_data_dimless_numbers.o t_ctl_data_MHD_model.o skip_comment_f.o write_control_elements.o ctl_data_node_boundary_IO.o ctl_data_surf_boundary_IO.o ctl_data_temp_model_IO.o ctl_data_comp_model_IO.o
$(F90) -c $(F90OPTFLAGS) $<
ctl_data_comp_model_IO.o: $(MHD_IO_DIR)/ctl_data_comp_model_IO.f90 m_precision.o m_machine_parameter.o t_read_control_elements.o t_control_array_character.o t_control_array_real.o t_ctl_data_temp_model.o skip_comment_f.o write_control_elements.o
$(F90) -c $(F90OPTFLAGS) $<
Expand All @@ -34,29 +34,31 @@ init_sph_MHD_elapsed_label.o: $(MHD_IO_DIR)/init_sph_MHD_elapsed_label.F90 m_pre
$(F90) -c $(F90OPTFLAGS) $(F90CPPFLAGS) $<
m_boundary_condition_IDs.o: $(MHD_IO_DIR)/m_boundary_condition_IDs.f90 m_precision.o
$(F90) -c $(F90OPTFLAGS) $<
m_force_control_labels.o: $(MHD_IO_DIR)/m_force_control_labels.f90 m_precision.o t_base_force_labels.o m_base_force_labels.o
m_fem_node_group_types.o: $(MHD_IO_DIR)/m_fem_node_group_types.f90 m_precision.o m_boundary_condition_IDs.o m_sph_node_group_types.o skip_comment_f.o t_control_array_character.o
$(F90) -c $(F90OPTFLAGS) $<
m_force_control_labels.o: $(MHD_IO_DIR)/m_force_control_labels.f90 m_precision.o t_base_force_labels.o m_base_force_labels.o t_control_array_character.o
$(F90) -c $(F90OPTFLAGS) $<
m_sph_node_group_types.o: $(MHD_IO_DIR)/m_sph_node_group_types.f90 m_precision.o m_boundary_condition_IDs.o skip_comment_f.o t_control_array_character.o
$(F90) -c $(F90OPTFLAGS) $<
output_viz_file_control.o: $(MHD_IO_DIR)/output_viz_file_control.f90 m_machine_parameter.o m_precision.o m_constants.o t_IO_step_parameter.o t_MHD_step_parameter.o t_flex_delta_t_parameter.o t_time_data.o
$(F90) -c $(F90OPTFLAGS) $<
set_control_4_MHD_coefs.o: $(MHD_IO_DIR)/set_control_4_MHD_coefs.f90 m_precision.o m_machine_parameter.o calypso_mpi.o m_error_IDs.o t_physical_property.o t_powers_4_coefficients.o t_ctl_data_mhd_normalize.o t_ctl_data_termal_norm.o t_ctl_data_momentum_norm.o t_ctl_data_induct_norm.o
$(F90) -c $(F90OPTFLAGS) $<
set_control_4_composition.o: $(MHD_IO_DIR)/set_control_4_composition.f90 m_precision.o calypso_mpi.o m_machine_parameter.o t_physical_property.o t_control_array_chara2real.o t_bc_data_list.o set_node_group_types.o set_surface_group_types.o
set_control_4_composition.o: $(MHD_IO_DIR)/set_control_4_composition.f90 m_precision.o calypso_mpi.o m_machine_parameter.o m_sph_node_group_types.o t_physical_property.o t_control_array_chara2real.o t_bc_data_list.o m_fem_node_group_types.o set_surface_group_types.o
$(F90) -c $(F90OPTFLAGS) $<
set_control_4_force.o: $(MHD_IO_DIR)/set_control_4_force.f90 m_precision.o m_constants.o m_error_IDs.o m_machine_parameter.o m_force_control_labels.o t_control_parameter.o t_ctl_data_mhd_forces.o t_ctl_data_mhd_magne.o t_ctl_data_gravity.o t_ctl_data_coriolis_force.o skip_comment_f.o t_physical_property.o calypso_mpi.o
$(F90) -c $(F90OPTFLAGS) $<
set_control_4_magne.o: $(MHD_IO_DIR)/set_control_4_magne.f90 m_precision.o m_machine_parameter.o calypso_mpi.o t_physical_property.o t_control_array_chara2real.o t_bc_data_list.o set_node_group_types.o set_surface_group_types.o
$(F90) -c $(F90OPTFLAGS) $<
set_control_4_model.o: $(MHD_IO_DIR)/set_control_4_model.f90 m_precision.o m_constants.o m_error_IDs.o m_machine_parameter.o t_ctl_data_mhd_evo_scheme.o t_control_parameter.o calypso_mpi.o t_ctl_data_mhd_evolution.o t_ctl_data_temp_model.o t_reference_scalar_param.o m_base_field_labels.o t_control_array_real.o
set_control_4_magne.o: $(MHD_IO_DIR)/set_control_4_magne.f90 m_precision.o m_machine_parameter.o m_sph_node_group_types.o calypso_mpi.o t_physical_property.o t_control_array_chara2real.o t_bc_data_list.o m_fem_node_group_types.o set_surface_group_types.o
$(F90) -c $(F90OPTFLAGS) $<
set_control_4_press.o: $(MHD_IO_DIR)/set_control_4_press.f90 m_precision.o m_machine_parameter.o calypso_mpi.o t_physical_property.o t_control_array_chara2real.o t_bc_data_list.o set_node_group_types.o set_surface_group_types.o
set_control_4_model.o: $(MHD_IO_DIR)/set_control_4_model.f90 m_precision.o m_constants.o m_error_IDs.o m_machine_parameter.o t_ctl_data_mhd_evo_scheme.o t_control_parameter.o calypso_mpi.o t_ctl_data_mhd_evolution.o t_ctl_data_temp_model.o t_reference_scalar_param.o m_base_field_labels.o set_reference_scalar_param.o t_control_array_real.o
$(F90) -c $(F90OPTFLAGS) $<
set_control_4_temp.o: $(MHD_IO_DIR)/set_control_4_temp.f90 m_precision.o m_machine_parameter.o calypso_mpi.o t_physical_property.o t_control_array_chara2real.o t_bc_data_list.o set_node_group_types.o set_surface_group_types.o
set_control_4_press.o: $(MHD_IO_DIR)/set_control_4_press.f90 m_precision.o m_machine_parameter.o m_sph_node_group_types.o calypso_mpi.o t_physical_property.o t_control_array_chara2real.o t_bc_data_list.o m_fem_node_group_types.o set_surface_group_types.o
$(F90) -c $(F90OPTFLAGS) $<
set_control_4_velo.o: $(MHD_IO_DIR)/set_control_4_velo.f90 m_precision.o m_machine_parameter.o calypso_mpi.o t_physical_property.o t_control_array_chara2real.o t_bc_data_list.o set_node_group_types.o set_surface_group_types.o skip_comment_f.o
set_control_4_temp.o: $(MHD_IO_DIR)/set_control_4_temp.f90 m_precision.o m_machine_parameter.o m_sph_node_group_types.o calypso_mpi.o t_physical_property.o t_control_array_chara2real.o t_bc_data_list.o m_fem_node_group_types.o set_surface_group_types.o
$(F90) -c $(F90OPTFLAGS) $<
set_node_group_types.o: $(MHD_IO_DIR)/set_node_group_types.f90 m_precision.o m_boundary_condition_IDs.o skip_comment_f.o
set_control_4_velo.o: $(MHD_IO_DIR)/set_control_4_velo.f90 m_precision.o m_machine_parameter.o m_sph_node_group_types.o calypso_mpi.o t_physical_property.o t_control_array_chara2real.o t_bc_data_list.o m_fem_node_group_types.o set_surface_group_types.o skip_comment_f.o
$(F90) -c $(F90OPTFLAGS) $<
set_surface_group_types.o: $(MHD_IO_DIR)/set_surface_group_types.f90 m_precision.o m_boundary_condition_IDs.o set_node_group_types.o skip_comment_f.o
set_surface_group_types.o: $(MHD_IO_DIR)/set_surface_group_types.f90 m_precision.o m_boundary_condition_IDs.o m_fem_node_group_types.o skip_comment_f.o m_sph_node_group_types.o t_control_array_character.o
$(F90) -c $(F90OPTFLAGS) $<
sph_mhd_rst_IO_control.o: $(MHD_IO_DIR)/sph_mhd_rst_IO_control.f90 m_precision.o m_machine_parameter.o calypso_mpi.o m_file_format_switch.o t_time_data.o t_IO_step_parameter.o t_phys_address.o t_phys_data.o t_MHD_file_parameter.o t_file_IO_parameter.o t_field_data_IO.o field_IO_select.o set_sph_restart_IO.o t_spheric_parameter.o r_interpolate_sph_data.o copy_rj_phys_data_4_IO.o const_global_element_ids.o t_spheric_rj_data.o
$(F90) -c $(F90OPTFLAGS) $<
Expand Down
14 changes: 13 additions & 1 deletion src/Fortran_libraries/MHD_src/IO/bcast_control_sph_MHD.f90
View file
Original file line number Diff line number Diff line change
Expand Up @@ -68,7 +68,10 @@ subroutine bcast_sph_mhd_control_data(MHD_ctl)
call bcast_sph_monitoring_ctl(MHD_ctl%smonitor_ctl)
!
call calypso_mpi_bcast_character &
& (MHD_ctl%fname_psph_ctl, cast_long(kchara), 0)
& (MHD_ctl%fname_psph, cast_long(kchara), 0)
!
call calypso_mpi_bcast_character &
& (MHD_ctl%block_name, cast_long(kchara), 0)
call calypso_mpi_bcast_one_int(MHD_ctl%i_mhd_ctl, 0)
!
end subroutine bcast_sph_mhd_control_data
Expand All @@ -79,6 +82,8 @@ end subroutine bcast_sph_mhd_control_data
subroutine bcast_sph_mhd_control(smctl_ctl)
!
use t_ctl_data_SPH_MHD_control
use transfer_to_long_integers
use calypso_mpi_char
use calypso_mpi_int
use bcast_4_time_step_ctl
use bcast_ctl_data_mhd_time_rst
Expand All @@ -90,6 +95,8 @@ subroutine bcast_sph_mhd_control(smctl_ctl)
call bcast_time_loop_ctl(smctl_ctl%mevo_ctl)
call bcast_ctl_data_4_time_step(smctl_ctl%tctl)
!
call calypso_mpi_bcast_character(smctl_ctl%block_name, &
& cast_long(kchara), 0)
call calypso_mpi_bcast_one_int(smctl_ctl%i_control, 0)
!
end subroutine bcast_sph_mhd_control
Expand All @@ -99,13 +106,18 @@ end subroutine bcast_sph_mhd_control
subroutine bcast_crustal_filtering_ctl(crust_filter_c)
!
use t_ctl_data_crust_filter
use transfer_to_long_integers
use calypso_mpi_char
use calypso_mpi_int
use bcast_control_arrays
!
type(clust_filtering_ctl), intent(inout) :: crust_filter_c
!
!
call bcast_ctl_type_i1(crust_filter_c%crust_truncation_ctl)
!
call calypso_mpi_bcast_character(crust_filter_c%block_name, &
& cast_long(kchara), 0)
call calypso_mpi_bcast_one_int &
& (crust_filter_c%i_crustal_filtering, 0)
!
Expand Down
25 changes: 25 additions & 0 deletions src/Fortran_libraries/MHD_src/IO/bcast_ctl_MHD_model.f90
View file
Original file line number Diff line number Diff line change
Expand Up @@ -48,10 +48,12 @@ module bcast_ctl_MHD_model
subroutine bcast_ctl_data_mhd_model(model_ctl)
!
use t_ctl_data_MHD_model
use calypso_mpi_char
use calypso_mpi_int
use bcast_4_field_ctl
use bcast_ctl_data_mhd_evo
use bcast_ctl_data_mhd_forces
use transfer_to_long_integers
!
type(mhd_model_control), intent(inout) :: model_ctl
!
Expand All @@ -73,6 +75,8 @@ subroutine bcast_ctl_data_mhd_model(model_ctl)
call bcast_ref_scalar_ctl(model_ctl%reft_ctl)
call bcast_ref_scalar_ctl(model_ctl%refc_ctl)
!
call calypso_mpi_bcast_character &
& (model_ctl%block_name, cast_long(kchara), 0)
call calypso_mpi_bcast_one_int(model_ctl%i_model, 0)
!
end subroutine bcast_ctl_data_mhd_model
Expand All @@ -83,12 +87,17 @@ end subroutine bcast_ctl_data_mhd_model
subroutine bcast_dimless_ctl(dless_ctl)
!
use t_ctl_data_dimless_numbers
use transfer_to_long_integers
use calypso_mpi_char
use calypso_mpi_int
use bcast_control_arrays
!
type(dimless_control), intent(inout) :: dless_ctl
!
call bcast_ctl_array_cr(dless_ctl%dimless)
!
call calypso_mpi_bcast_character &
& (dless_ctl%block_name, cast_long(kchara), 0)
call calypso_mpi_bcast_one_int(dless_ctl%i_dimless_ctl, 0)
!
end subroutine bcast_dimless_ctl
Expand All @@ -98,6 +107,8 @@ end subroutine bcast_dimless_ctl
subroutine bcast_coef_term_ctl(eqs_ctl)
!
use t_ctl_data_mhd_normalize
use transfer_to_long_integers
use calypso_mpi_char
use calypso_mpi_int
use bcast_control_arrays
!
Expand All @@ -109,6 +120,8 @@ subroutine bcast_coef_term_ctl(eqs_ctl)
call bcast_induction_ctl(eqs_ctl%induct_ctl)
call bcast_thermal_ctl(eqs_ctl%comp_ctl)
!
call calypso_mpi_bcast_character &
& (eqs_ctl%block_name, cast_long(kchara), 0)
call calypso_mpi_bcast_one_int(eqs_ctl%i_coef_term_ctl, 0)
!
end subroutine bcast_coef_term_ctl
Expand All @@ -118,6 +131,8 @@ end subroutine bcast_coef_term_ctl
subroutine bcast_thermal_ctl(heat_ctl)
!
use t_ctl_data_termal_norm
use transfer_to_long_integers
use calypso_mpi_char
use calypso_mpi_int
use bcast_control_arrays
!
Expand All @@ -127,6 +142,8 @@ subroutine bcast_thermal_ctl(heat_ctl)
call bcast_ctl_array_cr(heat_ctl%coef_4_diffuse)
call bcast_ctl_array_cr(heat_ctl%coef_4_source)
!
call calypso_mpi_bcast_character &
& (heat_ctl%block_name, cast_long(kchara), 0)
call calypso_mpi_bcast_one_int(heat_ctl%i_diff_adv, 0)
!
end subroutine bcast_thermal_ctl
Expand All @@ -137,6 +154,8 @@ end subroutine bcast_thermal_ctl
subroutine bcast_momentum_ctl(mom_ctl)
!
use t_ctl_data_momentum_norm
use transfer_to_long_integers
use calypso_mpi_char
use calypso_mpi_int
use bcast_control_arrays
!
Expand All @@ -152,6 +171,8 @@ subroutine bcast_momentum_ctl(mom_ctl)
call bcast_ctl_array_cr(mom_ctl%coef_4_Coriolis)
call bcast_ctl_array_cr(mom_ctl%coef_4_Lorentz)
!
call calypso_mpi_bcast_character &
& (mom_ctl%block_name, cast_long(kchara), 0)
call calypso_mpi_bcast_one_int(mom_ctl%i_momentum, 0)
!
end subroutine bcast_momentum_ctl
Expand All @@ -161,6 +182,8 @@ end subroutine bcast_momentum_ctl
subroutine bcast_induction_ctl(induct_ctl)
!
use t_ctl_data_induct_norm
use transfer_to_long_integers
use calypso_mpi_char
use calypso_mpi_int
use bcast_control_arrays
!
Expand All @@ -171,6 +194,8 @@ subroutine bcast_induction_ctl(induct_ctl)
call bcast_ctl_array_cr(induct_ctl%coef_4_mag_diffuse)
call bcast_ctl_array_cr(induct_ctl%coef_4_induction)
!
call calypso_mpi_bcast_character &
& (induct_ctl%block_name, cast_long(kchara), 0)
call calypso_mpi_bcast_one_int(induct_ctl%i_induct_ctl, 0)
!
end subroutine bcast_induction_ctl
Expand Down
Loading

0 comments on commit a2ffb44

Please sign in to comment.