text_output Module

Uses

- field_manager
- output_manager_core
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.

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.

Contents

Variables

separator extension

Abstract Interfaces

host_write_header host_write_data

Derived Types

type_single_text_file type_scalar type_single_text_file_with_scalars type_single_text_file_with_1d_variable type_text_file

Functions

get_free_unit

Subroutines

initialize save finalize single_text_file_with_scalars_write_header single_text_file_with_scalars_write_data single_text_file_with_1d_variable_write_header single_text_file_with_1d_variable_write_data

Variables

Type	Visibility	Attributes		Name		Initial
character,	private,	parameter	::	separator	=	char(9)
character(len=4),	private,	parameter	::	extension	=	'.txt'

Abstract Interfaces

abstract interface

private subroutine host_write_header(self)

Arguments

Type Intent Optional Attributes Name

class(type_single_text_file), intent(in) :: self

abstract interface

private subroutine host_write_data(self, timestr)

Arguments

Type	Intent	Optional	Attributes		Name
class(type_single_text_file),	intent(in)			::	self
character(len=*),	intent(in)			::	timestr

Derived Types

type, private, abstract :: type_single_text_file

Components

Type	Visibility	Attributes		Name		Initial
character(len=max_path),	public		::	path	=	''
character(len=max_path),	public		::	title	=	''
integer,	public		::	unit	=	-1
class(type_single_text_file),	public,	pointer	::	next	=>	null()

Type-Bound Procedures

procedure(host_write_header), public :: write_header
procedure(host_write_data), public :: write_data

type, private :: type_scalar

Components

Type	Visibility	Attributes		Name		Initial
class(type_base_output_field),	public,	pointer	::	field	=>	null()
real(kind=rk),	public,	pointer	::	value	=>	null()

type, private, extends(type_single_text_file) :: type_single_text_file_with_scalars

Components

Type	Visibility	Attributes		Name		Initial
character(len=max_path),	public		::	path	=	''
character(len=max_path),	public		::	title	=	''
integer,	public		::	unit	=	-1
class(type_single_text_file),	public,	pointer	::	next	=>	null()
type(type_scalar),	public,	allocatable	::	variables(:)
type(type_scalar),	public,	allocatable	::	constants(:)

Type-Bound Procedures

procedure, public :: write_header => single_text_file_with_scalars_write_header
procedure, public :: write_data => single_text_file_with_scalars_write_data

type, private, extends(type_single_text_file) :: type_single_text_file_with_1d_variable

Components

Type	Visibility	Attributes		Name		Initial
character(len=max_path),	public		::	path	=	''
character(len=max_path),	public		::	title	=	''
integer,	public		::	unit	=	-1
class(type_single_text_file),	public,	pointer	::	next	=>	null()
class(type_base_output_field),	public,	pointer	::	field	=>	null()
type(type_dimension),	public,	pointer	::	dimension	=>	null()
class(type_base_output_field),	public,	pointer	::	coordinate	=>	null()
real(kind=rk),	public,	pointer	::	values(:)	=>	null()

Type-Bound Procedures

procedure, public :: write_header => single_text_file_with_1d_variable_write_header
procedure, public :: write_data => single_text_file_with_1d_variable_write_data

type, public, extends(type_file) :: type_text_file

Components

Type	Visibility	Attributes		Name		Initial
type(type_field_manager),	public,	pointer	::	field_manager	=>	null()
character(len=max_path),	public		::	path	=	''
character(len=max_path),	public		::	postfix	=	''
character(len=string_length),	public		::	title	=	''
integer,	public		::	time_unit	=	time_unit_none
integer,	public		::	time_step	=	0
integer,	public		::	first_index	=	0
integer,	public		::	next_julian	=	-1
integer,	public		::	next_seconds	=	-1
integer,	public		::	first_julian	=	-1
integer,	public		::	first_seconds	=	-1
integer,	public		::	last_julian	=	huge(1)
integer,	public		::	last_seconds	=	0
type(type_output_item),	public,	pointer	::	first_item	=>	null()
class(type_base_output_field),	public,	pointer	::	first_field	=>	null()
class(type_file),	public,	pointer	::	next	=>	null()
class(type_single_text_file),	public,	pointer	::	first_file	=>	null()

Type-Bound Procedures

procedure, public :: configure
procedure, public :: create_settings
procedure, public :: is_dimension_used
procedure, public :: append_item
procedure, public :: initialize
procedure, public :: save
procedure, public :: finalize

Functions

private function get_free_unit(start, stop) result(unit)

Arguments

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

Return Value integer

Subroutines

private subroutine initialize(self)

Arguments

Type	Intent	Optional	Attributes		Name
class(type_text_file),	intent(inout)			::	self

private subroutine save(self, julianday, secondsofday, microseconds)

Arguments

Type	Intent	Optional	Attributes		Name
class(type_text_file),	intent(inout)			::	self
integer,	intent(in)			::	julianday
integer,	intent(in)			::	secondsofday
integer,	intent(in)			::	microseconds

private subroutine finalize(self)

Arguments

Type	Intent	Optional	Attributes		Name
class(type_text_file),	intent(inout)			::	self

private subroutine single_text_file_with_scalars_write_header(self)

Arguments

Type	Intent	Optional	Attributes		Name
class(type_single_text_file_with_scalars),	intent(in)			::	self

private subroutine single_text_file_with_scalars_write_data(self, timestr)

Arguments

Type	Intent	Optional	Attributes		Name
class(type_single_text_file_with_scalars),	intent(in)			::	self
character(len=*),	intent(in)			::	timestr

private subroutine single_text_file_with_1d_variable_write_header(self)

Arguments

Type	Intent	Optional	Attributes		Name
class(type_single_text_file_with_1d_variable),	intent(in)			::	self

private subroutine single_text_file_with_1d_variable_write_data(self, timestr)

Arguments

Type	Intent	Optional	Attributes		Name
class(type_single_text_file_with_1d_variable),	intent(in)			::	self
character(len=*),	intent(in)			::	timestr