tools_input Module

Uses

- class_vector
- class_psblas
- json_module
Help
Graph Key

Nodes of different colours represent the following:

Solid arrows point from a submodule to the (sub)module which it is descended from. Dashed arrows point from a module or program unit to modules which it uses. Where possible, edges connecting nodes are given different colours to make them easier to distinguish in large graphs.

Used by

Help
Graph Key

Nodes of different colours represent the following:

Solid arrows point from a submodule to the (sub)module which it is descended from. Dashed arrows point from a module or program unit to modules which it uses. Where possible, edges connecting nodes are given different colours to make them easier to distinguish in large graphs.

Contents

Variables

mandatory_d_ mandatory_h_ mandatory_i_ mandatory_l_

Interfaces

find_section get_par open_file read_par

Variables

Type	Visibility	Attributes		Name		Initial
real(kind=psb_dpk_),	public,	parameter	::	mandatory_d_	=	-9999.d0
character(len=*),	public,	parameter	::	mandatory_h_	=	'mandatory'
integer,	public,	parameter	::	mandatory_i_	=	-999
logical,	public,	parameter	::	mandatory_l_	=	.false.

Interfaces

interface

public module subroutine find_section(sec, nemo_json)

Arguments

Type Intent Optional Attributes Name

character(len=*), intent(in) :: sec

type(json_file), intent(inout) :: nemo_json

public interface get_par

public function get_par_d(inp, sec, par, default)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	inp
character(len=*),	intent(in)			::	sec
character(len=*),	intent(in)			::	par
real(kind=psb_dpk_),	intent(in)			::	default

Return Value real(kind=psb_dpk_)

public function get_par_h(inp, sec, par, default)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	inp
character(len=*),	intent(in)			::	sec
character(len=*),	intent(in)			::	par
character(len=*),	intent(in)			::	default

Return Value character(len=:), allocatable

public function get_par_i(inp, sec, par, default)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	inp
character(len=*),	intent(in)			::	sec
character(len=*),	intent(in)			::	par
integer,	intent(in)			::	default

Return Value integer

public function get_par_l(inp, sec, par, default)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	inp
character(len=*),	intent(in)			::	sec
character(len=*),	intent(in)			::	par
logical,	intent(in)			::	default

Return Value logical

public function get_par_v(inp, sec, par, default)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	inp
character(len=*),	intent(in)			::	sec
character(len=*),	intent(in)			::	par
type(vector),	intent(in)			::	default

Return Value type(vector)

interface

public module subroutine open_file(input_file, nemo_json)

Arguments

Type Intent Optional Attributes Name

character(len=*), intent(in) :: input_file

type(json_file), intent(out) :: nemo_json

public interface read_par

public function read_par_d(input_file, sec, par, default)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	input_file
character(len=*),	intent(in)			::	sec
character(len=*),	intent(in)			::	par
real(kind=psb_dpk_),	intent(in)			::	default

Return Value real(kind=psb_dpk_)

public function read_par_h(input_file, sec, par, default)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	input_file
character(len=*),	intent(in)			::	sec
character(len=*),	intent(in)			::	par
character(len=*),	intent(in)			::	default

Return Value character(len=:), allocatable

public function read_par_i(input_file, sec, par, default)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	input_file
character(len=*),	intent(in)			::	sec
character(len=*),	intent(in)			::	par
integer,	intent(in)			::	default

Return Value integer

public function read_par_l(input_file, sec, par, default)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	input_file
character(len=*),	intent(in)			::	sec
character(len=*),	intent(in)			::	par
logical,	intent(in)			::	default

Return Value logical

public function read_par_v(input_file, sec, par, default)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	input_file
character(len=*),	intent(in)			::	sec
character(len=*),	intent(in)			::	par
type(vector),	intent(in)			::	default

Return Value type(vector)