facade_params_m Module

Holds all parameters of BRAGINSKII model and neutral parameters This is a facade module to ease handling of parameters


Uses


Contents

Variables

Subroutines


Variables

Type Visibility Attributes Name Initial
integer, public, parameter :: tinfo_size = 37

Size of info-debug output (7 in timestep_braginskii + 4 in neutrals_module + 2*12 lorentzians for heat_flux_landau + 2 for zonal_neumann in timestep_braginskii)
character(len=PATHLEN_MAX), protected :: path_feature_selection = 'params_braginskii.in'

Relative path to parameterfile for feature_selection parameters
character(len=PATHLEN_MAX), protected :: path_tstep = 'params_braginskii.in'

Relative path to parameterfile for tstep parameters
character(len=PATHLEN_MAX), protected :: path_brag_model = 'params_braginskii.in'

Relative path to parameterfile for brag_model parameters
character(len=PATHLEN_MAX), protected :: path_brag_pardiss_model = 'params_braginskii.in'

Relative path to parameterfile for brag_pardiss_model parameters
character(len=PATHLEN_MAX), protected :: path_brag_numdiss = 'params_braginskii.in'

Relative path to parameterfile for brag_numdiss parameters
character(len=PATHLEN_MAX), protected :: path_brag_buffer = 'params_braginskii.in'

Relative path to parameterfile for brag_buffer parameters
character(len=PATHLEN_MAX), protected :: path_brag_floors = 'params_braginskii.in'

Relative path to parameterfile for brag_floors parameters
character(len=PATHLEN_MAX), protected :: path_brag_switches = 'params_braginskii.in'

Relative path to parameterfile for brag_switches parameters
character(len=PATHLEN_MAX), protected :: path_brag_sources_external_select = 'params_braginskii.in'

Relative path to parameterfile for brag_sources_external_select parameters
character(len=PATHLEN_MAX), protected :: path_brag_boundaries_perp = 'params_braginskii.in'

Relative path to parameterfile for brag_boundaries_perp parameters
character(len=PATHLEN_MAX), protected :: path_brag_boundaries_parpen = 'params_braginskii.in'

Relative path to parameterfile for brag_boundaries_parpen parameters
character(len=PATHLEN_MAX), protected :: path_brag_init_select = 'params_braginskii.in'

Relative path to parameterfile for brag_init_select
character(len=PATHLEN_MAX), protected :: path_brag_parsolver_te = 'params_braginskii.in'

Relative path to parameterfile for brag_parsolver_te parameters
character(len=PATHLEN_MAX), protected :: path_brag_parsolver_ti = 'params_braginskii.in'

Relative path to parameterfile for brag_parsolver_ti parameters
character(len=PATHLEN_MAX), protected :: path_brag_parsolver_upar = 'params_braginskii.in'

Relative path to parameterfile for brag_parsolver_upar parameters
character(len=PATHLEN_MAX), protected :: path_neut_model = 'params_neutrals.in'

Relative path to parameterfile for neut_model parameters
character(len=PATHLEN_MAX), protected :: path_neut_floors = 'params_neutrals.in'

Relative path to parameterfile for neut_floors parameters
character(len=PATHLEN_MAX), protected :: path_neut_switches = 'params_neutrals.in'

Relative path to parameterfile for neut_switches parameters

character(len=PATHLEN_MAX), protected :: path_neut_boundaries_perp = 'params_neutrals.in'

Relative path to parameterfile for neut_boundaries_perp parameters

character(len=PATHLEN_MAX), protected :: path_neut_boundaries_parpen = 'params_neutrals.in'

Relative path to parameterfile for neut_boundaries_parpen parameters

character(len=PATHLEN_MAX), protected :: path_neut_data_paths = 'params_neutrals.in'

Relative path to parameterfile for neut_data_paths parameters

character(len=PATHLEN_MAX), protected :: path_neut_init_select = 'params_neutrals.in'

Relative path to parameterfile for neut_init_select parameters

character(len=PATHLEN_MAX), protected :: path_neut_solver_dens = 'params_neutrals.in'

Relative path to parameterfile for neut_solver_dens parameters
character(len=PATHLEN_MAX), protected :: path_neut_solver_parmom = 'params_neutrals.in'

Relative path to parameterfile for neut_solver_parmom parameters

character(len=PATHLEN_MAX), protected :: path_impy_coronal = 'params_neutrals.in'

Relative path to parameterfile for impy_coronal parameters

character(len=PATHLEN_MAX), protected :: path_diag_lineout = 'params_braginskii.in'

Relative path to parameterfile for diag_lineout parameters
character(len=PATHLEN_MAX), protected :: path_evol_apar_shift = 'params_braginskii.in'

Relative path to parameterfile for apar_shift parameters

Subroutines

public subroutine read_paths(filename)

Reads paths to parameter files

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: filename

Filename, to read filepaths from

public subroutine write_paths(filename)

WWrites paths to parameter files

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in), optional :: filename

If present, filename where paths are written to, if not present, writes to screen

public subroutine read_all_params_braginskii()

Reads all parameters related with Braginskii model

Arguments

None

public subroutine read_all_params_neutrals()

Reads all parameters related with Neutrals model

Arguments

None

public subroutine write_all_params_braginskii(filename)

Writes all parameters related with Braginskii model

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in), optional :: filename

If present, filename where parameters are written to

public subroutine write_all_params_neutrals(filename)

Writes all parameters related with Neutrals model

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in), optional :: filename

If present, filename where parameters are written to) Reads all parameters related with Neutrals model