MAPL_FieldPointerUtilities Module

Uses

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.

Interfaces

public interface FieldCOPY

private subroutine copy(x, y, rc)

Arguments

Type	Intent	Optional	Attributes		Name
type(ESMF_Field),	intent(inout)			::	x
type(ESMF_Field),	intent(inout)			::	y
integer,	intent(out),	optional		::	rc

public interface FieldClone

private subroutine clone(x, y, rc)

Arguments

Type	Intent	Optional	Attributes		Name
type(ESMF_Field),	intent(inout)			::	x
type(ESMF_Field),	intent(inout)			::	y
integer,	intent(out),	optional		::	rc

public interface FieldCopyBroadcast

private subroutine copy_broadcast(x, y, rc)

Arguments

Type	Intent	Optional	Attributes		Name
type(ESMF_Field),	intent(inout)			::	x
type(ESMF_Field),	intent(inout)			::	y
integer,	intent(out),	optional		::	rc

public interface FieldGetCptr

private subroutine get_cptr(x, cptr, rc)

Arguments

Type	Intent	Optional	Attributes		Name
type(ESMF_Field),	intent(inout)			::	x
type(c_ptr),	intent(out)			::	cptr
integer,	intent(out),	optional		::	rc

public interface FieldGetLocalElementCount

private function get_local_element_count(x, rc) result(element_count)

Arguments

Type	Intent	Optional	Attributes		Name
type(ESMF_Field),	intent(inout)			::	x
integer,	intent(out),	optional		::	rc

Return Value integer, allocatable, (:)

public interface FieldGetLocalSize

private function get_local_size(x, rc) result(sz)

Arguments

Type	Intent	Optional	Attributes		Name
type(ESMF_Field),	intent(inout)			::	x
integer,	intent(out),	optional		::	rc

Return Value integer(kind=ESMF_KIND_I8)

public interface FieldsAreBroadCastConformable

private function are_broadcast_conformable(x, y, rc) result(conformable)

Arguments

Type	Intent	Optional	Attributes		Name
type(ESMF_Field),	intent(inout)			::	x
type(ESMF_Field),	intent(inout)			::	y
integer,	intent(out),	optional		::	rc

Return Value logical

public interface FieldsAreConformable

private function are_conformable_scalar(x, y, rc) result(conformable)

Arguments

Type	Intent	Optional	Attributes		Name
type(ESMF_Field),	intent(inout)			::	x
type(ESMF_Field),	intent(inout)			::	y
integer,	intent(out),	optional		::	rc

Return Value logical

private function are_conformable_array(x, y, rc) result(conformable)

Arguments

Type	Intent	Optional	Attributes		Name
type(ESMF_Field),	intent(inout)			::	x
type(ESMF_Field),	intent(inout)			::	y(:)
integer,	intent(out),	optional		::	rc

Return Value logical

public interface FieldsAreSameTypeKind

private function are_same_type_kind(x, y, rc) result(same_tk)

Arguments

Type	Intent	Optional	Attributes		Name
type(ESMF_Field),	intent(inout)			::	x
type(ESMF_Field),	intent(inout)			::	y
integer,	intent(out),	optional		::	rc

Return Value logical

public interface GetFieldsUndef

private subroutine GetFieldsUndef_r4(fields, undef_values, rc)

Arguments

Type	Intent	Optional	Attributes		Name
type(ESMF_Field),	intent(inout)			::	fields(:)
real(kind=ESMF_KIND_R4),	intent(inout),		allocatable	::	undef_values(:)
integer,	intent(out),	optional		::	rc

private subroutine GetFieldsUndef_r8(fields, undef_values, rc)

Arguments

Type	Intent	Optional	Attributes		Name
type(ESMF_Field),	intent(inout)			::	fields(:)
real(kind=ESMF_KIND_R8),	intent(inout),		allocatable	::	undef_values(:)
integer,	intent(out),	optional		::	rc

public interface MAPL_FieldDestroy

private subroutine Destroy(Field, RC)

Arguments

Type	Intent	Optional	Attributes		Name
type(ESMF_Field),	intent(inout)			::	Field
integer,	intent(out),	optional		::	RC

public interface assign_fptr

private subroutine assign_fptr_r4_rank1(x, fptr, rc)

Arguments

Type	Intent	Optional	Attributes		Name
type(ESMF_Field),	intent(inout)			::	x
real(kind=ESMF_KIND_R4),	intent(out),		pointer	::	fptr(:)
integer,	intent(out),	optional		::	rc

private subroutine assign_fptr_r8_rank1(x, fptr, rc)

Arguments

Type	Intent	Optional	Attributes		Name
type(ESMF_Field),	intent(inout)			::	x
real(kind=ESMF_KIND_R8),	intent(out),		pointer	::	fptr(:)
integer,	intent(out),	optional		::	rc

private subroutine assign_fptr_r4_rank2(x, fp_shape, fptr, rc)

Arguments

Type	Intent	Optional	Attributes		Name
type(ESMF_Field),	intent(inout)			::	x
integer(kind=ESMF_KIND_I8),	intent(in)			::	fp_shape(:)
real(kind=ESMF_KIND_R4),	intent(out),		pointer	::	fptr(:,:)
integer,	intent(out),	optional		::	rc

private subroutine assign_fptr_r8_rank2(x, fp_shape, fptr, rc)

Arguments

Type	Intent	Optional	Attributes		Name
type(ESMF_Field),	intent(inout)			::	x
integer(kind=ESMF_KIND_I8),	intent(in)			::	fp_shape(:)
real(kind=ESMF_KIND_R8),	intent(out),		pointer	::	fptr(:,:)
integer,	intent(out),	optional		::	rc

Functions

public function FieldsHaveUndef(fields, rc) result(all_have_undef)

Arguments

Type	Intent	Optional	Attributes		Name
type(ESMF_Field),	intent(inout)			::	fields(:)
integer,	intent(out),	optional		::	rc

Return Value logical