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 ESMF_LogFinalize(rc)!! !ARGUMENTS:integer,intent(out),optional::rc! !DESCRIPTION:! This routine finalizes the global Log. The default Log will be flushed! and closed. All user logs will also be closed.!! The arguments are:! \begin{description}!! \item [{[rc]}]! Return code; equals {\tt ESMF\_SUCCESS} if there are no errors.! \end{description}!!EOPIinteger::rc2,ktype(ESMF_Log)::log! Initialize return code; assume routine not implementedif(present(rc))rc=ESMF_RC_NOT_IMPLESMF_INIT_CHECK_SET_SHALLOW(ESMF_LogGetInit,ESMF_LogInit,log)! Loop through all ESMF_LogTable(*) and close the filesdo k=1,ESMF_LogTableCountlog%logTableIndex=kcall ESMF_LogClose(log,rc=rc)enddo call c_ESMC_LogFinalize(rc2)end subroutine ESMF_LogFinalize