ESMF_F90InterfaceMod Module

Interfaces

public interface ESMF_InterArrayCreate

• private recursive function ESMF_InterArrayCreateTrg(farray1D, farray2D, farray3D, farray1DI8, farray2DI8, farray3DI8, farray1DR8, farray2DR8, farray3DR8, rc) result(InterArrayCreateTrg)

  Arguments

  Type	Intent	Optional	Attributes		Name
  integer,	intent(in),	optional,	target	::	farray1D(:)
  integer,	intent(in),	optional,	target	::	farray2D(:,:)
  integer,	intent(in),	optional,	target	::	farray3D(:,:,:)
  integer(kind=ESMF_KIND_I8),	intent(in),	optional,	target	::	farray1DI8(:)
  integer(kind=ESMF_KIND_I8),	intent(in),	optional,	target	::	farray2DI8(:,:)
  integer(kind=ESMF_KIND_I8),	intent(in),	optional,	target	::	farray3DI8(:,:,:)
  real(kind=ESMF_KIND_R8),	intent(in),	optional,	target	::	farray1DR8(:)
  real(kind=ESMF_KIND_R8),	intent(in),	optional,	target	::	farray2DR8(:,:)
  real(kind=ESMF_KIND_R8),	intent(in),	optional,	target	::	farray3DR8(:,:,:)
  integer,	intent(out),	optional		::	rc

  Return Value type(ESMF_InterArray)

• private recursive function ESMF_InterArrayCreatePtr(farray1D, farray2D, farray3D, farray1DI8, farray2DI8, farray3DI8, farray1DR8, farray2DR8, farray3DR8, transferOwnership, rc) result(InterArrayCreatePtr)

  Arguments

  Type	Intent	Optional	Attributes		Name
  integer,		optional,	pointer	::	farray1D(:)
  integer,		optional,	pointer	::	farray2D(:,:)
  integer,		optional,	pointer	::	farray3D(:,:,:)
  integer(kind=ESMF_KIND_I8),		optional,	pointer	::	farray1DI8(:)
  integer(kind=ESMF_KIND_I8),		optional,	pointer	::	farray2DI8(:,:)
  integer(kind=ESMF_KIND_I8),		optional,	pointer	::	farray3DI8(:,:,:)
  real(kind=ESMF_KIND_R8),		optional,	pointer	::	farray1DR8(:)
  real(kind=ESMF_KIND_R8),		optional,	pointer	::	farray2DR8(:,:)
  real(kind=ESMF_KIND_R8),		optional,	pointer	::	farray3DR8(:,:,:)
  logical,	intent(in)			::	transferOwnership
  integer,	intent(out),	optional		::	rc

  Return Value type(ESMF_InterArray)

Derived Types

type, public, sequence  ::  ESMF_InterArray

Components

Type	Visibility	Attributes		Name		Initial
integer(kind=ESMF_KIND_I8),	private,	pointer	::	farray1DI8(:)
integer(kind=ESMF_KIND_I8),	private,	pointer	::	farray2DI8(:,:)
integer(kind=ESMF_KIND_I8),	private,	pointer	::	farray3DI8(:,:,:)
integer(kind=ESMF_KIND_I8),	private,	dimension(10)	::	shallowMemory	=	0
integer,	private,	pointer	::	farray1D(:)
integer,	private,	pointer	::	farray2D(:,:)
integer,	private,	pointer	::	farray3D(:,:,:)
logical,	private		::	owner
real(kind=ESMF_KIND_R8),	private,	pointer	::	farray1DR8(:)
real(kind=ESMF_KIND_R8),	private,	pointer	::	farray2DR8(:,:)
real(kind=ESMF_KIND_R8),	private,	pointer	::	farray3DR8(:,:,:)

Functions

private recursive function ESMF_InterArrayCreatePtr(farray1D, farray2D, farray3D, farray1DI8, farray2DI8, farray3DI8, farray1DR8, farray2DR8, farray3DR8, transferOwnership, rc) result(InterArrayCreatePtr)

Arguments

Type	Intent	Optional	Attributes		Name
integer,		optional,	pointer	::	farray1D(:)
integer,		optional,	pointer	::	farray2D(:,:)
integer,		optional,	pointer	::	farray3D(:,:,:)
integer(kind=ESMF_KIND_I8),		optional,	pointer	::	farray1DI8(:)
integer(kind=ESMF_KIND_I8),		optional,	pointer	::	farray2DI8(:,:)
integer(kind=ESMF_KIND_I8),		optional,	pointer	::	farray3DI8(:,:,:)
real(kind=ESMF_KIND_R8),		optional,	pointer	::	farray1DR8(:)
real(kind=ESMF_KIND_R8),		optional,	pointer	::	farray2DR8(:,:)
real(kind=ESMF_KIND_R8),		optional,	pointer	::	farray3DR8(:,:,:)
logical,	intent(in)			::	transferOwnership
integer,	intent(out),	optional		::	rc

Return Value type(ESMF_InterArray)

private recursive function ESMF_InterArrayCreateTrg(farray1D, farray2D, farray3D, farray1DI8, farray2DI8, farray3DI8, farray1DR8, farray2DR8, farray3DR8, rc) result(InterArrayCreateTrg)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in),	optional,	target	::	farray1D(:)
integer,	intent(in),	optional,	target	::	farray2D(:,:)
integer,	intent(in),	optional,	target	::	farray3D(:,:,:)
integer(kind=ESMF_KIND_I8),	intent(in),	optional,	target	::	farray1DI8(:)
integer(kind=ESMF_KIND_I8),	intent(in),	optional,	target	::	farray2DI8(:,:)
integer(kind=ESMF_KIND_I8),	intent(in),	optional,	target	::	farray3DI8(:,:,:)
real(kind=ESMF_KIND_R8),	intent(in),	optional,	target	::	farray1DR8(:)
real(kind=ESMF_KIND_R8),	intent(in),	optional,	target	::	farray2DR8(:,:)
real(kind=ESMF_KIND_R8),	intent(in),	optional,	target	::	farray3DR8(:,:,:)
integer,	intent(out),	optional		::	rc

Return Value type(ESMF_InterArray)

Subroutines

public recursive subroutine ESMF_InterArrayDestroy(array, rc)

Arguments

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

public recursive subroutine ESMF_InterArrayGet(array, farray1D, farray2D, farray3D, farray1DI8, farray2DI8, farray3DI8, farray1DR8, farray2DR8, farray3DR8, rc)

Arguments

Type	Intent	Optional	Attributes		Name
type(ESMF_InterArray),	intent(in)			::	array
integer,		optional,	pointer	::	farray1D(:)
integer,		optional,	pointer	::	farray2D(:,:)
integer,		optional,	pointer	::	farray3D(:,:,:)
integer(kind=ESMF_KIND_I8),		optional,	pointer	::	farray1DI8(:)
integer(kind=ESMF_KIND_I8),		optional,	pointer	::	farray2DI8(:,:)
integer(kind=ESMF_KIND_I8),		optional,	pointer	::	farray3DI8(:,:,:)
real(kind=ESMF_KIND_R8),		optional,	pointer	::	farray1DR8(:)
real(kind=ESMF_KIND_R8),		optional,	pointer	::	farray2DR8(:,:)
real(kind=ESMF_KIND_R8),		optional,	pointer	::	farray3DR8(:,:,:)
integer,	intent(out),	optional		::	rc