ESMF_ComplianceICMod Module

Uses

- ESMF

Variables

Type	Visibility	Attributes		Name		Initial
integer,	private,	save	::	ccfDepth	=	1
integer,	private,	save	::	maxDepth	=	-2
logical,	private,	save	::	complianceInit	=	.false.
logical,	private,	save	::	includeState	=	.true.
logical,	private,	save	::	includeVmStats	=	.true.
logical,	private,	save	::	outputJSON	=	.false.
logical,	private,	save	::	outputText	=	.true.
logical,	private,	save	::	outputTrace	=	.false.

Interfaces

private interface JSON_GetID

private recursive subroutine JSON_GridCompGetID(comp, id, rc)

Arguments

Type	Intent	Optional	Attributes		Name
type(ESMF_GridComp)				::	comp
character(len=*),	intent(out)			::	id
integer,	intent(out)			::	rc

private recursive subroutine JSON_StateGetID(state, id, rc)

Arguments

Type	Intent	Optional	Attributes		Name
type(ESMF_State)				::	state
character(len=*),	intent(out)			::	id
integer,	intent(out)			::	rc

private recursive subroutine JSON_FieldGetID(field, id, rc)

Arguments

Type	Intent	Optional	Attributes		Name
type(ESMF_Field)				::	field
character(len=*),	intent(out)			::	id
integer,	intent(out)			::	rc

Functions

private recursive function zeroTerminatedString(string)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	string

Return Value logical

Subroutines

private recursive subroutine ComplianceInitialize(rc)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(out),	optional		::	rc

private recursive subroutine Compliance_LogWrite(msg, msgType, rc)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	msg
type(ESMF_LogMsg_Flag),	intent(in),	optional		::	msgType
integer,	intent(out),	optional		::	rc

private recursive subroutine JSON_FieldGetID(field, id, rc)

Arguments

Type	Intent	Optional	Attributes		Name
type(ESMF_Field)				::	field
character(len=*),	intent(out)			::	id
integer,	intent(out)			::	rc

private recursive subroutine JSON_GridCompGetID(comp, id, rc)

Arguments

Type	Intent	Optional	Attributes		Name
type(ESMF_GridComp)				::	comp
character(len=*),	intent(out)			::	id
integer,	intent(out)			::	rc

private recursive subroutine JSON_LogCtrlFlow(event, comp, rc)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	event
type(ESMF_GridComp),	intent(in)			::	comp
integer,	intent(out),	optional		::	rc

private recursive subroutine JSON_LogWrite(msg, rc)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	msg
integer,	intent(out),	optional		::	rc

private recursive subroutine JSON_StateGetID(state, id, rc)

Arguments

Type	Intent	Optional	Attributes		Name
type(ESMF_State)				::	state
character(len=*),	intent(out)			::	id
integer,	intent(out)			::	rc

private recursive subroutine checkComponentAttribute(prefix, comp, attributeName, convention, purpose, rc)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	prefix
type(ESMF_GridComp)				::	comp
character(len=*),	intent(in)			::	attributeName
character(len=*),	intent(in)			::	convention
character(len=*),	intent(in)			::	purpose
integer,	intent(out),	optional		::	rc

private recursive subroutine checkComponentMetadata(prefix, comp, rc)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	prefix
type(ESMF_GridComp)				::	comp
integer,	intent(out),	optional		::	rc

private recursive subroutine checkComponentStatistics(prefix, comp, rc)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	prefix
type(ESMF_GridComp)				::	comp
integer,	intent(out),	optional		::	rc

private recursive subroutine checkFieldAttribute(prefix, field, attributeName, convention, purpose, rc)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	prefix
type(ESMF_Field)				::	field
character(len=*),	intent(in)			::	attributeName
character(len=*),	intent(in)			::	convention
character(len=*),	intent(in)			::	purpose
integer,	intent(out),	optional		::	rc

private recursive subroutine checkFieldMetadata(prefix, field, stateid, rc)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	prefix
type(ESMF_Field)				::	field
character(len=*),	intent(in),	optional		::	stateid
integer,	intent(out),	optional		::	rc

private recursive subroutine checkInternalClock(prefix, comp, clock, mustMatchCurr, mustReachStop, rc)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	prefix
type(ESMF_GridComp)				::	comp
type(ESMF_Clock),	intent(in)			::	clock
logical,	intent(in)			::	mustMatchCurr
logical,	intent(in)			::	mustReachStop
integer,	intent(out),	optional		::	rc

private recursive subroutine checkState(prefix, referenceName, state, rc)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	prefix
character(len=*),	intent(in)			::	referenceName
type(ESMF_State)				::	state
integer,	intent(out),	optional		::	rc

private recursive subroutine checkStateAttribute(prefix, state, attributeName, convention, purpose, rc)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	prefix
type(ESMF_State)				::	state
character(len=*),	intent(in)			::	attributeName
character(len=*),	intent(in)			::	convention
character(len=*),	intent(in)			::	purpose
integer,	intent(out),	optional		::	rc

private recursive subroutine clockUsageIncoming(prefix, clock, clockCopy, rc)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	prefix
type(ESMF_Clock),	intent(in)			::	clock
type(ESMF_Clock),	intent(inout)			::	clockCopy
integer,	intent(out),	optional		::	rc

private recursive subroutine clockUsageOutgoing(prefix, clock, clockCopy, rc)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	prefix
type(ESMF_Clock),	intent(in)			::	clock
type(ESMF_Clock),	intent(inout)			::	clockCopy
integer,	intent(out),	optional		::	rc

private recursive subroutine ic_final(comp, importState, exportState, clock, rc)

Arguments

Type	Intent	Optional	Attributes		Name
type(ESMF_GridComp)				::	comp
type(ESMF_State)				::	importState
type(ESMF_State)				::	exportState
type(ESMF_Clock)				::	clock
integer,	intent(out)			::	rc

private recursive subroutine ic_init(comp, importState, exportState, clock, rc)

Arguments

Type	Intent	Optional	Attributes		Name
type(ESMF_GridComp)				::	comp
type(ESMF_State)				::	importState
type(ESMF_State)				::	exportState
type(ESMF_Clock)				::	clock
integer,	intent(out)			::	rc

private recursive subroutine ic_run(comp, importState, exportState, clock, rc)

Arguments

Type	Intent	Optional	Attributes		Name
type(ESMF_GridComp)				::	comp
type(ESMF_State)				::	importState
type(ESMF_State)				::	exportState
type(ESMF_Clock)				::	clock
integer,	intent(out)			::	rc

private recursive subroutine prefixString(comp, prefix, forward, rc)

Arguments

Type	Intent	Optional	Attributes		Name
type(ESMF_GridComp)				::	comp
character(len=*),	intent(inout)			::	prefix
logical,	intent(in),	optional		::	forward
integer,	intent(out),	optional		::	rc

public recursive subroutine registerIC(comp, rc)

Arguments

Type	Intent	Optional	Attributes		Name
type(ESMF_GridComp)				::	comp
integer,	intent(out)			::	rc

public recursive subroutine setvmIC(comp, rc)

Arguments

Type	Intent	Optional	Attributes		Name
type(ESMF_GridComp)				::	comp
integer,	intent(out)			::	rc