NUOPC_RunSequenceDef Module

Uses

- ESMF
- NUOPC_Base

Interfaces

public interface NUOPC_RunSequenceDeallocate

private subroutine NUOPC_RunSequenceSingleDeall(runSeq, rc)

Arguments

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

private subroutine NUOPC_RunSequenceArrayDeall(runSeq, rc)

Arguments

Type	Intent	Optional	Attributes		Name
type(NUOPC_RunSequence),			pointer	::	runSeq(:)
integer,	intent(out),	optional		::	rc

public interface NUOPC_RunSequencePrint

private subroutine NUOPC_RunSequenceSinglePrint(runSeq, logflag, rc)

Arguments

Type	Intent	Optional	Attributes		Name
type(NUOPC_RunSequence),	intent(in)			::	runSeq
logical,	intent(in),	optional		::	logflag
integer,	intent(out),	optional		::	rc

private subroutine NUOPC_RunSequenceArrayPrint(runSeq, logflag, rc)

Arguments

Type	Intent	Optional	Attributes		Name
type(NUOPC_RunSequence),			pointer	::	runSeq(:)
logical,	intent(in),	optional		::	logflag
integer,	intent(out),	optional		::	rc

Derived Types

type, public :: NUOPC_RunElement

Components

Type	Visibility	Attributes		Name		Initial
integer,	public		::	i
integer,	public		::	j
integer,	public		::	phase
type(NUOPC_RunElement),	public,	pointer	::	next
type(NUOPC_RunSequence),	public,	pointer	::	runSeq

type, public :: NUOPC_RunSeqEventHandler

Components

Type	Visibility	Attributes		Name		Initial
character(len=ESMF_MAXSTR),	public		::	name
integer,	public		::	levelMemberPrev
integer,	public		::	loopIterationPrev
integer,	public		::	loopLevelPrev
logical,	public		::	pFlag
logical,	public		::	vFlag

type, public :: NUOPC_RunSequence

Components

Type	Visibility	Attributes		Name		Initial
integer,	public		::	levelChildren
integer,	public		::	levelMember
integer,	public		::	loopIteration
integer,	public		::	loopLevel
logical,	public		::	alarmBlock
type(ESMF_Alarm),	public		::	alarm
type(ESMF_Clock),	public		::	clock
type(ESMF_Clock),	public		::	prevMemberClock
type(NUOPC_RunElement),	public,	pointer	::	first
type(NUOPC_RunElement),	public,	pointer	::	stack

Functions

private recursive function NUOPC_RunSequenceCtrl(runSeq, runElement, eventHandler, rc) result(NUOPC_RunSequenceCtrlResult)

Arguments

Type	Intent	Optional	Attributes		Name
type(NUOPC_RunSequence),			pointer	::	runSeq(:)
type(NUOPC_RunElement),			pointer	::	runElement
type(NUOPC_RunSeqEventHandler)				::	eventHandler
integer,	intent(out),	optional		::	rc

Return Value logical

public function NUOPC_RunSequenceIterate(runSeq, runSeqIndex, runElement, eventHandler, rc)

Arguments

Type	Intent	Optional	Attributes		Name
type(NUOPC_RunSequence),			pointer	::	runSeq(:)
integer,	intent(in)			::	runSeqIndex
type(NUOPC_RunElement),			pointer	::	runElement
type(NUOPC_RunSeqEventHandler)				::	eventHandler
integer,	intent(out),	optional		::	rc

Return Value logical

Subroutines

public subroutine NUOPC_RunElementAdd(runSeq, i, j, phase, rc)

Arguments

Type	Intent	Optional	Attributes		Name
type(NUOPC_RunSequence),	intent(inout),		target	::	runSeq
integer,	intent(in)			::	i
integer,	intent(in)			::	j
integer,	intent(in)			::	phase
integer,	intent(out),	optional		::	rc

public subroutine NUOPC_RunElementAddComp(runSeq, i, j, phase, rc)

Arguments

Type	Intent	Optional	Attributes		Name
type(NUOPC_RunSequence),	intent(inout),		target	::	runSeq
integer,	intent(in)			::	i
integer,	intent(in),	optional		::	j
integer,	intent(in),	optional		::	phase
integer,	intent(out),	optional		::	rc

public subroutine NUOPC_RunElementAddLink(runSeq, slot, rc)

Arguments

Type	Intent	Optional	Attributes		Name
type(NUOPC_RunSequence),	intent(inout),		target	::	runSeq
integer,	intent(in)			::	slot
integer,	intent(out),	optional		::	rc

public subroutine NUOPC_RunElementPrint(runElement, logflag, rc)

Arguments

Type	Intent	Optional	Attributes		Name
type(NUOPC_RunElement),	intent(in)			::	runElement
logical,	intent(in),	optional		::	logflag
integer,	intent(out),	optional		::	rc

public subroutine NUOPC_RunSequenceAdd(runSeq, addCount, rc)

Arguments

Type	Intent	Optional	Attributes		Name
type(NUOPC_RunSequence),			pointer	::	runSeq(:)
integer,	intent(in)			::	addCount
integer,	intent(out),	optional		::	rc

private subroutine NUOPC_RunSequenceArrayDeall(runSeq, rc)

Arguments

Type	Intent	Optional	Attributes		Name
type(NUOPC_RunSequence),			pointer	::	runSeq(:)
integer,	intent(out),	optional		::	rc

private subroutine NUOPC_RunSequenceArrayPrint(runSeq, logflag, rc)

Arguments

Type	Intent	Optional	Attributes		Name
type(NUOPC_RunSequence),			pointer	::	runSeq(:)
logical,	intent(in),	optional		::	logflag
integer,	intent(out),	optional		::	rc

private subroutine NUOPC_RunSequenceHandleEvent(runSeq, eh, endFlag, rc)

Arguments

Type	Intent	Optional	Attributes		Name
type(NUOPC_RunSequence)				::	runSeq
type(NUOPC_RunSeqEventHandler)				::	eh
logical,	intent(in),	optional		::	endFlag
integer,	intent(out)			::	rc

public subroutine NUOPC_RunSequenceSet(runSeq, clock, alarm, rc)

Arguments

Type	Intent	Optional	Attributes		Name
type(NUOPC_RunSequence),	intent(inout)			::	runSeq
type(ESMF_Clock),	intent(in)			::	clock
type(ESMF_Alarm),	intent(in),	optional		::	alarm
integer,	intent(out),	optional		::	rc

private subroutine NUOPC_RunSequenceSingleDeall(runSeq, rc)

Arguments

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

private subroutine NUOPC_RunSequenceSinglePrint(runSeq, logflag, rc)

Arguments

Type	Intent	Optional	Attributes		Name
type(NUOPC_RunSequence),	intent(in)			::	runSeq
logical,	intent(in),	optional		::	logflag
integer,	intent(out),	optional		::	rc