cmp_circulator_init_m Module


Uses

  • module~~cmp_circulator_init_m~~UsesGraph module~cmp_circulator_init_m cmp_circulator_init_m module~krn_global_tools_m krn_global_tools_m module~cmp_circulator_init_m->module~krn_global_tools_m module~krn_interface_m krn_interface_m module~cmp_circulator_init_m->module~krn_interface_m module~krn_simulation_m krn_simulation_m module~cmp_circulator_init_m->module~krn_simulation_m module~lib_ext_math_m lib_ext_math_m module~cmp_circulator_init_m->module~lib_ext_math_m module~lib_he_thermo_m lib_He_thermo_m module~cmp_circulator_init_m->module~lib_he_thermo_m module~lib_input_m lib_input_m module~cmp_circulator_init_m->module~lib_input_m ieee_arithmetic ieee_arithmetic module~krn_global_tools_m->ieee_arithmetic iso_c_binding iso_c_binding module~krn_global_tools_m->iso_c_binding iso_fortran_env iso_fortran_env module~krn_global_tools_m->iso_fortran_env module~krn_interface_m->module~krn_global_tools_m module~mkl_pardiso mkl_pardiso module~krn_interface_m->module~mkl_pardiso module~krn_simulation_m->module~krn_global_tools_m module~krn_simulation_m->module~lib_input_m fortran_yaml_c fortran_yaml_c module~krn_simulation_m->fortran_yaml_c module~lib_hdf_write_m lib_hdf_write_m module~krn_simulation_m->module~lib_hdf_write_m module~lib_ext_math_m->module~krn_global_tools_m module~lib_he_thermo_m->module~krn_global_tools_m module~lib_he_thermo_m->module~krn_simulation_m module~lib_he_thermo_m->module~lib_ext_math_m module~lib_he_thermo_m->ieee_arithmetic module~lib_input_m->module~krn_global_tools_m module~lib_input_m->fortran_yaml_c h5lt h5lt module~lib_input_m->h5lt hdf5 hdf5 module~lib_input_m->hdf5 module~lib_hdf_write_m->module~krn_global_tools_m module~lib_hdf_write_m->module~lib_input_m module~lib_hdf_write_m->h5lt module~lib_hdf_write_m->hdf5 module~lib_hdf_write_m->iso_c_binding h5ds h5ds module~lib_hdf_write_m->h5ds

Used by

  • module~~cmp_circulator_init_m~~UsedByGraph module~cmp_circulator_init_m cmp_circulator_init_m module~cmp_circulator_calc_m cmp_circulator_calc_m module~cmp_circulator_calc_m->module~cmp_circulator_init_m program~reims_p reims_p program~reims_p->module~cmp_circulator_calc_m

Derived Types

type, public, extends(brent_t) ::  circulator_dynamic_parameters_t

Components

Type Visibility Attributes Name Initial
real(kind=dp), public :: mdot
real(kind=dp), public :: VarIn
real(kind=dp), public :: area
real(kind=dp), public :: Pr
real(kind=dp), public :: Ur
real(kind=dp), public :: Zr

Type-Bound Procedures

procedure, public :: f => circulator_dynamic_parameters_f
procedure, public :: df => circulator_dynamic_parameters_df

type, public ::  FF_flux_port_pointer_CC_t

Components

Type Visibility Attributes Name Initial
type(FF_flux_port_t), public, pointer :: p

type, public ::  circulator_t

Components

Type Visibility Attributes Name Initial
character(len=:), public, allocatable :: SubType
type(FF_flux_port_pointer_CC_t), public :: br(2)
real(kind=dp), public :: MxInOut(Nb_VarC,Nb_VarC)
real(kind=dp), public :: MxOutIn(Nb_VarC,Nb_VarC)
real(kind=dp), public :: mdot0
real(kind=dp), public :: dp0
real(kind=dp), public :: a_pr(Nb_VarP)
real(kind=dp), public :: b_pr(Nb_VarP)
real(kind=dp), public :: a_cs(Nb_VarC)
real(kind=dp), public :: b_cs(Nb_VarC)
real(kind=dp), public :: out_DerFlxdBr_in(Nb_VarC,Nb_VarC)
real(kind=dp), public :: in_DerFlxdBr_out(Nb_VarC,Nb_VarC)
real(kind=dp), public :: out_DerVitdBr_in(Nb_VarC)
real(kind=dp), public :: in_DerVitdBr_out(Nb_VarC)
real(kind=dp), public :: wave_time

Minimum time for wave propagation
type(circulator_dynamic_parameters_t), public :: dynCC

Functions

public function circulator_dynamic_parameters_f(me, x)

Arguments

Type IntentOptional Attributes Name
class(circulator_dynamic_parameters_t), intent(in) :: me
real(kind=dp), intent(in) :: x

Return Value real(kind=dp)

public function circulator_dynamic_parameters_df(dynamic, x)

Arguments

Type IntentOptional Attributes Name
class(circulator_dynamic_parameters_t), intent(inout) :: dynamic
real(kind=dp), intent(inout) :: x

Return Value real(kind=dp)


Subroutines

public subroutine circulator_init_part1(me, krn, cfg)

Arguments

Type IntentOptional Attributes Name
type(circulator_t), intent(out) :: me
type(krn_t), intent(inout) :: krn
class(input_t), intent(in), pointer :: cfg

public subroutine circulator_init_part2(me, krn, cfg)

Arguments

Type IntentOptional Attributes Name
type(circulator_t), intent(inout) :: me
type(krn_t), intent(inout), target :: krn
class(input_t), intent(in), pointer :: cfg