MAPL_CommsMod

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

MAPL_CommsMod		w	BinIOMod
		w
		w	BundleTestSupport
		w
		w	ESMFL_MOD
		w
		w	FileIOSharedMod
		w
		w	HistoryTrajectory_implement
		w
		w	MAPL_CapGridCompMod
		w
		w	MAPL_CFIOMod
		w
		w	MAPL_CubedSphereGridFactoryMod
		w
		w	MAPL_EpochSwathMod
		w
		w	MAPL_ExtDataBracket
		w
		w	MAPL_ExtdataClimFileHandler
		w
		w	MAPL_ExtDataGridComp2G
		w
		w	MAPL_ExtDataGridCompMod
		w
		w	MAPL_ExtDataPointerUpdate
		w
		w	MAPL_ExternalGridFactoryMod
		w
		w	MAPL_GenericCplCompMod
		w
		w	MAPL_GenericMod
		w
		w	MAPL_GetLatLonCoordMod
		w
		w	MAPL_HistoryGridCompMod
		w
		w	MAPL_LatLonGridFactoryMod
		w
		w	MAPL_LocStreamMod
		w
		w	MAPL_MaxMinMod
		w
		w	MAPL_MemUtilsMod
		w
		w	MAPL_NewArthParserMod
		w
		w	MAPL_ObsUtilMod
		w
		w	MAPL_OrbGridCompMod
		w
		w	MAPL_ResourceMod
		w
		w	MAPL_SimpleBundleMod
		w
		w	MAPL_SunMod
		w
		w	MAPL_SwathGridFactoryMod
		w
		w	MAPL_TileIOMod
		w
		w	MAPL_XYGridFactoryMod
		w
	w	MAPLBase_Mod
	w
	w	MaskSamplerGeosatMod
	w
	w	NCIOMod
	w
	w	Regrid_Util
	w
	w	StationSamplerMod
	w
	w	utCFIO
	w
	w	utCFIO
	w

Help

Variables

Type	Visibility	Attributes		Name		Initial
integer,	public,	parameter	::	MAPL_root	=	0

Interfaces

public interface ArrayGather

private subroutine ArrayGather_I4_1(local_array, global_array, grid, mask, depe, hw, rc)

Arguments

Type	Intent	Optional		Name
integer(kind=ESMF_KIND_I4),	intent(in)		::	local_array(:)
integer(kind=ESMF_KIND_I4),	intent(out)		::	global_array(:)
type(ESMF_Grid)			::	grid
integer,	intent(in),	optional	::	mask(:)
integer,	intent(in),	optional	::	depe
integer,	intent(in),	optional	::	hw
integer,	intent(out),	optional	::	rc

private subroutine ArrayGather_R4_1(local_array, global_array, grid, mask, depe, hw, rc)

Arguments

Type	Intent	Optional		Name
real(kind=ESMF_KIND_R4),	intent(in)		::	local_array(:)
real(kind=ESMF_KIND_R4),	intent(out)		::	global_array(:)
type(ESMF_Grid)			::	grid
integer,	intent(in),	optional	::	mask(:)
integer,	intent(in),	optional	::	depe
integer,	intent(in),	optional	::	hw
integer,	intent(out),	optional	::	rc

private subroutine ArrayGather_R8_1(local_array, global_array, grid, mask, depe, hw, rc)

Arguments

Type	Intent	Optional		Name
real(kind=ESMF_KIND_R8),	intent(in)		::	local_array(:)
real(kind=ESMF_KIND_R8),	intent(out)		::	global_array(:)
type(ESMF_Grid)			::	grid
integer,	intent(in),	optional	::	mask(:)
integer,	intent(in),	optional	::	depe
integer,	intent(in),	optional	::	hw
integer,	intent(out),	optional	::	rc

private subroutine ArrayGather_R4_2(local_array, global_array, grid, mask, depe, hw, rc)

Arguments

Type	Intent	Optional		Name
real(kind=ESMF_KIND_R4),	intent(in)		::	local_array(:,:)
real(kind=ESMF_KIND_R4),	intent(out)		::	global_array(:,:)
type(ESMF_Grid)			::	grid
integer,	intent(in),	optional	::	mask(:)
integer,	intent(in),	optional	::	depe
integer,	intent(in),	optional	::	hw
integer,	intent(out),	optional	::	rc

private subroutine ArrayGather_R8_2(local_array, global_array, grid, mask, depe, hw, rc)

Arguments

Type	Intent	Optional		Name
real(kind=ESMF_KIND_R8),	intent(in)		::	local_array(:,:)
real(kind=ESMF_KIND_R8),	intent(out)		::	global_array(:,:)
type(ESMF_Grid)			::	grid
integer,	intent(in),	optional	::	mask(:)
integer,	intent(in),	optional	::	depe
integer,	intent(in),	optional	::	hw
integer,	intent(out),	optional	::	rc

private subroutine ArrayGatherRcvCnt_I4_1(local_array, global_array, recvcounts, vm, dstPe, rc)

Arguments

Type	Intent	Optional		Name
integer(kind=ESMF_KIND_I4),	intent(in)		::	local_array(:)
integer(kind=ESMF_KIND_I4),	intent(out)		::	global_array(:)
integer			::	recvcounts(:)
type(ESMF_VM)			::	vm
integer,	intent(in),	optional	::	dstPe
integer,	intent(out),	optional	::	rc

private subroutine ArrayGatherRcvCnt_R4_1(local_array, global_array, recvcounts, vm, dstPe, rc)

Arguments

Type	Intent	Optional		Name
real(kind=ESMF_KIND_R4),	intent(in)		::	local_array(:)
real(kind=ESMF_KIND_R4),	intent(out)		::	global_array(:)
integer			::	recvcounts(:)
type(ESMF_VM)			::	vm
integer,	intent(in),	optional	::	dstPe
integer,	intent(out),	optional	::	rc

public interface ArrayScatter

private subroutine ArrayScatter_R4_1(local_array, global_array, grid, mask, depe, hw, rc)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=ESMF_KIND_R4),	intent(out)			::	local_array(:)
real(kind=ESMF_KIND_R4),	intent(in),		target	::	global_array(:)
type(ESMF_Grid)				::	grid
integer,	intent(in),	optional		::	mask(:)
integer,	intent(in),	optional		::	depe
integer,	intent(in),	optional		::	hw
integer,	intent(out),	optional		::	rc

private subroutine ArrayScatter_R8_1(local_array, global_array, grid, mask, depe, hw, rc)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=ESMF_KIND_R8),	intent(out)			::	local_array(:)
real(kind=ESMF_KIND_R8),	intent(in),		target	::	global_array(:)
type(ESMF_Grid)				::	grid
integer,	intent(in),	optional		::	mask(:)
integer,	intent(in),	optional		::	depe
integer,	intent(in),	optional		::	hw
integer,	intent(out),	optional		::	rc

private subroutine ArrayScatter_R4_2(local_array, global_array, grid, mask, depe, hw, rc)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=ESMF_KIND_R4),	intent(out)			::	local_array(:,:)
real(kind=ESMF_KIND_R4),	intent(in),		target	::	global_array(:,:)
type(ESMF_Grid)				::	grid
integer,	intent(in),	optional		::	mask(:)
integer,	intent(in),	optional		::	depe
integer,	intent(in),	optional		::	hw
integer,	intent(out),	optional		::	rc

private subroutine ArrayScatter_R8_2(local_array, global_array, grid, mask, depe, hw, rc)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=ESMF_KIND_R8),	intent(out)			::	local_array(:,:)
real(kind=ESMF_KIND_R8),	intent(in),		target	::	global_array(:,:)
type(ESMF_Grid)				::	grid
integer,	intent(in),	optional		::	mask(:)
integer,	intent(in),	optional		::	depe
integer,	intent(in),	optional		::	hw
integer,	intent(out),	optional		::	rc

private subroutine ArrayScatterRcvCnt_I4_1(local_array, global_array, sendcounts, vm, srcPe, rc)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=ESMF_KIND_I4),	intent(out)			::	local_array(:)
integer(kind=ESMF_KIND_I4),	intent(in),		target	::	global_array(:)
integer				::	sendcounts(:)
type(ESMF_VM)				::	vm
integer,	intent(in),	optional		::	srcPe
integer,	intent(out),	optional		::	rc

private subroutine ArrayScatterRcvCnt_R4_1(local_array, global_array, sendcounts, vm, srcPe, rc)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=ESMF_KIND_R4),	intent(out)			::	local_array(:)
real(kind=ESMF_KIND_R4),	intent(in),		target	::	global_array(:)
integer				::	sendcounts(:)
type(ESMF_VM)				::	vm
integer,	intent(in),	optional		::	srcPe
integer,	intent(out),	optional		::	rc

public interface MAPL_Am_I_Rank

private function MAPL_Am_I_Rank_Only(rank) result(R)

Arguments

Type	Intent	Optional	Attributes		Name
integer,		optional		::	rank

Return Value logical

private function MAPL_Am_I_Rank_Layout(layout, rank) result(R)

Arguments

Type	Intent	Optional	Attributes		Name
type(ESMF_DELayout)				::	layout
integer,		optional		::	rank

Return Value logical

private function MAPL_Am_I_Rank_Vm(VM, rank) result(R)

Arguments

Type	Intent	Optional	Attributes		Name
type(ESMF_VM)				::	VM
integer,		optional		::	rank

Return Value logical

public interface MAPL_Am_I_Root

private function MAPL_Am_I_Root_Layout(layout) result(R)

Arguments

Type	Intent	Optional	Attributes		Name
type(ESMF_DELayout)				::	layout

Return Value logical

private function MAPL_Am_I_Root_Vm(VM) result(R)

Arguments

Type	Intent	Optional	Attributes		Name
type(ESMF_VM),		optional		::	VM

Return Value logical

public interface MAPL_ArrayIGather

private subroutine MAPL_ArrayIGather_R4_2(local_array, request, rc)

Arguments

Type	Intent	Optional		Name
real,	intent(in)		::	local_array(:,:)
type(MAPL_CommRequest),	intent(inout)		::	request
integer,	intent(out),	optional	::	rc

public interface MAPL_ArrayIScatter

private subroutine MAPL_ArrayIScatter_R4_2(global_array, request, hw, rc)

Arguments

Type	Intent	Optional		Name
real,	intent(in)		::	global_array(:,:)
type(MAPL_CommRequest),	intent(inout)		::	request
integer,	intent(in),	optional	::	hw
integer,	intent(out),	optional	::	rc

public interface MAPL_BcastShared

private subroutine MAPL_BcastShared_1DR4(VM, Data, N, Root, RootOnly, rc)

Arguments

Type	Intent	Optional	Attributes		Name
type(ESMF_VM)				::	VM
real,	intent(inout),		pointer	::	Data(:)
integer,	intent(in)			::	N
integer,	intent(in),	optional		::	Root
logical,	intent(in)			::	RootOnly
integer,	intent(out),	optional		::	rc

private subroutine MAPL_BcastShared_1DR8(VM, Data, N, Root, RootOnly, rc)

Arguments

Type	Intent	Optional	Attributes		Name
type(ESMF_VM)				::	VM
real(kind=REAL64),	intent(inout),		pointer	::	Data(:)
integer,	intent(in)			::	N
integer,	intent(in),	optional		::	Root
logical,	intent(in)			::	RootOnly
integer,	intent(out),	optional		::	rc

private subroutine MAPL_BcastShared_2DI4(VM, Data, N, Root, RootOnly, rc)

Arguments

Type	Intent	Optional	Attributes		Name
type(ESMF_VM)				::	VM
integer,	intent(inout),		pointer	::	Data(:,:)
integer,	intent(in)			::	N
integer,	intent(in),	optional		::	Root
logical,	intent(in)			::	RootOnly
integer,	intent(out),	optional		::	rc

private subroutine MAPL_BcastShared_2DR4(VM, Data, N, Root, RootOnly, rc)

Arguments

Type	Intent	Optional	Attributes		Name
type(ESMF_VM)				::	VM
real,	intent(inout),		pointer	::	Data(:,:)
integer,	intent(in)			::	N
integer,	intent(in),	optional		::	Root
logical,	intent(in)			::	RootOnly
integer,	intent(out),	optional		::	rc

private subroutine MAPL_BcastShared_2DR8(VM, Data, N, Root, RootOnly, rc)

Arguments

Type	Intent	Optional	Attributes		Name
type(ESMF_VM)				::	VM
real(kind=REAL64),	intent(inout),		pointer	::	Data(:,:)
integer,	intent(in)			::	N
integer,	intent(in),	optional		::	Root
logical,	intent(in)			::	RootOnly
integer,	intent(out),	optional		::	rc

public interface MAPL_CommsAllGather

private subroutine MAPL_CommsAllGather_I4_1(vm, sendbuf, sendcnt, recvbuf, recvcnt, RC)

Arguments

Type	Intent	Optional		Name
type(ESMF_VM),	intent(in)		::	vm
integer,	intent(in)		::	sendbuf(:)
integer,	intent(in)		::	sendcnt
integer,	intent(inout)		::	recvbuf(:)
integer,	intent(in)		::	recvcnt
integer,	intent(out),	optional	::	RC

private subroutine MAPL_CommsAllGather_L4_1(vm, sendbuf, sendcnt, recvbuf, recvcnt, RC)

Arguments

Type	Intent	Optional		Name
type(ESMF_VM),	intent(in)		::	vm
logical,	intent(in)		::	sendbuf(:)
integer,	intent(in)		::	sendcnt
logical,	intent(inout)		::	recvbuf(:)
integer,	intent(in)		::	recvcnt
integer,	intent(out),	optional	::	RC

public interface MAPL_CommsAllGatherV

private subroutine MAPL_CommsAllGatherV_I4_1(layout, sendbuf, sendcnt, recvbuf, recvcnts, displs, RC)

Arguments

Type	Intent	Optional		Name
type(ESMF_DELayout)			::	layout
integer(kind=ESMF_KIND_I4),	intent(in)		::	sendbuf(:)
integer,	intent(in)		::	sendcnt
integer(kind=ESMF_KIND_I4),	intent(inout)		::	recvbuf(:)
integer,	intent(in)		::	recvcnts(:)
integer,	intent(in)		::	displs(:)
integer,	intent(out),	optional	::	RC

private subroutine MAPL_CommsAllGatherV_R4_1(layout, sendbuf, sendcnt, recvbuf, recvcnts, displs, RC)

Arguments

Type	Intent	Optional		Name
type(ESMF_DELayout)			::	layout
real(kind=ESMF_KIND_R4),	intent(in)		::	sendbuf(:)
integer,	intent(in)		::	sendcnt
real(kind=ESMF_KIND_R4),	intent(inout)		::	recvbuf(:)
integer,	intent(in)		::	recvcnts(:)
integer,	intent(in)		::	displs(:)
integer,	intent(out),	optional	::	RC

private subroutine MAPL_CommsAllGatherV_R8_1(layout, sendbuf, sendcnt, recvbuf, recvcnts, displs, RC)

Arguments

Type	Intent	Optional		Name
type(ESMF_DELayout)			::	layout
real(kind=ESMF_KIND_R8),	intent(in)		::	sendbuf(:)
integer,	intent(in)		::	sendcnt
real(kind=ESMF_KIND_R8),	intent(inout)		::	recvbuf(:)
integer,	intent(in)		::	recvcnts(:)
integer,	intent(in)		::	displs(:)
integer,	intent(out),	optional	::	RC

public interface MAPL_CommsAllReduceMax

private subroutine MAPL_CommsAllReduceMax_I4_0(vm, sendbuf, recvbuf, cnt, RC)

Arguments

Type	Intent	Optional		Name
type(ESMF_VM),	intent(in)		::	vm
integer(kind=ESMF_KIND_I4),	intent(in)		::	sendbuf
integer(kind=ESMF_KIND_I4),	intent(inout)		::	recvbuf
integer,	intent(in)		::	cnt
integer,	intent(out),	optional	::	RC

private subroutine MAPL_CommsAllReduceMax_R4_0(vm, sendbuf, recvbuf, cnt, RC)

Arguments

Type	Intent	Optional		Name
type(ESMF_VM),	intent(in)		::	vm
real(kind=ESMF_KIND_R4),	intent(in)		::	sendbuf
real(kind=ESMF_KIND_R4),	intent(inout)		::	recvbuf
integer,	intent(in)		::	cnt
integer,	intent(out),	optional	::	RC

private subroutine MAPL_CommsAllReduceMax_R8_0(vm, sendbuf, recvbuf, cnt, RC)

Arguments

Type	Intent	Optional		Name
type(ESMF_VM),	intent(in)		::	vm
real(kind=ESMF_KIND_R8),	intent(in)		::	sendbuf
real(kind=ESMF_KIND_R8),	intent(inout)		::	recvbuf
integer,	intent(in)		::	cnt
integer,	intent(out),	optional	::	RC

private subroutine MAPL_CommsAllReduceMax_I4_1(vm, sendbuf, recvbuf, cnt, RC)

Arguments

Type	Intent	Optional		Name
type(ESMF_VM),	intent(in)		::	vm
integer(kind=ESMF_KIND_I4),	intent(in)		::	sendbuf(:)
integer(kind=ESMF_KIND_I4),	intent(inout)		::	recvbuf(:)
integer,	intent(in)		::	cnt
integer,	intent(out),	optional	::	RC

private subroutine MAPL_CommsAllReduceMax_R4_1(vm, sendbuf, recvbuf, cnt, RC)

Arguments

Type	Intent	Optional		Name
type(ESMF_VM),	intent(in)		::	vm
real(kind=ESMF_KIND_R4),	intent(in)		::	sendbuf(:)
real(kind=ESMF_KIND_R4),	intent(inout)		::	recvbuf(:)
integer,	intent(in)		::	cnt
integer,	intent(out),	optional	::	RC

private subroutine MAPL_CommsAllReduceMax_R8_1(vm, sendbuf, recvbuf, cnt, RC)

Arguments

Type	Intent	Optional		Name
type(ESMF_VM),	intent(in)		::	vm
real(kind=ESMF_KIND_R8),	intent(in)		::	sendbuf(:)
real(kind=ESMF_KIND_R8),	intent(inout)		::	recvbuf(:)
integer,	intent(in)		::	cnt
integer,	intent(out),	optional	::	RC

private subroutine MAPL_CommsAllReduceMax_I4_2(vm, sendbuf, recvbuf, cnt, RC)

Arguments

Type	Intent	Optional		Name
type(ESMF_VM),	intent(in)		::	vm
integer(kind=ESMF_KIND_I4),	intent(in)		::	sendbuf(:,:)
integer(kind=ESMF_KIND_I4),	intent(inout)		::	recvbuf(:,:)
integer,	intent(in)		::	cnt
integer,	intent(out),	optional	::	RC

private subroutine MAPL_CommsAllReduceMax_R4_2(vm, sendbuf, recvbuf, cnt, RC)

Arguments

Type	Intent	Optional		Name
type(ESMF_VM),	intent(in)		::	vm
real(kind=ESMF_KIND_R4),	intent(in)		::	sendbuf(:,:)
real(kind=ESMF_KIND_R4),	intent(inout)		::	recvbuf(:,:)
integer,	intent(in)		::	cnt
integer,	intent(out),	optional	::	RC

private subroutine MAPL_CommsAllReduceMax_R8_2(vm, sendbuf, recvbuf, cnt, RC)

Arguments

Type	Intent	Optional		Name
type(ESMF_VM),	intent(in)		::	vm
real(kind=ESMF_KIND_R8),	intent(in)		::	sendbuf(:,:)
real(kind=ESMF_KIND_R8),	intent(inout)		::	recvbuf(:,:)
integer,	intent(in)		::	cnt
integer,	intent(out),	optional	::	RC

public interface MAPL_CommsAllReduceMin

private subroutine MAPL_CommsAllReduceMin_I4_0(vm, sendbuf, recvbuf, cnt, RC)

Arguments

Type	Intent	Optional		Name
type(ESMF_VM),	intent(in)		::	vm
integer(kind=ESMF_KIND_I4),	intent(in)		::	sendbuf
integer(kind=ESMF_KIND_I4),	intent(inout)		::	recvbuf
integer,	intent(in)		::	cnt
integer,	intent(out),	optional	::	RC

private subroutine MAPL_CommsAllReduceMin_R4_0(vm, sendbuf, recvbuf, cnt, RC)

Arguments

Type	Intent	Optional		Name
type(ESMF_VM),	intent(in)		::	vm
real(kind=ESMF_KIND_R4),	intent(in)		::	sendbuf
real(kind=ESMF_KIND_R4),	intent(inout)		::	recvbuf
integer,	intent(in)		::	cnt
integer,	intent(out),	optional	::	RC

private subroutine MAPL_CommsAllReduceMin_R8_0(vm, sendbuf, recvbuf, cnt, RC)

Arguments

Type	Intent	Optional		Name
type(ESMF_VM),	intent(in)		::	vm
real(kind=ESMF_KIND_R8),	intent(in)		::	sendbuf
real(kind=ESMF_KIND_R8),	intent(inout)		::	recvbuf
integer,	intent(in)		::	cnt
integer,	intent(out),	optional	::	RC

private subroutine MAPL_CommsAllReduceMin_I4_1(vm, sendbuf, recvbuf, cnt, RC)

Arguments

Type	Intent	Optional		Name
type(ESMF_VM),	intent(in)		::	vm
integer(kind=ESMF_KIND_I4),	intent(in)		::	sendbuf(:)
integer(kind=ESMF_KIND_I4),	intent(inout)		::	recvbuf(:)
integer,	intent(in)		::	cnt
integer,	intent(out),	optional	::	RC

private subroutine MAPL_CommsAllReduceMin_R4_1(vm, sendbuf, recvbuf, cnt, RC)

Arguments

Type	Intent	Optional		Name
type(ESMF_VM),	intent(in)		::	vm
real(kind=ESMF_KIND_R4),	intent(in)		::	sendbuf(:)
real(kind=ESMF_KIND_R4),	intent(inout)		::	recvbuf(:)
integer,	intent(in)		::	cnt
integer,	intent(out),	optional	::	RC

private subroutine MAPL_CommsAllReduceMin_R8_1(vm, sendbuf, recvbuf, cnt, RC)

Arguments

Type	Intent	Optional		Name
type(ESMF_VM),	intent(in)		::	vm
real(kind=ESMF_KIND_R8),	intent(in)		::	sendbuf(:)
real(kind=ESMF_KIND_R8),	intent(inout)		::	recvbuf(:)
integer,	intent(in)		::	cnt
integer,	intent(out),	optional	::	RC

private subroutine MAPL_CommsAllReduceMin_I4_2(vm, sendbuf, recvbuf, cnt, RC)

Arguments

Type	Intent	Optional		Name
type(ESMF_VM),	intent(in)		::	vm
integer(kind=ESMF_KIND_I4),	intent(in)		::	sendbuf(:,:)
integer(kind=ESMF_KIND_I4),	intent(inout)		::	recvbuf(:,:)
integer,	intent(in)		::	cnt
integer,	intent(out),	optional	::	RC

private subroutine MAPL_CommsAllReduceMin_R4_2(vm, sendbuf, recvbuf, cnt, RC)

Arguments

Type	Intent	Optional		Name
type(ESMF_VM),	intent(in)		::	vm
real(kind=ESMF_KIND_R4),	intent(in)		::	sendbuf(:,:)
real(kind=ESMF_KIND_R4),	intent(inout)		::	recvbuf(:,:)
integer,	intent(in)		::	cnt
integer,	intent(out),	optional	::	RC

private subroutine MAPL_CommsAllReduceMin_R8_2(vm, sendbuf, recvbuf, cnt, RC)

Arguments

Type	Intent	Optional		Name
type(ESMF_VM),	intent(in)		::	vm
real(kind=ESMF_KIND_R8),	intent(in)		::	sendbuf(:,:)
real(kind=ESMF_KIND_R8),	intent(inout)		::	recvbuf(:,:)
integer,	intent(in)		::	cnt
integer,	intent(out),	optional	::	RC

public interface MAPL_CommsAllReduceSum

private subroutine MAPL_CommsAllReduceSum_I4_0(vm, sendbuf, recvbuf, cnt, RC)

Arguments

Type	Intent	Optional		Name
type(ESMF_VM),	intent(in)		::	vm
integer(kind=ESMF_KIND_I4),	intent(in)		::	sendbuf
integer(kind=ESMF_KIND_I4),	intent(inout)		::	recvbuf
integer,	intent(in)		::	cnt
integer,	intent(out),	optional	::	RC

private subroutine MAPL_CommsAllReduceSum_R4_0(vm, sendbuf, recvbuf, cnt, RC)

Arguments

Type	Intent	Optional		Name
type(ESMF_VM),	intent(in)		::	vm
real(kind=ESMF_KIND_R4),	intent(in)		::	sendbuf
real(kind=ESMF_KIND_R4),	intent(inout)		::	recvbuf
integer,	intent(in)		::	cnt
integer,	intent(out),	optional	::	RC

private subroutine MAPL_CommsAllReduceSum_R8_0(vm, sendbuf, recvbuf, cnt, RC)

Arguments

Type	Intent	Optional		Name
type(ESMF_VM),	intent(in)		::	vm
real(kind=ESMF_KIND_R8),	intent(in)		::	sendbuf
real(kind=ESMF_KIND_R8),	intent(inout)		::	recvbuf
integer,	intent(in)		::	cnt
integer,	intent(out),	optional	::	RC

private subroutine MAPL_CommsAllReduceSum_I4_1(vm, sendbuf, recvbuf, cnt, RC)

Arguments

Type	Intent	Optional		Name
type(ESMF_VM),	intent(in)		::	vm
integer(kind=ESMF_KIND_I4),	intent(in)		::	sendbuf(:)
integer(kind=ESMF_KIND_I4),	intent(inout)		::	recvbuf(:)
integer,	intent(in)		::	cnt
integer,	intent(out),	optional	::	RC

private subroutine MAPL_CommsAllReduceSum_R4_1(vm, sendbuf, recvbuf, cnt, RC)

Arguments

Type	Intent	Optional		Name
type(ESMF_VM),	intent(in)		::	vm
real(kind=ESMF_KIND_R4),	intent(in)		::	sendbuf(:)
real(kind=ESMF_KIND_R4),	intent(inout)		::	recvbuf(:)
integer,	intent(in)		::	cnt
integer,	intent(out),	optional	::	RC

private subroutine MAPL_CommsAllReduceSum_R8_1(vm, sendbuf, recvbuf, cnt, RC)

Arguments

Type	Intent	Optional		Name
type(ESMF_VM),	intent(in)		::	vm
real(kind=ESMF_KIND_R8),	intent(in)		::	sendbuf(:)
real(kind=ESMF_KIND_R8),	intent(inout)		::	recvbuf(:)
integer,	intent(in)		::	cnt
integer,	intent(out),	optional	::	RC

private subroutine MAPL_CommsAllReduceSum_I4_2(vm, sendbuf, recvbuf, cnt, RC)

Arguments

Type	Intent	Optional		Name
type(ESMF_VM),	intent(in)		::	vm
integer(kind=ESMF_KIND_I4),	intent(in)		::	sendbuf(:,:)
integer(kind=ESMF_KIND_I4),	intent(inout)		::	recvbuf(:,:)
integer,	intent(in)		::	cnt
integer,	intent(out),	optional	::	RC

private subroutine MAPL_CommsAllReduceSum_R4_2(vm, sendbuf, recvbuf, cnt, RC)

Arguments

Type	Intent	Optional		Name
type(ESMF_VM),	intent(in)		::	vm
real(kind=ESMF_KIND_R4),	intent(in)		::	sendbuf(:,:)
real(kind=ESMF_KIND_R4),	intent(inout)		::	recvbuf(:,:)
integer,	intent(in)		::	cnt
integer,	intent(out),	optional	::	RC

private subroutine MAPL_CommsAllReduceSum_R8_2(vm, sendbuf, recvbuf, cnt, RC)

Arguments

Type	Intent	Optional		Name
type(ESMF_VM),	intent(in)		::	vm
real(kind=ESMF_KIND_R8),	intent(in)		::	sendbuf(:,:)
real(kind=ESMF_KIND_R8),	intent(inout)		::	recvbuf(:,:)
integer,	intent(in)		::	cnt
integer,	intent(out),	optional	::	RC

public interface MAPL_CommsBcast

private subroutine MAPL_CommsBcast_STRING_0(layout, data, N, ROOT, RC)

Arguments

Type	Intent	Optional		Name
type(ESMF_DELayout)			::	layout
character(len=*),	intent(inout)		::	data
integer,	intent(in)		::	N
integer,	intent(in)		::	ROOT
integer,	intent(out),	optional	::	RC

private subroutine MAPL_CommsBcast_L4_0(layout, data, N, ROOT, RC)

Arguments

Type	Intent	Optional		Name
type(ESMF_DELayout)			::	layout
logical,	intent(inout)		::	data
integer,	intent(in)		::	N
integer,	intent(in)		::	ROOT
integer,	intent(out),	optional	::	RC

private subroutine MAPL_CommsBcast_I4_0(layout, data, N, ROOT, RC)

Arguments

Type	Intent	Optional		Name
type(ESMF_DELayout)			::	layout
integer(kind=ESMF_KIND_I4),	intent(inout)		::	data
integer,	intent(in)		::	N
integer,	intent(in)		::	ROOT
integer,	intent(out),	optional	::	RC

private subroutine MAPL_CommsBcast_R4_0(layout, data, N, ROOT, RC)

Arguments

Type	Intent	Optional		Name
type(ESMF_DELayout)			::	layout
real(kind=ESMF_KIND_R4),	intent(inout)		::	data
integer,	intent(in)		::	N
integer,	intent(in)		::	ROOT
integer,	intent(out),	optional	::	RC

private subroutine MAPL_CommsBcast_R8_0(layout, data, N, ROOT, RC)

Arguments

Type	Intent	Optional		Name
type(ESMF_DELayout)			::	layout
real(kind=ESMF_KIND_R8),	intent(inout)		::	data
integer,	intent(in)		::	N
integer,	intent(in)		::	ROOT
integer,	intent(out),	optional	::	RC

private subroutine MAPL_CommsBcast_I4_1(layout, data, N, ROOT, RC)

Arguments

Type	Intent	Optional		Name
type(ESMF_DELayout)			::	layout
integer(kind=ESMF_KIND_I4),	intent(inout)		::	data(:)
integer,	intent(in)		::	N
integer,	intent(in)		::	ROOT
integer,	intent(out),	optional	::	RC

private subroutine MAPL_CommsBcast_R4_1(layout, data, N, ROOT, RC)

Arguments

Type	Intent	Optional		Name
type(ESMF_DELayout)			::	layout
real(kind=ESMF_KIND_R4),	intent(inout)		::	data(:)
integer,	intent(in)		::	N
integer,	intent(in)		::	ROOT
integer,	intent(out),	optional	::	RC

private subroutine MAPL_CommsBcast_R8_1(layout, data, N, ROOT, RC)

Arguments

Type	Intent	Optional		Name
type(ESMF_DELayout)			::	layout
real(kind=ESMF_KIND_R8),	intent(inout)		::	data(:)
integer,	intent(in)		::	N
integer,	intent(in)		::	ROOT
integer,	intent(out),	optional	::	RC

private subroutine MAPL_CommsBcast_I4_2(layout, data, N, ROOT, RC)

Arguments

Type	Intent	Optional		Name
type(ESMF_DELayout)			::	layout
integer(kind=ESMF_KIND_I4),	intent(inout)		::	data(:,:)
integer,	intent(in)		::	N
integer,	intent(in)		::	ROOT
integer,	intent(out),	optional	::	RC

private subroutine MAPL_CommsBcast_R4_2(layout, data, N, ROOT, RC)

Arguments

Type	Intent	Optional		Name
type(ESMF_DELayout)			::	layout
real(kind=ESMF_KIND_R4),	intent(inout)		::	data(:,:)
integer,	intent(in)		::	N
integer,	intent(in)		::	ROOT
integer,	intent(out),	optional	::	RC

private subroutine MAPL_CommsBcast_R8_2(layout, data, N, ROOT, RC)

Arguments

Type	Intent	Optional		Name
type(ESMF_DELayout)			::	layout
real(kind=ESMF_KIND_R8),	intent(inout)		::	data(:,:)
integer,	intent(in)		::	N
integer,	intent(in)		::	ROOT
integer,	intent(out),	optional	::	RC

private subroutine MAPL_CommsBcastVM_STRING_0(vm, data, N, ROOT, RC)

Arguments

Type	Intent	Optional		Name
type(ESMF_VM)			::	vm
character(len=*),	intent(inout)		::	data
integer,	intent(in)		::	N
integer,	intent(in)		::	ROOT
integer,	intent(out),	optional	::	RC

private subroutine MAPL_CommsBcastVm_L4_0(vm, data, N, ROOT, RC)

Arguments

Type	Intent	Optional		Name
type(ESMF_VM)			::	vm
logical,	intent(inout)		::	data
integer,	intent(in)		::	N
integer,	intent(in)		::	ROOT
integer,	intent(out),	optional	::	RC

private subroutine MAPL_CommsBcastVm_I4_0(vm, data, N, ROOT, RC)

Arguments

Type	Intent	Optional		Name
type(ESMF_VM)			::	vm
integer(kind=ESMF_KIND_I4),	intent(inout)		::	data
integer,	intent(in)		::	N
integer,	intent(in)		::	ROOT
integer,	intent(out),	optional	::	RC

private subroutine MAPL_CommsBcastVm_R4_0(vm, data, N, ROOT, RC)

Arguments

Type	Intent	Optional		Name
type(ESMF_VM)			::	vm
real(kind=ESMF_KIND_R4),	intent(inout)		::	data
integer,	intent(in)		::	N
integer,	intent(in)		::	ROOT
integer,	intent(out),	optional	::	RC

private subroutine MAPL_CommsBcastVm_R8_0(vm, data, N, ROOT, RC)

Arguments

Type	Intent	Optional		Name
type(ESMF_VM)			::	vm
real(kind=ESMF_KIND_R8),	intent(inout)		::	data
integer,	intent(in)		::	N
integer,	intent(in)		::	ROOT
integer,	intent(out),	optional	::	RC

private subroutine MAPL_CommsBcastVm_I4_1(vm, data, N, ROOT, RC)

Arguments

Type	Intent	Optional		Name
type(ESMF_VM)			::	vm
integer(kind=ESMF_KIND_I4),	intent(inout)		::	data(:)
integer,	intent(in)		::	N
integer,	intent(in)		::	ROOT
integer,	intent(out),	optional	::	RC

private subroutine MAPL_CommsBcastVm_R4_1(vm, data, N, ROOT, RC)

Arguments

Type	Intent	Optional		Name
type(ESMF_VM)			::	vm
real(kind=ESMF_KIND_R4),	intent(inout)		::	data(:)
integer,	intent(in)		::	N
integer,	intent(in)		::	ROOT
integer,	intent(out),	optional	::	RC

private subroutine MAPL_CommsBcastVm_R8_1(vm, data, N, ROOT, RC)

Arguments

Type	Intent	Optional		Name
type(ESMF_VM)			::	vm
real(kind=ESMF_KIND_R8),	intent(inout)		::	data(:)
integer,	intent(in)		::	N
integer,	intent(in)		::	ROOT
integer,	intent(out),	optional	::	RC

private subroutine MAPL_CommsBcastVm_I4_2(vm, data, N, ROOT, RC)

Arguments

Type	Intent	Optional		Name
type(ESMF_VM)			::	vm
integer(kind=ESMF_KIND_I4),	intent(inout)		::	data(:,:)
integer,	intent(in)		::	N
integer,	intent(in)		::	ROOT
integer,	intent(out),	optional	::	RC

private subroutine MAPL_CommsBcastVm_R4_2(vm, data, N, ROOT, RC)

Arguments

Type	Intent	Optional		Name
type(ESMF_VM)			::	vm
real(kind=ESMF_KIND_R4),	intent(inout)		::	data(:,:)
integer,	intent(in)		::	N
integer,	intent(in)		::	ROOT
integer,	intent(out),	optional	::	RC

private subroutine MAPL_CommsBcastVm_R8_2(vm, data, N, ROOT, RC)

Arguments

Type	Intent	Optional		Name
type(ESMF_VM)			::	vm
real(kind=ESMF_KIND_R8),	intent(inout)		::	data(:,:)
integer,	intent(in)		::	N
integer,	intent(in)		::	ROOT
integer,	intent(out),	optional	::	RC

public interface MAPL_CommsGatherV

private subroutine MAPL_CommsGatherV_I4_1(layout, sendbuf, sendcnt, recvbuf, recvcnts, displs, root, RC)

Arguments

Type	Intent	Optional		Name
type(ESMF_DELayout)			::	layout
integer(kind=ESMF_KIND_I4),	intent(in)		::	sendbuf(:)
integer,	intent(in)		::	sendcnt
integer(kind=ESMF_KIND_I4),	intent(out)		::	recvbuf(:)
integer,	intent(in)		::	recvcnts(:)
integer,	intent(in)		::	displs(:)
integer,	intent(in)		::	root
integer,	intent(out),	optional	::	RC

private subroutine MAPL_CommsGatherV_R4_1(layout, sendbuf, sendcnt, recvbuf, recvcnts, displs, root, RC)

Arguments

Type	Intent	Optional		Name
type(ESMF_DELayout)			::	layout
real(kind=ESMF_KIND_R4),	intent(in)		::	sendbuf(:)
integer,	intent(in)		::	sendcnt
real(kind=ESMF_KIND_R4),	intent(out)		::	recvbuf(:)
integer,	intent(in)		::	recvcnts(:)
integer,	intent(in)		::	displs(:)
integer,	intent(in)		::	root
integer,	intent(out),	optional	::	RC

private subroutine MAPL_CommsGatherV_R4_2(layout, sendbuf, sendcnt, recvbuf, recvcnts, displs, root, RC)

Arguments

Type	Intent	Optional		Name
type(ESMF_DELayout)			::	layout
real(kind=ESMF_KIND_R4),	intent(in)		::	sendbuf(:,:)
integer,	intent(in)		::	sendcnt
real(kind=ESMF_KIND_R4),	intent(out)		::	recvbuf(:)
integer,	intent(in)		::	recvcnts(:)
integer,	intent(in)		::	displs(:)
integer,	intent(in)		::	root
integer,	intent(out),	optional	::	RC

private subroutine MAPL_CommsGatherV_R8_1(layout, sendbuf, sendcnt, recvbuf, recvcnts, displs, root, RC)

Arguments

Type	Intent	Optional		Name
type(ESMF_DELayout)			::	layout
real(kind=ESMF_KIND_R8),	intent(in)		::	sendbuf(:)
integer,	intent(in)		::	sendcnt
real(kind=ESMF_KIND_R8),	intent(out)		::	recvbuf(:)
integer,	intent(in)		::	recvcnts(:)
integer,	intent(in)		::	displs(:)
integer,	intent(in)		::	root
integer,	intent(out),	optional	::	RC

private subroutine MAPL_CommsGatherV_R8_2(layout, sendbuf, sendcnt, recvbuf, recvcnts, displs, root, RC)

Arguments

Type	Intent	Optional		Name
type(ESMF_DELayout)			::	layout
real(kind=ESMF_KIND_R8),	intent(in)		::	sendbuf(:,:)
integer,	intent(in)		::	sendcnt
real(kind=ESMF_KIND_R8),	intent(out)		::	recvbuf(:)
integer,	intent(in)		::	recvcnts(:)
integer,	intent(in)		::	displs(:)
integer,	intent(in)		::	root
integer,	intent(out),	optional	::	RC

public interface MAPL_CommsRecv

private subroutine MAPL_CommsRecv_I4_0(layout, data, COUNT, SOURCE, RC)

Arguments

Type	Intent	Optional		Name
type(ESMF_DELayout)			::	layout
integer(kind=ESMF_KIND_I4),	intent(inout)		::	data
integer,	intent(in)		::	COUNT
integer,	intent(in)		::	SOURCE
integer,	intent(out),	optional	::	RC

private subroutine MAPL_CommsRecv_I4_1(layout, data, COUNT, SOURCE, RC)

Arguments

Type	Intent	Optional		Name
type(ESMF_DELayout)			::	layout
integer(kind=ESMF_KIND_I4),	intent(inout)		::	data(:)
integer,	intent(in)		::	COUNT
integer,	intent(in)		::	SOURCE
integer,	intent(out),	optional	::	RC

private subroutine MAPL_CommsRecv_R4_1(layout, data, COUNT, SOURCE, RC)

Arguments

Type	Intent	Optional		Name
type(ESMF_DELayout)			::	layout
real(kind=ESMF_KIND_R4),	intent(inout)		::	data(:)
integer,	intent(in)		::	COUNT
integer,	intent(in)		::	SOURCE
integer,	intent(out),	optional	::	RC

private subroutine MAPL_CommsRecv_R4_2(layout, data, COUNT, SOURCE, RC)

Arguments

Type	Intent	Optional		Name
type(ESMF_DELayout)			::	layout
real(kind=ESMF_KIND_R4),	intent(inout)		::	data(:,:)
integer,	intent(in)		::	COUNT
integer,	intent(in)		::	SOURCE
integer,	intent(out),	optional	::	RC

private subroutine MAPL_CommsRecv_R8_1(layout, data, COUNT, SOURCE, RC)

Arguments

Type	Intent	Optional		Name
type(ESMF_DELayout)			::	layout
real(kind=ESMF_KIND_R8),	intent(inout)		::	data(:)
integer,	intent(in)		::	COUNT
integer,	intent(in)		::	SOURCE
integer,	intent(out),	optional	::	RC

private subroutine MAPL_CommsRecv_R8_2(layout, data, COUNT, SOURCE, RC)

Arguments

Type	Intent	Optional		Name
type(ESMF_DELayout)			::	layout
real(kind=ESMF_KIND_R8),	intent(inout)		::	data(:,:)
integer,	intent(in)		::	COUNT
integer,	intent(in)		::	SOURCE
integer,	intent(out),	optional	::	RC

public interface MAPL_CommsScatterV

private subroutine MAPL_CommsScatterV_I4_1(layout, sendbuf, sendcnts, displs, recvbuf, recvcnt, root, RC)

Arguments

Type	Intent	Optional		Name
type(ESMF_DELayout)			::	layout
integer(kind=ESMF_KIND_I4),	intent(in)		::	sendbuf(:)
integer,	intent(in)		::	sendcnts(:)
integer,	intent(in)		::	displs(:)
integer(kind=ESMF_KIND_I4),	intent(out)		::	recvbuf(:)
integer,	intent(in)		::	recvcnt
integer,	intent(in)		::	root
integer,	intent(out),	optional	::	RC

private subroutine MAPL_CommsScatterV_R4_1(layout, sendbuf, sendcnts, displs, recvbuf, recvcnt, root, RC)

Arguments

Type	Intent	Optional		Name
type(ESMF_DELayout)			::	layout
real(kind=ESMF_KIND_R4),	intent(in)		::	sendbuf(:)
integer,	intent(in)		::	sendcnts(:)
integer,	intent(in)		::	displs(:)
real(kind=ESMF_KIND_R4),	intent(out)		::	recvbuf(:)
integer,	intent(in)		::	recvcnt
integer,	intent(in)		::	root
integer,	intent(out),	optional	::	RC

private subroutine MAPL_CommsScatterV_R4_2(layout, sendbuf, sendcnts, displs, recvbuf, recvcnt, root, RC)

Arguments

Type	Intent	Optional		Name
type(ESMF_DELayout)			::	layout
real(kind=ESMF_KIND_R4),	intent(in)		::	sendbuf(:)
integer,	intent(in)		::	sendcnts(:)
integer,	intent(in)		::	displs(:)
real(kind=ESMF_KIND_R4),	intent(out)		::	recvbuf(:,:)
integer,	intent(in)		::	recvcnt
integer,	intent(in)		::	root
integer,	intent(out),	optional	::	RC

private subroutine MAPL_CommsScatterV_R8_1(layout, sendbuf, sendcnts, displs, recvbuf, recvcnt, root, RC)

Arguments

Type	Intent	Optional		Name
type(ESMF_DELayout)			::	layout
real(kind=ESMF_KIND_R8),	intent(in)		::	sendbuf(:)
integer,	intent(in)		::	sendcnts(:)
integer,	intent(in)		::	displs(:)
real(kind=ESMF_KIND_R8),	intent(out)		::	recvbuf(:)
integer,	intent(in)		::	recvcnt
integer,	intent(in)		::	root
integer,	intent(out),	optional	::	RC

private subroutine MAPL_CommsScatterV_R8_2(layout, sendbuf, sendcnts, displs, recvbuf, recvcnt, root, RC)

Arguments

Type	Intent	Optional		Name
type(ESMF_DELayout)			::	layout
real(kind=ESMF_KIND_R8),	intent(in)		::	sendbuf(:)
integer,	intent(in)		::	sendcnts(:)
integer,	intent(in)		::	displs(:)
real(kind=ESMF_KIND_R8),	intent(out)		::	recvbuf(:,:)
integer,	intent(in)		::	recvcnt
integer,	intent(in)		::	root
integer,	intent(out),	optional	::	RC

public interface MAPL_CommsSend

private subroutine MAPL_CommsSend_I4_0(layout, data, COUNT, DEST, RC)

Arguments

Type	Intent	Optional		Name
type(ESMF_DELayout)			::	layout
integer(kind=ESMF_KIND_I4),	intent(inout)		::	data
integer,	intent(in)		::	COUNT
integer,	intent(in)		::	DEST
integer,	intent(out),	optional	::	RC

private subroutine MAPL_CommsSend_I4_1(layout, data, COUNT, DEST, RC)

Arguments

Type	Intent	Optional		Name
type(ESMF_DELayout)			::	layout
integer(kind=ESMF_KIND_I4),	intent(inout)		::	data(:)
integer,	intent(in)		::	COUNT
integer,	intent(in)		::	DEST
integer,	intent(out),	optional	::	RC

private subroutine MAPL_CommsSend_R4_1(layout, data, COUNT, DEST, RC)

Arguments

Type	Intent	Optional		Name
type(ESMF_DELayout)			::	layout
real(kind=ESMF_KIND_R4),	intent(inout)		::	data(:)
integer,	intent(in)		::	COUNT
integer,	intent(in)		::	DEST
integer,	intent(out),	optional	::	RC

private subroutine MAPL_CommsSend_R4_2(layout, data, COUNT, DEST, RC)

Arguments

Type	Intent	Optional		Name
type(ESMF_DELayout)			::	layout
real(kind=ESMF_KIND_R4),	intent(inout)		::	data(:,:)
integer,	intent(in)		::	COUNT
integer,	intent(in)		::	DEST
integer,	intent(out),	optional	::	RC

private subroutine MAPL_CommsSend_R8_1(layout, data, COUNT, DEST, RC)

Arguments

Type	Intent	Optional		Name
type(ESMF_DELayout)			::	layout
real(kind=ESMF_KIND_R8),	intent(inout)		::	data(:)
integer,	intent(in)		::	COUNT
integer,	intent(in)		::	DEST
integer,	intent(out),	optional	::	RC

private subroutine MAPL_CommsSend_R8_2(layout, data, COUNT, DEST, RC)

Arguments

Type	Intent	Optional		Name
type(ESMF_DELayout)			::	layout
real(kind=ESMF_KIND_R8),	intent(inout)		::	data(:,:)
integer,	intent(in)		::	COUNT
integer,	intent(in)		::	DEST
integer,	intent(out),	optional	::	RC

public interface MAPL_CommsSendRecv

private subroutine MAPL_CommsSendRecv_I4_0(layout, sendbuf, sendcount, DEST, recvbuf, recvcount, SOURCE, RC)

Arguments

Type	Intent	Optional		Name
type(ESMF_DELayout)			::	layout
integer(kind=ESMF_KIND_I4),	intent(inout)		::	sendbuf
integer,	intent(in)		::	sendcount
integer,	intent(in)		::	DEST
integer(kind=ESMF_KIND_I4),	intent(inout)		::	recvbuf
integer,	intent(in)		::	recvcount
integer,	intent(in)		::	SOURCE
integer,	intent(out),	optional	::	RC

private subroutine MAPL_CommsSendRecv_R4_0(layout, sendbuf, sendcount, DEST, recvbuf, recvcount, SOURCE, RC)

Arguments

Type	Intent	Optional		Name
type(ESMF_DELayout)			::	layout
real(kind=ESMF_KIND_R4),	intent(inout)		::	sendbuf
integer,	intent(in)		::	sendcount
integer,	intent(in)		::	DEST
real(kind=ESMF_KIND_R4),	intent(inout)		::	recvbuf
integer,	intent(in)		::	recvcount
integer,	intent(in)		::	SOURCE
integer,	intent(out),	optional	::	RC

private subroutine MAPL_CommsSendRecv_R4_1(layout, sendbuf, sendcount, DEST, recvbuf, recvcount, SOURCE, RC)

Arguments

Type	Intent	Optional		Name
type(ESMF_DELayout)			::	layout
real(kind=ESMF_KIND_R4),	intent(inout)		::	sendbuf(:)
integer,	intent(in)		::	sendcount
integer,	intent(in)		::	DEST
real(kind=ESMF_KIND_R4),	intent(inout)		::	recvbuf(:)
integer,	intent(in)		::	recvcount
integer,	intent(in)		::	SOURCE
integer,	intent(out),	optional	::	RC

private subroutine MAPL_CommsSendRecv_R4_2(layout, sendbuf, sendcount, DEST, recvbuf, recvcount, SOURCE, RC)

Arguments

Type	Intent	Optional		Name
type(ESMF_DELayout)			::	layout
real(kind=ESMF_KIND_R4),	intent(inout)		::	sendbuf(:,:)
integer,	intent(in)		::	sendcount
integer,	intent(in)		::	DEST
real(kind=ESMF_KIND_R4),	intent(inout)		::	recvbuf(:,:)
integer,	intent(in)		::	recvcount
integer,	intent(in)		::	SOURCE
integer,	intent(out),	optional	::	RC

private subroutine MAPL_CommsSendRecv_R8_1(layout, sendbuf, sendcount, DEST, recvbuf, recvcount, SOURCE, RC)

Arguments

Type	Intent	Optional		Name
type(ESMF_DELayout)			::	layout
real(kind=ESMF_KIND_R8),	intent(inout)		::	sendbuf(:)
integer,	intent(in)		::	sendcount
integer,	intent(in)		::	DEST
real(kind=ESMF_KIND_R8),	intent(inout)		::	recvbuf(:)
integer,	intent(in)		::	recvcount
integer,	intent(in)		::	SOURCE
integer,	intent(out),	optional	::	RC

private subroutine MAPL_CommsSendRecv_R8_2(layout, sendbuf, sendcount, DEST, recvbuf, recvcount, SOURCE, RC)

Arguments

Type	Intent	Optional		Name
type(ESMF_DELayout)			::	layout
real(kind=ESMF_KIND_R8),	intent(inout)		::	sendbuf(:,:)
integer,	intent(in)		::	sendcount
integer,	intent(in)		::	DEST
real(kind=ESMF_KIND_R8),	intent(inout)		::	recvbuf(:,:)
integer,	intent(in)		::	recvcount
integer,	intent(in)		::	SOURCE
integer,	intent(out),	optional	::	RC

public interface MAPL_NPES

private function MAPL_NPES_Layout(layout) result(R)

Arguments

Type	Intent	Optional	Attributes		Name
type(ESMF_DELayout),		optional		::	layout

Return Value integer

private function MAPL_NPES_Vm(VM) result(R)

Arguments

Type	Intent	Optional	Attributes		Name
type(ESMF_VM)				::	VM

Return Value integer

Derived Types

type, public :: ArrPtr

Components

Type	Visibility	Attributes		Name		Initial
real,	public,	pointer	::	A(:,:)

type, public :: MAPL_CommRequest

Components

Type	Visibility	Attributes		Name		Initial
integer,	public		::	MYPE
integer,	public		::	RequestType	=	MAPL_Unknown
integer,	public		::	comm
integer,	public,	pointer	::	i1(:)
integer,	public,	pointer	::	im(:)
integer,	public		::	im0
integer,	public		::	im_world
integer,	public,	pointer	::	in(:)
integer,	public,	pointer	::	j1(:)
integer,	public,	pointer	::	jm(:)
integer,	public		::	jm0
integer,	public		::	jm_world
integer,	public,	pointer	::	jn(:)
integer,	public		::	nDEs
integer,	public,	pointer	::	recv(:)	=>	null()
integer,	public		::	root
integer,	public		::	s_rqst
integer,	public,	pointer	::	send(:)	=>	null()
integer,	public		::	tag
logical,	public		::	IsPrePosted
logical,	public		::	active	=	.false.
logical,	public		::	amRoot	=	.false.
real,	public,	pointer	::	DstArray(:,:)	=>	null()
real,	public,	pointer	::	Local_Array(:,:)	=>	null()
real,	public,	pointer	::	Read_Array(:,:)	=>	null()
real,	public,	pointer	::	Trans_Array(:,:,:)	=>	null()
real,	public,	pointer	::	var(:)	=>	null()
type(ArrPtr),	public,	pointer	::	Buff(:)

Subroutines

public subroutine MAPL_CollectiveGather3D(Grid, LocArray, GlobArray, CoresPerNode, rc)

Arguments

Type	Intent	Optional	Attributes		Name
type(ESMF_Grid),	intent(inout)			::	Grid
real,	intent(in)			::	LocArray(:,:,:)
real,			pointer	::	GlobArray(:,:,:)
integer,	intent(in),	optional		::	CoresPerNode
integer,	intent(out),	optional		::	rc

public subroutine MAPL_CollectiveScatter3D(Grid, GlobArray, LocArray, hw, rc)

Arguments

Type	Intent	Optional	Attributes		Name
type(ESMF_Grid),	intent(in)			::	Grid
real,	intent(in)			::	GlobArray(:,:,:)
real,	intent(inout),		target	::	LocArray(:,:,:)
integer,	intent(in),	optional		::	hw
integer,	intent(out),	optional		::	rc

public subroutine MAPL_CollectiveWait(request, DstArray, rc)

Arguments

Type	Intent	Optional	Attributes		Name
type(MAPL_CommRequest),	intent(inout)			::	request
real,		optional,	pointer	::	DstArray(:,:)
integer,	intent(out),	optional		::	rc

public subroutine MAPL_CreateRequest(grid, Root, request, tag, RequestType, DstArray, PrePost, hw, rc)

Arguments

Type	Intent	Optional	Attributes		Name
type(ESMF_Grid),	intent(in)			::	grid
integer,	intent(in)			::	Root
type(MAPL_CommRequest),	intent(inout)			::	request
integer,	intent(in)			::	tag
integer,	intent(in)			::	RequestType
real,	intent(in),	optional,	target	::	DstArray(:,:)
logical,	intent(in),	optional		::	PrePost
integer,	intent(in),	optional		::	hw
integer,	intent(out),	optional		::	rc

public subroutine MAPL_RoundRobinPEList(List, nNodes, Root, UseFirstRank, FirstRank, RC)

Arguments

Type	Intent	Optional		Name
integer,	intent(out)		::	List(:)
integer,	intent(in)		::	nNodes
integer,	intent(in),	optional	::	Root
logical,	intent(in),	optional	::	UseFirstRank
integer,	intent(out),	optional	::	FirstRank
integer,	intent(out),	optional	::	RC

MAPL_CommsMod Module

Contents

Variables

Interfaces

Derived Types

Subroutines

Uses

Used by

Variables

Interfaces

public interface ArrayGather

private subroutine ArrayGather_I4_1(local_array, global_array, grid, mask, depe, hw, rc)

Arguments

private subroutine ArrayGather_R4_1(local_array, global_array, grid, mask, depe, hw, rc)

Arguments

private subroutine ArrayGather_R8_1(local_array, global_array, grid, mask, depe, hw, rc)

Arguments

private subroutine ArrayGather_R4_2(local_array, global_array, grid, mask, depe, hw, rc)

Arguments

private subroutine ArrayGather_R8_2(local_array, global_array, grid, mask, depe, hw, rc)

Arguments

private subroutine ArrayGatherRcvCnt_I4_1(local_array, global_array, recvcounts, vm, dstPe, rc)

Arguments

private subroutine ArrayGatherRcvCnt_R4_1(local_array, global_array, recvcounts, vm, dstPe, rc)

Arguments

public interface ArrayScatter

private subroutine ArrayScatter_R4_1(local_array, global_array, grid, mask, depe, hw, rc)

Arguments

private subroutine ArrayScatter_R8_1(local_array, global_array, grid, mask, depe, hw, rc)

Arguments

private subroutine ArrayScatter_R4_2(local_array, global_array, grid, mask, depe, hw, rc)

Arguments

private subroutine ArrayScatter_R8_2(local_array, global_array, grid, mask, depe, hw, rc)

Arguments

private subroutine ArrayScatterRcvCnt_I4_1(local_array, global_array, sendcounts, vm, srcPe, rc)

Arguments

private subroutine ArrayScatterRcvCnt_R4_1(local_array, global_array, sendcounts, vm, srcPe, rc)

Arguments

public interface MAPL_Am_I_Rank

private function MAPL_Am_I_Rank_Only(rank) result(R)

Arguments

Return Value logical

private function MAPL_Am_I_Rank_Layout(layout, rank) result(R)

Arguments

Return Value logical

private function MAPL_Am_I_Rank_Vm(VM, rank) result(R)

Arguments

Return Value logical

public interface MAPL_Am_I_Root

private function MAPL_Am_I_Root_Layout(layout) result(R)

Arguments

Return Value logical

private function MAPL_Am_I_Root_Vm(VM) result(R)

Arguments

Return Value logical

public interface MAPL_ArrayIGather

private subroutine MAPL_ArrayIGather_R4_2(local_array, request, rc)

Arguments

public interface MAPL_ArrayIScatter

private subroutine MAPL_ArrayIScatter_R4_2(global_array, request, hw, rc)

Arguments

public interface MAPL_BcastShared

private subroutine MAPL_BcastShared_1DR4(VM, Data, N, Root, RootOnly, rc)

Arguments

private subroutine MAPL_BcastShared_1DR8(VM, Data, N, Root, RootOnly, rc)

Arguments

private subroutine MAPL_BcastShared_2DI4(VM, Data, N, Root, RootOnly, rc)

Arguments

private subroutine MAPL_BcastShared_2DR4(VM, Data, N, Root, RootOnly, rc)

Arguments

private subroutine MAPL_BcastShared_2DR8(VM, Data, N, Root, RootOnly, rc)

Arguments

public interface MAPL_CommsAllGather

private subroutine MAPL_CommsAllGather_I4_1(vm, sendbuf, sendcnt, recvbuf, recvcnt, RC)

Arguments

private subroutine MAPL_CommsAllGather_L4_1(vm, sendbuf, sendcnt, recvbuf, recvcnt, RC)

Arguments

public interface MAPL_CommsAllGatherV

private subroutine MAPL_CommsAllGatherV_I4_1(layout, sendbuf, sendcnt, recvbuf, recvcnts, displs, RC)

Arguments