Nodes of different colours represent the following:
Solid arrows point from a procedure to one which it calls. Dashed
arrows point from an interface to procedures which implement that interface.
This could include the module procedures in a generic interface or the
implementation in a submodule of an interface in a parent module.
Where possible, edges connecting nodes are
given different colours to make them easier to distinguish in
large graphs.
Source Code
subroutine SetRunSequence(driver,rc)type(ESMF_GridComp)::driverinteger,intent(out)::rc! local variablescharacter(ESMF_MAXSTR)::nametype(NUOPC_FreeFormat)::runSeqFFrc=ESMF_SUCCESS! query the driver for its namecall ESMF_GridCompGet(driver,name=name,rc=rc)if(ESMF_LogFoundError(rcToCheck=rc,msg=ESMF_LOGERR_PASSTHRU,&line=__LINE__,&file=__FILE__))&return! bail out! set up free format run sequencerunSeqFF=NUOPC_FreeFormatCreate(stringList=(/&" @* ",&" Driver ",&" Driver -> ATM ",&" ATM ",&" @ "/),&rc=rc)if(ESMF_LogFoundError(rcToCheck=rc,msg=ESMF_LOGERR_PASSTHRU,&line=__LINE__,&file=__FILE__))&return! bail out! ingest FreeFormat run sequencecall NUOPC_DriverIngestRunSequence(driver,runSeqFF,autoAddConnectors=.true.,rc=rc)if(ESMF_LogFoundError(rcToCheck=rc,msg=ESMF_LOGERR_PASSTHRU,&line=__LINE__,&file=__FILE__))&return! bail out! clean-upcall NUOPC_FreeFormatDestroy(runSeqFF,rc=rc)if(ESMF_LogFoundError(rcToCheck=rc,msg=ESMF_LOGERR_PASSTHRU,&line=__LINE__,&file=__FILE__))&return! bail outend subroutine SetRunSequence