m_global_parameters_common.fpp.f90 File Reference

Contains module m_global_parameters_common. More...

Go to the source code of this file.

Modules
module	m_global_parameters_common
	Shared global parameters and equation-index setup for all three executables. Each per-target m_global_parameters uses this module (default-public, so all symbols re-export to downstream consumers via two-hop use-association).

Functions/Subroutines
impure subroutine	m_global_parameters_common::s_initialize_eqn_idx (nmom_in, nb_in)
	Initialize equation-index state (eqn_idx, sys_size, b_size, tensor_size) from the namelist parameters. This is the shared skeleton: it covers the model_eqns dispatch, all eqn_idx field assignments, and the elasticity/surface-tension/chemistry extensions.
impure subroutine	m_global_parameters_common::s_initialize_parallel_io_common
	Configure MPI parallel I/O settings and allocate processor coordinate arrays. Shared across all three executables; num_dims/num_vels are computed here for pre/post unconditionally and for sim only when not case-optimized (in which case they are compile-time parameters). Callers must have already populated n and p (grid dimensions).
impure subroutine	m_global_parameters_common::s_finalize_global_parameters_common
	Shared finalize core: deallocate proc_coords and start_idx. Per-target finalize routines call this first, then handle their own extras (qbmm_idx, grid arrays, MPI_IO_DATA null/dealloc - those reference per-target typed variables and stay per-target).
impure subroutine	m_global_parameters_common::s_assign_common_defaults
	Assign default values to the user-input parameters that are shared across all three executables (pre_process, simulation, post_process). Per-target defaults (bc_io, cfl_dt, precision, nb, chem_params, bub_pp scalar companions, fluid_pp loop, patch arrays, output flags) remain in the per-target s_assign_default_values_to_user_inputs routines, which call this subroutine first, then call s_update_cell_bounds(cells_bounds, m, n, p) (cells_bounds is per-target), then apply their own assignments.

Variables
real(wp)	m_global_parameters_common::bx0
real(wp)	m_global_parameters_common::ca
real(wp)	m_global_parameters_common::r0ref
real(wp)	m_global_parameters_common::re_inv
real(wp)	m_global_parameters_common::web
real(wp)	m_global_parameters_common::a_x
real(wp)	m_global_parameters_common::a_y
real(wp)	m_global_parameters_common::a_z
logical	m_global_parameters_common::adv_n
logical	m_global_parameters_common::bubbles_euler
logical	m_global_parameters_common::bubbles_lagrange
character(len=path_len)	m_global_parameters_common::case_dir
logical	m_global_parameters_common::cfl_adap_dt
logical	m_global_parameters_common::cfl_const_dt
logical	m_global_parameters_common::cont_damage
logical	m_global_parameters_common::cyl_coord
integer	m_global_parameters_common::dist_type
logical	m_global_parameters_common::down_sample
logical	m_global_parameters_common::elliptic_smoothing
integer	m_global_parameters_common::elliptic_smoothing_iters
logical	m_global_parameters_common::fft_wrt
logical	m_global_parameters_common::file_per_process
real(wp), dimension(num_fluids_max)	m_global_parameters_common::fluid_rho
logical	m_global_parameters_common::hyper_cleaning
logical	m_global_parameters_common::hyperelasticity
logical	m_global_parameters_common::hypoelasticity
logical	m_global_parameters_common::ib
logical	m_global_parameters_common::igr
integer	m_global_parameters_common::igr_order
integer	m_global_parameters_common::loops_x
integer	m_global_parameters_common::loops_y
integer	m_global_parameters_common::loops_z
integer	m_global_parameters_common::m
logical	m_global_parameters_common::mhd
logical	m_global_parameters_common::mixlayer_perturb
real(wp)	m_global_parameters_common::mixlayer_perturb_k0
integer	m_global_parameters_common::mixlayer_perturb_nk
real(wp)	m_global_parameters_common::mixlayer_vel_coef
logical	m_global_parameters_common::mixlayer_vel_profile
integer	m_global_parameters_common::model_eqns
logical	m_global_parameters_common::mpp_lim
integer	m_global_parameters_common::muscl_order
integer	m_global_parameters_common::n
integer	m_global_parameters_common::n_start
integer	m_global_parameters_common::n_start_old
integer	m_global_parameters_common::nb
integer	m_global_parameters_common::num_bc_patches
integer	m_global_parameters_common::num_fluids
integer	m_global_parameters_common::num_ibs
integer	m_global_parameters_common::num_patches
integer	m_global_parameters_common::num_stl_models
logical	m_global_parameters_common::old_grid
logical	m_global_parameters_common::old_ic
integer	m_global_parameters_common::p
real(wp)	m_global_parameters_common::palpha_eps
logical	m_global_parameters_common::parallel_io
logical	m_global_parameters_common::perturb_flow
integer	m_global_parameters_common::perturb_flow_fluid
real(wp)	m_global_parameters_common::perturb_flow_mag
logical	m_global_parameters_common::perturb_sph
integer	m_global_parameters_common::perturb_sph_fluid
real(wp)	m_global_parameters_common::pi_fac
real(wp)	m_global_parameters_common::poly_sigma
logical	m_global_parameters_common::polydisperse
logical	m_global_parameters_common::polytropic
logical	m_global_parameters_common::pre_stress
integer	m_global_parameters_common::precision
real(wp)	m_global_parameters_common::pref
real(wp)	m_global_parameters_common::ptgalpha_eps
logical	m_global_parameters_common::qbmm
integer	m_global_parameters_common::recon_type
logical	m_global_parameters_common::relativity
logical	m_global_parameters_common::relax
integer	m_global_parameters_common::relax_model
real(wp)	m_global_parameters_common::rhorv
real(wp)	m_global_parameters_common::rhoref
real(wp)	m_global_parameters_common::sigr
real(wp)	m_global_parameters_common::sigv
real(wp)	m_global_parameters_common::sigma
logical	m_global_parameters_common::simplex_perturb
logical	m_global_parameters_common::stretch_x
logical	m_global_parameters_common::stretch_y
logical	m_global_parameters_common::stretch_z
logical	m_global_parameters_common::surface_tension
integer	m_global_parameters_common::t_step_old
integer	m_global_parameters_common::t_step_start
integer	m_global_parameters_common::thermal
logical	m_global_parameters_common::viscous
integer	m_global_parameters_common::weno_order
real(wp)	m_global_parameters_common::x_a
real(wp)	m_global_parameters_common::x_b
real(wp)	m_global_parameters_common::y_a
real(wp)	m_global_parameters_common::y_b
real(wp)	m_global_parameters_common::z_a
real(wp)	m_global_parameters_common::z_b
type(physical_parameters), dimension(num_fluids_max)	m_global_parameters_common::fluid_pp
	Per-fluid stiffened-gas EOS parameters, Reynolds numbers, and shear modulus.
type(subgrid_bubble_physical_parameters)	m_global_parameters_common::bub_pp
	Subgrid bubble physical parameters.
type(ic_patch_parameters), dimension(num_patches_max)	m_global_parameters_common::patch_icpp
	IC patch parameters.
type(bc_patch_parameters), dimension(num_bc_patches_max)	m_global_parameters_common::patch_bc
	Boundary condition patch parameters.
type(ib_patch_parameters), dimension(num_ib_patches_max_namelist)	m_global_parameters_common::patch_ib
	Immersed boundary patch parameters.
type(ib_airfoil_parameters), dimension(num_ib_airfoils_max)	m_global_parameters_common::ib_airfoil
	Per-airfoil NACA user inputs.
type(ib_stl_parameters), dimension(num_stl_models_max)	m_global_parameters_common::stl_models
	Per-STL model parameters.
type(simplex_noise_params)	m_global_parameters_common::simplex_params
integer	m_global_parameters_common::num_dims
	Number of spatial dimensions.
integer	m_global_parameters_common::num_vels
	Number of velocity components (different from num_dims for mhd).
integer	m_global_parameters_common::weno_polyn
	Degree of the WENO polynomials.
integer	m_global_parameters_common::muscl_polyn
	Degree of the MUSCL polynomials.
Annotations of the structure of the state and flux vectors in terms of the size and configuration of the system of
equations
integer	m_global_parameters_common::sys_size
	Number of unknowns in system of equations.
type(eqn_idx_info)	m_global_parameters_common::eqn_idx
	All conserved-variable equation index ranges and scalars.
integer	m_global_parameters_common::b_size
	Number of elements in the symmetric b tensor, plus one.
integer	m_global_parameters_common::tensor_size
	Number of elements in the full tensor plus one.
Chemistry modeling (Fypp compile-time constant; same value in all targets)
logical, parameter	m_global_parameters_common::chemistry = .False.
Elasticity and shear stress state (identical across all three executables)
logical	m_global_parameters_common::elasticity
	elasticity modeling, true for hyper or hypo
integer	m_global_parameters_common::shear_num
	Number of shear stress components.
integer, dimension(3)	m_global_parameters_common::shear_indices
	Indices of the stress components that represent shear stress.
integer	m_global_parameters_common::shear_bc_flip_num
	Number of shear stress components to reflect for boundary conditions.
integer, dimension(3, 2)	m_global_parameters_common::shear_bc_flip_indices
	Shear stress BC reflection indices (1:3, 1:shear_BC_flip_num).
Processor coordinates and parallel-IO addressing (identical declaration across all three targets)
integer, dimension(:), allocatable	m_global_parameters_common::proc_coords
	Processor coordinates in MPI_CART_COMM.
integer, dimension(:), allocatable	m_global_parameters_common::start_idx
	Starting cell-center index of local processor in global grid.
MPI info for parallel IO with Lustre file systems (identical across all three targets)
character(len=name_len)	m_global_parameters_common::mpiiofs
integer	m_global_parameters_common::mpi_info_int

Detailed Description

Contains module m_global_parameters_common.

Definition in file m_global_parameters_common.fpp.f90.