UserParentGridCompMod Module

Uses

Variables

Type	Visibility	Attributes		Name		Initial
character(len=ESMF_MAXSTR),	private,	save	::	cname
character(len=ESMF_MAXSTR),	private,	save	::	gname1
character(len=ESMF_MAXSTR),	private,	save	::	gname2
type(ESMF_CplComp),	private,	save	::	compCoupler
type(ESMF_GridComp),	private,	save	::	comp1Grid
type(ESMF_GridComp),	private,	save	::	comp2Grid
type(ESMF_State),	private,	save	::	Cplexp
type(ESMF_State),	private,	save	::	Cplimp
type(ESMF_State),	private,	save	::	G1exp
type(ESMF_State),	private,	save	::	G1imp
type(ESMF_State),	private,	save	::	G2exp
type(ESMF_State),	private,	save	::	G2imp

Subroutines

public subroutine UserPComp_SetServices(gcomp, rc)

Arguments

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

private subroutine my_final(gcomp, importState, exportState, parentclock, rc)

Arguments

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

private subroutine my_init(gcomp, importState, exportState, parentclock, rc)

Arguments

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

private subroutine my_run(gcomp, importState, exportState, parentclock, rc)

Arguments

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