type_field_manager – Fortran Program

type, public :: type_field_manager

Inherits

Inherited by

Variables

first_dimension prepend_dimensions append_dimensions field_table root nregistered

Components

Type	Visibility	Attributes		Name		Initial
type(type_dimension),	public,	pointer	::	first_dimension	=>	null()
type(type_dimension_pointer),	public,	allocatable	::	prepend_dimensions(:)
type(type_dimension_pointer),	public,	allocatable	::	append_dimensions(:)
type(type_dictionary_bin),	public		::	field_table(hash_table_size)
type(type_category_node),	public		::	root
integer,	public		::	nregistered	=	0

Type-Bound Procedures

procedure, public :: initialize

private subroutine initialize(self, prepend_by_default, append_by_default)

Arguments

Type	Intent	Optional		Name
class(type_field_manager),	intent(inout)		::	self
integer,	intent(in),	optional	::	prepend_by_default(:)
integer,	intent(in),	optional	::	append_by_default(:)

procedure, public :: finalize

private subroutine finalize(self)

Arguments

Type Intent Optional Attributes Name

class(type_field_manager), intent(inout) :: self

procedure, public :: register

private subroutine register(self, name, units, long_name, standard_name, fill_value, minimum, maximum, dimensions, data0d, data1d, data2d, data3d, no_default_dimensions, category, output_level, coordinate_dimension, part_of_state, used, used_now, field)

Arguments

Type	Intent	Optional	Attributes		Name
class(type_field_manager),	intent(inout)			::	self
character(len=*),	intent(in)			::	name
character(len=*),	intent(in)			::	units
character(len=*),	intent(in)			::	long_name
character(len=*),	intent(in),	optional		::	standard_name
real(kind=rk),	intent(in),	optional		::	fill_value
real(kind=rk),	intent(in),	optional		::	minimum
real(kind=rk),	intent(in),	optional		::	maximum
integer,	intent(in),	optional		::	dimensions(:)
real(kind=rk),		optional	target	::	data0d
real(kind=rk),		optional	target	::	data1d(:)
real(kind=rk),		optional	target	::	data2d(:,:)
real(kind=rk),		optional	target	::	data3d(:,:,:)
logical,	intent(in),	optional		::	no_default_dimensions
character(len=*),	intent(in),	optional		::	category
integer,	intent(in),	optional		::	output_level
integer,	intent(in),	optional		::	coordinate_dimension
logical,	intent(in),	optional		::	part_of_state
logical,	intent(out),	optional		::	used
logical,		optional	target	::	used_now
type(type_field),		optional	pointer	::	field

procedure, public :: find

private function find(self, name, create) result(field)

Arguments

Type	Intent	Optional		Name
class(type_field_manager),	intent(inout)		::	self
character(len=*),	intent(in)		::	name
logical,	intent(in),	optional	::	create

Return Value type(type_field), pointer

procedure, public :: list

private subroutine list(self)

Arguments

Type Intent Optional Attributes Name

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

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

procedure, public :: send_data_0d

private subroutine send_data_0d(self, field, data)

Arguments

Type	Intent	Attributes		Name
class(type_field_manager),	intent(inout)		::	self
type(type_field),	intent(inout)		::	field
real(kind=rk),		target	::	data

procedure, public :: send_data_1d

private subroutine send_data_1d(self, field, data)

Arguments

Type	Intent	Attributes		Name
class(type_field_manager),	intent(inout)		::	self
type(type_field),	intent(inout)		::	field
real(kind=rk),		target	::	data(:)

procedure, public :: send_data_2d

private subroutine send_data_2d(self, field, data)

Arguments

Type	Intent	Attributes		Name
class(type_field_manager),	intent(inout)		::	self
type(type_field),	intent(inout)		::	field
real(kind=rk),		target	::	data(:,:)

procedure, public :: send_data_3d

private subroutine send_data_3d(self, field, data)

Arguments

Type	Intent	Attributes		Name
class(type_field_manager),	intent(inout)		::	self
type(type_field),	intent(inout)		::	field
real(kind=rk),		target	::	data(:,:,:)

procedure, public :: send_data_by_name_0d

private subroutine send_data_by_name_0d(self, name, data)

Arguments

Type	Intent	Attributes		Name
class(type_field_manager),	intent(inout)		::	self
character(len=*),	intent(in)		::	name
real(kind=rk),		target	::	data

procedure, public :: send_data_by_name_1d

private subroutine send_data_by_name_1d(self, name, data)

Arguments

Type	Intent	Attributes		Name
class(type_field_manager),	intent(inout)		::	self
character(len=*),	intent(in)		::	name
real(kind=rk),		target	::	data(:)

procedure, public :: send_data_by_name_2d

private subroutine send_data_by_name_2d(self, name, data)

Arguments

Type	Intent	Attributes		Name
class(type_field_manager),	intent(inout)		::	self
character(len=*),	intent(in)		::	name
real(kind=rk),		target	::	data(:,:)

procedure, public :: send_data_by_name_3d

private subroutine send_data_by_name_3d(self, name, data)

Arguments

Type	Intent	Attributes		Name
class(type_field_manager),	intent(inout)		::	self
character(len=*),	intent(in)		::	name
real(kind=rk),		target	::	data(:,:,:)

procedure, public :: select_for_output

private function select_for_output(self, name) result(field)

Arguments

Type Intent Optional Attributes Name

class(type_field_manager), intent(inout) :: self

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

Return Value type(type_field), pointer

procedure, public :: select_category_for_output

private function select_category_for_output(self, name, output_level) result(category)

Arguments

Type	Intent		Name
class(type_field_manager),	intent(inout)	::	self
character(len=*),	intent(in)	::	name
integer,	intent(in)	::	output_level

Return Value class(type_category_node), pointer

procedure, public :: register_dimension

private subroutine register_dimension(self, name, length, global_length, offset, id, newid)

Arguments

Type	Intent	Optional		Name
class(type_field_manager),	intent(inout)		::	self
character(len=*),	intent(in)		::	name
integer,	intent(in),	optional	::	length
integer,	intent(in),	optional	::	global_length
integer,	intent(in),	optional	::	offset
integer,	intent(in),	optional	::	id
integer,	intent(out),	optional	::	newid

procedure, public :: find_dimension

private function find_dimension(self, dimid) result(dim)

Arguments

Type Intent Optional Attributes Name

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

integer, intent(in) :: dimid

Return Value type(type_dimension), pointer

Type	Intent	Optional	Attributes		Name
class(type_field_manager),	intent(in)			::	self
integer,	intent(in)			::	dimid

procedure, public :: find_category

private function find_category(self, name, create) result(category)

Arguments

Type	Intent	Optional	Attributes		Name
class(type_field_manager),	intent(inout),		target	::	self
character(len=*),	intent(in)			::	name
logical,	intent(in),	optional		::	create

Return Value class(type_category_node), pointer

procedure, public :: get_state

private function get_state(self) result(field_set)

Arguments

Type Intent Optional Attributes Name

class(type_field_manager), intent(inout) :: self

Return Value type(type_field_set)

procedure, public :: reset_used

private subroutine reset_used(self)

Arguments

Type Intent Optional Attributes Name

class(type_field_manager), intent(inout) :: self

generic, public :: send_data => send_data_0d, send_data_1d, send_data_2d, send_data_3d, send_data_by_name_0d, send_data_by_name_1d, send_data_by_name_2d, send_data_by_name_3d

private subroutine send_data_0d(self, field, data)

Arguments

Type	Intent	Attributes		Name
class(type_field_manager),	intent(inout)		::	self
type(type_field),	intent(inout)		::	field
real(kind=rk),		target	::	data

private subroutine send_data_1d(self, field, data)

Arguments

Type	Intent	Attributes		Name
class(type_field_manager),	intent(inout)		::	self
type(type_field),	intent(inout)		::	field
real(kind=rk),		target	::	data(:)

private subroutine send_data_2d(self, field, data)

Arguments

Type	Intent	Attributes		Name
class(type_field_manager),	intent(inout)		::	self
type(type_field),	intent(inout)		::	field
real(kind=rk),		target	::	data(:,:)

private subroutine send_data_3d(self, field, data)

Arguments

Type	Intent	Attributes		Name
class(type_field_manager),	intent(inout)		::	self
type(type_field),	intent(inout)		::	field
real(kind=rk),		target	::	data(:,:,:)

private subroutine send_data_by_name_0d(self, name, data)

Arguments

Type	Intent	Attributes		Name
class(type_field_manager),	intent(inout)		::	self
character(len=*),	intent(in)		::	name
real(kind=rk),		target	::	data

private subroutine send_data_by_name_1d(self, name, data)

Arguments

Type	Intent	Attributes		Name
class(type_field_manager),	intent(inout)		::	self
character(len=*),	intent(in)		::	name
real(kind=rk),		target	::	data(:)

private subroutine send_data_by_name_2d(self, name, data)

Arguments

Type	Intent	Attributes		Name
class(type_field_manager),	intent(inout)		::	self
character(len=*),	intent(in)		::	name
real(kind=rk),		target	::	data(:,:)

private subroutine send_data_by_name_3d(self, name, data)

Arguments

Type	Intent	Attributes		Name
class(type_field_manager),	intent(inout)		::	self
character(len=*),	intent(in)		::	name
real(kind=rk),		target	::	data(:,:,:)

type_field_manager Derived Type

Contents

Variables

Type-Bound Procedures

type, public :: type_field_manager

Inherits

Inherited by

Contents

Variables

Type-Bound Procedures

Components

Type-Bound Procedures

procedure, public :: initialize

private subroutine initialize(self, prepend_by_default, append_by_default)

Arguments

procedure, public :: finalize

private subroutine finalize(self)

Arguments

procedure, public :: register

private subroutine register(self, name, units, long_name, standard_name, fill_value, minimum, maximum, dimensions, data0d, data1d, data2d, data3d, no_default_dimensions, category, output_level, coordinate_dimension, part_of_state, used, used_now, field)

Arguments

procedure, public :: find

private function find(self, name, create) result(field)

Arguments

Return Value type(type_field), pointer

procedure, public :: list

private subroutine list(self)

Arguments

procedure, public :: send_data_0d

private subroutine send_data_0d(self, field, data)

Arguments

procedure, public :: send_data_1d

private subroutine send_data_1d(self, field, data)

Arguments

procedure, public :: send_data_2d

private subroutine send_data_2d(self, field, data)

Arguments

procedure, public :: send_data_3d

private subroutine send_data_3d(self, field, data)

Arguments

procedure, public :: send_data_by_name_0d

private subroutine send_data_by_name_0d(self, name, data)

Arguments

procedure, public :: send_data_by_name_1d

private subroutine send_data_by_name_1d(self, name, data)

Arguments

procedure, public :: send_data_by_name_2d

private subroutine send_data_by_name_2d(self, name, data)

Arguments

procedure, public :: send_data_by_name_3d

private subroutine send_data_by_name_3d(self, name, data)

Arguments

procedure, public :: select_for_output

private function select_for_output(self, name) result(field)

Arguments

Return Value type(type_field), pointer

procedure, public :: select_category_for_output

private function select_category_for_output(self, name, output_level) result(category)

Arguments

Return Value class(type_category_node), pointer

procedure, public :: register_dimension

private subroutine register_dimension(self, name, length, global_length, offset, id, newid)

Arguments

procedure, public :: find_dimension

private function find_dimension(self, dimid) result(dim)

Arguments

Return Value type(type_dimension), pointer

procedure, public :: find_category

private function find_category(self, name, create) result(category)

Arguments

Return Value class(type_category_node), pointer

procedure, public :: get_state

private function get_state(self) result(field_set)

Arguments

Return Value type(type_field_set)

procedure, public :: reset_used

private subroutine reset_used(self)

Arguments

generic, public :: send_data => send_data_0d, send_data_1d, send_data_2d, send_data_3d, send_data_by_name_0d, send_data_by_name_1d, send_data_by_name_2d, send_data_by_name_3d

private subroutine send_data_0d(self, field, data)