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 my_final(gcomp,importState,exportState,parentclock,rc)type(ESMF_GridComp)::gcomptype(ESMF_State)::importStatetype(ESMF_State)::exportStatetype(ESMF_Clock)::parentclockinteger,intent(out)::rccall ESMF_LogWrite("Parent Gridded Component Finalize routine called",ESMF_LOGMSG_INFO)! Give each of the subcomponents a chance to finalize themselves.call ESMF_GridCompFinalize(comp1Grid,importState=G1imp,&exportState=G1exp,clock=parentclock,rc=rc)call ESMF_GridCompFinalize(comp2Grid,importState=G2imp,&exportState=G2exp,clock=parentclock,rc=rc)call ESMF_CplCompFinalize(compCoupler,importState=G1exp,&exportState=G2imp,clock=parentclock,rc=rc)! Now remove the Components to free up their resourcescall ESMF_GridCompDestroy(comp1Grid,rc=rc)call ESMF_GridCompDestroy(comp2Grid,rc=rc)call ESMF_CplCompDestroy(compCoupler,rc=rc)call ESMF_LogWrite("Parent Gridded Component Finalize routine finished",ESMF_LOGMSG_INFO)rc=ESMF_SUCCESSend subroutine my_final