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.
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 setup(outer_gc,config,rc)type(ESMF_GridComp),intent(inout)::outer_gctype(ESMF_HConfig),intent(in)::configinteger,intent(out)::rcinteger::status,userRCtype(ESMF_Time)::ttype(ESMF_TimeInterval)::dttype(ESMF_Clock)::clockcall ESMF_TimeSet(t,h=0)call ESMF_TimeIntervalSet(dt,h=1)clock=ESMF_ClockCreate(dt,t)outer_gc=create_grid_comp('A',user_setservices('libsimple_leaf_gridcomp'),config,clock,rc=status)@assert_that(status,is(0))call ESMF_GridCompSetServices(outer_gc,setServices,userRC=userRC,rc=status)if(status/=0)thenrc=statusreturn end if if(userRC/=0)thenrc=userRCreturn end if call clear_log()rc=0end subroutine setup