NUOPC_Driver Module

Uses

Variables

Type	Visibility	Attributes		Name		Initial
character(len=*),	public,	parameter	::	label_ExecuteRunSequence	=	"Driver_ExecuteRunSequence"
character(len=*),	public,	parameter	::	label_Finalize	=	"Driver_Finalize"
character(len=*),	private,	parameter	::	label_InternalState	=	"Driver_InternalState"
character(len=*),	public,	parameter	::	label_ModifyCplLists	=	"Driver_ModifyCplLists"
character(len=*),	public,	parameter	::	label_ModifyInitializePhaseMap	=	"Driver_ModifyInitializePhaseMap"
character(len=*),	public,	parameter	::	label_PostChildrenAdvertise	=	"Driver_PostChildrenAdvertise"
character(len=*),	public,	parameter	::	label_PostChildrenDataInitialize	=	"Driver_PostChildrenDataInitialize"
character(len=*),	public,	parameter	::	label_PostChildrenRealize	=	"Driver_PostChildrenRealize"
character(len=*),	public,	parameter	::	label_PreChildrenAdvertise	=	"Driver_PreChildrenAdvertise"
character(len=*),	public,	parameter	::	label_PreChildrenDataInitialize	=	"Driver_PreChildrenDataInitialize"
character(len=*),	public,	parameter	::	label_PreChildrenRealize	=	"Driver_PreChildrenRealize"
character(len=*),	public,	parameter	::	label_SetModelServices	=	"Driver_SetModelServices"
character(len=*),	public,	parameter	::	label_SetRunClock	=	"Driver_SetRunClock"
character(len=*),	public,	parameter	::	label_SetRunSequence	=	"Driver_SetRunSequence"

Interfaces

public interface NUOPC_DriverAddComp

private recursive subroutine NUOPC_DriverAddGridComp(driver, compLabel, compSetServicesRoutine, compSetVMRoutine, petList, devList, info, config, comp, rc)

Arguments

Type	Intent	Optional	Attributes		Name
type(ESMF_GridComp)				::	driver
character(len=*),	intent(in)			::	compLabel
procedure(SetServicesRoutine)				::	compSetServicesRoutine
procedure(SetVMRoutine),		optional		::	compSetVMRoutine
integer,	intent(in),	optional		::	petList(:)
integer,	intent(in),	optional		::	devList(:)
type(ESMF_Info),	intent(in),	optional		::	info
type(ESMF_Config),	intent(in),	optional		::	config
type(ESMF_GridComp),	intent(out),	optional		::	comp
integer,	intent(out),	optional		::	rc

private recursive subroutine NUOPC_DriverAddGridCompSO(driver, compLabel, sharedObj, petList, devList, info, config, comp, rc)

Arguments

Type	Intent	Optional	Attributes		Name
type(ESMF_GridComp)				::	driver
character(len=*),	intent(in)			::	compLabel
character(len=*),	intent(in),	optional		::	sharedObj
integer,	intent(in),	optional		::	petList(:)
integer,	intent(in),	optional		::	devList(:)
type(ESMF_Info),	intent(in),	optional		::	info
type(ESMF_Config),	intent(in),	optional		::	config
type(ESMF_GridComp),	intent(out),	optional		::	comp
integer,	intent(out),	optional		::	rc

private recursive subroutine NUOPC_DriverAddCplComp(driver, srcCompLabel, dstCompLabel, compSetServicesRoutine, compSetVMRoutine, petList, devList, info, config, comp, rc)

Arguments

Type	Intent	Optional	Attributes		Name
type(ESMF_GridComp)				::	driver
character(len=*),	intent(in)			::	srcCompLabel
character(len=*),	intent(in)			::	dstCompLabel
procedure(SetServicesRoutine)				::	compSetServicesRoutine
procedure(SetVMRoutine),		optional		::	compSetVMRoutine
integer,	intent(in),	optional,	target	::	petList(:)
integer,	intent(in),	optional,	target	::	devList(:)
type(ESMF_Info),	intent(in),	optional		::	info
type(ESMF_Config),	intent(in),	optional		::	config
type(ESMF_CplComp),	intent(out),	optional		::	comp
integer,	intent(out),	optional		::	rc

public interface NUOPC_DriverAddRunElement

private recursive subroutine NUOPC_DriverAddRunElementMPL(driver, slot, compLabel, keywordEnforcer, phaseLabel, relaxedflag, rc)

Arguments

Type	Intent	Optional	Attributes		Name
type(ESMF_GridComp)				::	driver
integer,	intent(in)			::	slot
character(len=*),	intent(in)			::	compLabel
type(ESMF_KeywordEnforcer),		optional		::	keywordEnforcer
character(len=*),	intent(in),	optional		::	phaseLabel
logical,	intent(in),	optional		::	relaxedflag
integer,	intent(out),	optional		::	rc

private recursive subroutine NUOPC_DriverAddRunElementCPL(driver, slot, srcCompLabel, dstCompLabel, keywordEnforcer, phaseLabel, relaxedflag, rc)

Arguments

Type	Intent	Optional	Attributes		Name
type(ESMF_GridComp)				::	driver
integer,	intent(in)			::	slot
character(len=*),	intent(in)			::	srcCompLabel
character(len=*),	intent(in)			::	dstCompLabel
type(ESMF_KeywordEnforcer),		optional		::	keywordEnforcer
character(len=*),	intent(in),	optional		::	phaseLabel
logical,	intent(in),	optional		::	relaxedflag
integer,	intent(out),	optional		::	rc

private recursive subroutine NUOPC_DriverAddRunElementL(driver, slot, linkSlot, rc)

Arguments

Type	Intent	Optional	Attributes		Name
type(ESMF_GridComp)				::	driver
integer,	intent(in)			::	slot
integer,	intent(in)			::	linkSlot
integer,	intent(out),	optional		::	rc

public interface NUOPC_DriverGetComp

private recursive subroutine NUOPC_DriverGetGridComp(driver, compLabel, comp, petList, importState, exportState, relaxedflag, rc)

Arguments

Type	Intent	Optional	Attributes		Name
type(ESMF_GridComp)				::	driver
character(len=*),	intent(in)			::	compLabel
type(ESMF_GridComp),	intent(out),	optional		::	comp
integer,		optional,	pointer	::	petList(:)
type(ESMF_State),	intent(out),	optional		::	importState
type(ESMF_State),	intent(out),	optional		::	exportState
logical,	intent(in),	optional		::	relaxedflag
integer,	intent(out),	optional		::	rc

private recursive subroutine NUOPC_DriverGetCplComp(driver, srcCompLabel, dstCompLabel, comp, petList, relaxedflag, rc)

Arguments

Type	Intent	Optional	Attributes		Name
type(ESMF_GridComp)				::	driver
character(len=*),	intent(in)			::	srcCompLabel
character(len=*),	intent(in)			::	dstCompLabel
type(ESMF_CplComp),	intent(out),	optional		::	comp
integer,		optional,	pointer	::	petList(:)
logical,	intent(in),	optional		::	relaxedflag
integer,	intent(out),	optional		::	rc

private recursive subroutine NUOPC_DriverGetAllGridComp(driver, compList, petLists, rc)

Arguments

Type	Intent	Optional	Attributes		Name
type(ESMF_GridComp)				::	driver
type(ESMF_GridComp),		optional,	pointer	::	compList(:)
type(ESMF_PtrInt1D),		optional,	pointer	::	petLists(:)
integer,	intent(out),	optional		::	rc

private recursive subroutine NUOPC_DriverGetAllCplComp(driver, compList, petLists, rc)

Arguments

Type	Intent	Optional	Attributes		Name
type(ESMF_GridComp)				::	driver
type(ESMF_CplComp),			pointer	::	compList(:)
type(ESMF_PtrInt1D),		optional,	pointer	::	petLists(:)
integer,	intent(out),	optional		::	rc

public interface NUOPC_DriverIngestRunSequence

private recursive subroutine NUOPC_DriverIngestRunSequenceFF(driver, freeFormat, autoAddConnectors, rc)

Arguments

Type	Intent	Optional	Attributes		Name
type(ESMF_GridComp)				::	driver
type(NUOPC_FreeFormat),	intent(in),		target	::	freeFormat
logical,	intent(in),	optional		::	autoAddConnectors
integer,	intent(out),	optional		::	rc

private recursive subroutine NUOPC_DriverIngestRunSequenceHC(driver, hconfig, autoAddConnectors, rc)

Arguments

Type	Intent	Optional	Attributes		Name
type(ESMF_GridComp)				::	driver
type(ESMF_HConfig),	intent(in)			::	hconfig
logical,	intent(in),	optional		::	autoAddConnectors
integer,	intent(out),	optional		::	rc

Derived Types

type, private :: ComponentMapEntry

Components

Type	Visibility	Attributes		Name		Initial
type(ComponentMapEntryT),	public,	pointer	::	wrap

type, private :: ComponentMapEntryT

Components

Type	Visibility	Attributes		Name		Initial
character(len=400),	public		::	label
integer,	public,	pointer	::	petList(:)
type(ESMF_GridComp),	public		::	component

type, private :: ConnectorMapEntry

Components

Type	Visibility	Attributes		Name		Initial
type(ConnectorMapEntryT),	public,	pointer	::	wrap

type, private :: ConnectorMapEntryT

Components

Type	Visibility	Attributes		Name		Initial
character(len=400),	public		::	label
integer,	public,	pointer	::	petList(:)
type(ESMF_CplComp),	public		::	connector

type, private :: type_InternalState

Components

Type	Visibility	Attributes		Name		Initial
type(type_InternalStateStruct),	public,	pointer	::	wrap

type, private :: type_InternalStateStruct

Components

Type	Visibility	Attributes		Name		Initial
integer,	public		::	modelCount
integer,	public		::	runPhaseToRunSeqMap(10)
logical,	public		::	dataDepAllComplete
logical,	public		::	firstTimeDataInit
logical,	public		::	legacyReady
type(ESMF_Clock),	public,	pointer	::	initClock(:)
type(ESMF_Clock),	public		::	parentClock
type(ESMF_Container),	public		::	componentMap
type(ESMF_Container),	public		::	connectorMap
type(ESMF_CplComp),	public,	pointer	::	connectorComp(:,:)
type(ESMF_GridComp),	public,	pointer	::	modelComp(:)
type(ESMF_PtrInt1D),	public,	pointer	::	connectorPetLists(:,:)
type(ESMF_PtrInt1D),	public,	pointer	::	modelPetLists(:)
type(ESMF_State),	public,	pointer	::	modelES(:)
type(ESMF_State),	public,	pointer	::	modelIS(:)
type(NUOPC_RunSequence),	public,	pointer	::	runSeq(:)
type(type_PhaseMapParser),	public,	pointer	::	connectorPhaseMap(:,:)
type(type_PhaseMapParser),	public,	pointer	::	modelPhaseMap(:)

type, private :: type_PhaseMapParser

Components

Type	Visibility	Attributes		Name		Initial
character(len=NUOPC_PhaseMapStringLength),	public,	pointer	::	phaseKey(:)
character(len=NUOPC_PhaseMapStringLength),	public,	pointer	::	phases(:)
integer,	public		::	phaseCount
integer,	public,	pointer	::	phaseValue(:)

Subroutines

private recursive subroutine ExecuteRunSequence(driver, rc)

Arguments

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

private recursive subroutine Finalize(driver, importState, exportState, clock, rc)

Arguments

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

private recursive subroutine FinalizeReset(driver, importState, exportState, clock, rc)

Arguments

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

private recursive subroutine IInitAdvertise(driver, importState, exportState, clock, rc)

Arguments

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

private recursive subroutine IInitAdvertiseFinish(driver, importState, exportState, clock, rc)

Arguments

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

private recursive subroutine IInitCheck(driver, importState, exportState, clock, rc)

Arguments

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

private recursive subroutine IInitModifyCplLists(driver, importState, exportState, clock, rc)

Arguments

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

private recursive subroutine IInitRealize(driver, importState, exportState, clock, rc)

Arguments

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

private recursive subroutine InitializeExternalAdvertise(driver, importState, exportState, clock, rc)

Arguments

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

private recursive subroutine InitializeGeneric(driver, importState, exportState, clock, rc)

Arguments

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

private recursive subroutine InitializeIPDv02p1(driver, importState, exportState, clock, rc)

Arguments

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

private recursive subroutine InitializeIPDv02p3(driver, importState, exportState, clock, rc)

Arguments

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

private recursive subroutine InitializeIPDv02p5(driver, importState, exportState, clock, rc)

Arguments

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

private recursive subroutine InitializeIPDv02p5Data(driver, importState, exportState, clock, rc)

Arguments

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

private recursive subroutine InitializeP0(driver, importState, exportState, clock, rc)

Arguments

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

private recursive subroutine InternalInitializeComplete(driver, importState, exportState, clock, rc)

Arguments

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

private recursive subroutine NUOPC_DriverAddCplComp(driver, srcCompLabel, dstCompLabel, compSetServicesRoutine, compSetVMRoutine, petList, devList, info, config, comp, rc)

Arguments

Type	Intent	Optional	Attributes		Name
type(ESMF_GridComp)				::	driver
character(len=*),	intent(in)			::	srcCompLabel
character(len=*),	intent(in)			::	dstCompLabel
procedure(SetServicesRoutine)				::	compSetServicesRoutine
procedure(SetVMRoutine),		optional		::	compSetVMRoutine
integer,	intent(in),	optional,	target	::	petList(:)
integer,	intent(in),	optional,	target	::	devList(:)
type(ESMF_Info),	intent(in),	optional		::	info
type(ESMF_Config),	intent(in),	optional		::	config
type(ESMF_CplComp),	intent(out),	optional		::	comp
integer,	intent(out),	optional		::	rc

private recursive subroutine NUOPC_DriverAddGridComp(driver, compLabel, compSetServicesRoutine, compSetVMRoutine, petList, devList, info, config, comp, rc)

Arguments

Type	Intent	Optional	Attributes		Name
type(ESMF_GridComp)				::	driver
character(len=*),	intent(in)			::	compLabel
procedure(SetServicesRoutine)				::	compSetServicesRoutine
procedure(SetVMRoutine),		optional		::	compSetVMRoutine
integer,	intent(in),	optional		::	petList(:)
integer,	intent(in),	optional		::	devList(:)
type(ESMF_Info),	intent(in),	optional		::	info
type(ESMF_Config),	intent(in),	optional		::	config
type(ESMF_GridComp),	intent(out),	optional		::	comp
integer,	intent(out),	optional		::	rc

private recursive subroutine NUOPC_DriverAddGridCompSO(driver, compLabel, sharedObj, petList, devList, info, config, comp, rc)

Arguments

Type	Intent	Optional	Attributes		Name
type(ESMF_GridComp)				::	driver
character(len=*),	intent(in)			::	compLabel
character(len=*),	intent(in),	optional		::	sharedObj
integer,	intent(in),	optional		::	petList(:)
integer,	intent(in),	optional		::	devList(:)
type(ESMF_Info),	intent(in),	optional		::	info
type(ESMF_Config),	intent(in),	optional		::	config
type(ESMF_GridComp),	intent(out),	optional		::	comp
integer,	intent(out),	optional		::	rc

private recursive subroutine NUOPC_DriverAddRunElementCPL(driver, slot, srcCompLabel, dstCompLabel, keywordEnforcer, phaseLabel, relaxedflag, rc)

Arguments

Type	Intent	Optional	Attributes		Name
type(ESMF_GridComp)				::	driver
integer,	intent(in)			::	slot
character(len=*),	intent(in)			::	srcCompLabel
character(len=*),	intent(in)			::	dstCompLabel
type(ESMF_KeywordEnforcer),		optional		::	keywordEnforcer
character(len=*),	intent(in),	optional		::	phaseLabel
logical,	intent(in),	optional		::	relaxedflag
integer,	intent(out),	optional		::	rc

private recursive subroutine NUOPC_DriverAddRunElementL(driver, slot, linkSlot, rc)

Arguments

Type	Intent	Optional	Attributes		Name
type(ESMF_GridComp)				::	driver
integer,	intent(in)			::	slot
integer,	intent(in)			::	linkSlot
integer,	intent(out),	optional		::	rc

private recursive subroutine NUOPC_DriverAddRunElementMPL(driver, slot, compLabel, keywordEnforcer, phaseLabel, relaxedflag, rc)

Arguments

Type	Intent	Optional	Attributes		Name
type(ESMF_GridComp)				::	driver
integer,	intent(in)			::	slot
character(len=*),	intent(in)			::	compLabel
type(ESMF_KeywordEnforcer),		optional		::	keywordEnforcer
character(len=*),	intent(in),	optional		::	phaseLabel
logical,	intent(in),	optional		::	relaxedflag
integer,	intent(out),	optional		::	rc

public recursive subroutine NUOPC_DriverEgestRunSequence(driver, freeFormat, rc)

Arguments

Type	Intent	Optional	Attributes		Name
type(ESMF_GridComp)				::	driver
type(NUOPC_FreeFormat),	intent(out)			::	freeFormat
integer,	intent(out),	optional		::	rc

public recursive subroutine NUOPC_DriverGet(driver, slotCount, parentClock, importState, exportState, rc)

Arguments

Type	Intent	Optional	Attributes		Name
type(ESMF_GridComp)				::	driver
integer,	intent(out),	optional		::	slotCount
type(ESMF_Clock),	intent(out),	optional		::	parentClock
type(ESMF_State),	intent(out),	optional		::	importState
type(ESMF_State),	intent(out),	optional		::	exportState
integer,	intent(out),	optional		::	rc

private recursive subroutine NUOPC_DriverGetAllCplComp(driver, compList, petLists, rc)

Arguments

Type	Intent	Optional	Attributes		Name
type(ESMF_GridComp)				::	driver
type(ESMF_CplComp),			pointer	::	compList(:)
type(ESMF_PtrInt1D),		optional,	pointer	::	petLists(:)
integer,	intent(out),	optional		::	rc

private recursive subroutine NUOPC_DriverGetAllGridComp(driver, compList, petLists, rc)

Arguments

Type	Intent	Optional	Attributes		Name
type(ESMF_GridComp)				::	driver
type(ESMF_GridComp),		optional,	pointer	::	compList(:)
type(ESMF_PtrInt1D),		optional,	pointer	::	petLists(:)
integer,	intent(out),	optional		::	rc

private recursive subroutine NUOPC_DriverGetCplComp(driver, srcCompLabel, dstCompLabel, comp, petList, relaxedflag, rc)

Arguments

Type	Intent	Optional	Attributes		Name
type(ESMF_GridComp)				::	driver
character(len=*),	intent(in)			::	srcCompLabel
character(len=*),	intent(in)			::	dstCompLabel
type(ESMF_CplComp),	intent(out),	optional		::	comp
integer,		optional,	pointer	::	petList(:)
logical,	intent(in),	optional		::	relaxedflag
integer,	intent(out),	optional		::	rc

private recursive subroutine NUOPC_DriverGetGridComp(driver, compLabel, comp, petList, importState, exportState, relaxedflag, rc)

Arguments

Type	Intent	Optional	Attributes		Name
type(ESMF_GridComp)				::	driver
character(len=*),	intent(in)			::	compLabel
type(ESMF_GridComp),	intent(out),	optional		::	comp
integer,		optional,	pointer	::	petList(:)
type(ESMF_State),	intent(out),	optional		::	importState
type(ESMF_State),	intent(out),	optional		::	exportState
logical,	intent(in),	optional		::	relaxedflag
integer,	intent(out),	optional		::	rc

private recursive subroutine NUOPC_DriverIngestRunSequenceFF(driver, freeFormat, autoAddConnectors, rc)

Arguments

Type	Intent	Optional	Attributes		Name
type(ESMF_GridComp)				::	driver
type(NUOPC_FreeFormat),	intent(in),		target	::	freeFormat
logical,	intent(in),	optional		::	autoAddConnectors
integer,	intent(out),	optional		::	rc

private recursive subroutine NUOPC_DriverIngestRunSequenceHC(driver, hconfig, autoAddConnectors, rc)

Arguments

Type	Intent	Optional	Attributes		Name
type(ESMF_GridComp)				::	driver
type(ESMF_HConfig),	intent(in)			::	hconfig
logical,	intent(in),	optional		::	autoAddConnectors
integer,	intent(out),	optional		::	rc

public recursive subroutine NUOPC_DriverNewRunSequence(driver, slotCount, rc)

Arguments

Type	Intent	Optional	Attributes		Name
type(ESMF_GridComp)				::	driver
integer,	intent(in)			::	slotCount
integer,	intent(out),	optional		::	rc

public recursive subroutine NUOPC_DriverPrint(driver, orderflag, rc)

Arguments

Type	Intent	Optional	Attributes		Name
type(ESMF_GridComp)				::	driver
logical,	intent(in),	optional		::	orderflag
integer,	intent(out),	optional		::	rc

public recursive subroutine NUOPC_DriverSetRunSequence(driver, slot, clock, alarm, rc)

Arguments

Type	Intent	Optional	Attributes		Name
type(ESMF_GridComp)				::	driver
integer,	intent(in)			::	slot
type(ESMF_Clock),	intent(in)			::	clock
type(ESMF_Alarm),	intent(in),	optional		::	alarm
integer,	intent(out),	optional		::	rc

private recursive subroutine SetRunClock(driver, rc)

Arguments

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

public recursive subroutine SetServices(driver, rc)

Arguments

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

private recursive subroutine checkConnection(field, connected, producerConnected, consumerConnected, rc)

Arguments

Type	Intent	Optional	Attributes		Name
type(ESMF_Field),	intent(in)			::	field
logical,	intent(out)			::	connected
logical,	intent(out)			::	producerConnected
logical,	intent(out)			::	consumerConnected
integer,	intent(out)			::	rc

private subroutine consistentComponentAttributes(comp, petList, name, rc)

Arguments

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

private recursive subroutine loopConnectorCompsS(driver, phaseString, execFlag, rc)

Arguments

Type	Intent	Optional	Attributes		Name
type(ESMF_GridComp)				::	driver
character(len=*),	intent(in)			::	phaseString
logical,	intent(out),	optional		::	execFlag
integer,	intent(out)			::	rc

private recursive subroutine loopDataDependentInitialize(driver, dataDepAllComplete, rc)

Arguments

Type	Intent	Optional	Attributes		Name
type(ESMF_GridComp)				::	driver
logical,	intent(out),	optional		::	dataDepAllComplete
integer,	intent(out)			::	rc

private recursive subroutine loopModelCompsAttributeUpdate(driver, mustAttributeUpdate, rc)

Arguments

Type	Intent	Optional	Attributes		Name
type(ESMF_GridComp)				::	driver
logical,	intent(inout),		allocatable	::	mustAttributeUpdate(:)
integer,	intent(out)			::	rc

private recursive subroutine loopModelCompsS(driver, phaseString, mustAttributeUpdate, execFlag, rc)

Arguments

Type	Intent	Optional	Attributes		Name
type(ESMF_GridComp)				::	driver
character(len=*),	intent(in)			::	phaseString
logical,	intent(inout),		allocatable	::	mustAttributeUpdate(:)
logical,	intent(out),	optional		::	execFlag
integer,	intent(out)			::	rc

private recursive subroutine rmFieldsWoConsumerConnection(state, name, rc)

Arguments

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

public recursive subroutine routine_Run(driver, importState, exportState, clock, rc)

Arguments

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

private recursive subroutine routine_executeCplComp(is, i, j, phase, activeClock, name, userrc, rc)

Arguments

Type	Intent	Optional	Attributes		Name
type(type_InternalState)				::	is
integer,	intent(in)			::	i
integer,	intent(in)			::	j
integer,	intent(in)			::	phase
type(ESMF_Clock),	intent(inout)			::	activeClock
character(len=ESMF_MAXSTR),	intent(in)			::	name
integer,	intent(out)			::	userrc
integer,	intent(out)			::	rc

private recursive subroutine routine_executeGridComp(is, i, phase, activeClock, name, userrc, rc)

Arguments

Type	Intent	Optional	Attributes		Name
type(type_InternalState)				::	is
integer,	intent(in)			::	i
integer,	intent(in)			::	phase
type(ESMF_Clock),	intent(inout)			::	activeClock
character(len=ESMF_MAXSTR),	intent(in)			::	name
integer,	intent(out)			::	userrc
integer,	intent(out)			::	rc