file_utils Module

Variables

Type	Visibility	Attributes		Name		Initial
character(len=500),	public,	pointer	::	run_name
character(len=500),	private,	target	::	arun_name
character(len=500),	private,	target	::	job_name
character(len=500),	public		::	list_name
integer,	public,	parameter	::	stdout_unit	=	6
integer,	public		::	runtype_option_switch
integer,	public,	parameter	::	runtype_standalone	=	0
integer,	public,	parameter	::	runtype_list	=	1
integer,	public,	parameter	::	runtype_trinity	=	2
integer,	public,	parameter	::	runtype_multibox	=	3
integer,	private,	save	::	input_unit_no
integer,	private,	save	::	error_unit_no	=	stdout_unit
integer,	public,	save	::	num_input_lines

Functions

public function input_unit(nml)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	nml

Return Value integer

public function input_unit_exist(nml, exist)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	nml
logical,	intent(out)			::	exist

Return Value integer

public function error_unit()

Arguments

None

Return Value integer

Subroutines

public subroutine init_file_utils(list, input, error, trin_run, name, n_ensembles)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(out)			::	list
logical,	intent(in),	optional		::	input
logical,	intent(in),	optional		::	error
logical,	intent(in),	optional		::	trin_run
character(len=*),	intent(in),	optional		::	name
integer,	intent(in),	optional		::	n_ensembles

private subroutine run_type(list)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(out)			::	list

private subroutine init_run_name()

Arguments

None

public subroutine init_job_name(jobname)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=500),	intent(in)			::	jobname

public subroutine get_unused_unit(unit)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(out)			::	unit

public subroutine open_output_file(unit, ext, overwrite_in)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(out)			::	unit
character(len=*),	intent(in)			::	ext
logical,	intent(in),	optional		::	overwrite_in

public subroutine close_output_file(unit)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	unit

public subroutine flush_output_file(unit)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	unit

public subroutine init_error_unit(open_it)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(in)			::	open_it

private subroutine strip_comments(line)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(inout)			::	line

public subroutine init_input_unit(open_it)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(in)			::	open_it

public subroutine finish_file_utils()

Arguments

None

public subroutine get_input_unit(unit)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(out)			::	unit

public subroutine get_indexed_namelist_unit(unit, nml, index_in)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(out)			::	unit
character(len=*),	intent(in)			::	nml
integer,	intent(in)			::	index_in