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 MAPL_CFIOOpenWrite(MCFIO,RC)type(MAPL_CFIO),intent(INOUT)::MCFIOinteger,optional,intent(OUT)::RCinteger::STATUS! Open the file for writing only at the root process!---------------------------------------------------AMROOT:if(mCFIO%MYPE==mCFIO%RootRank)then call ESMF_CFIOFileOpen(MCFIO%CFIO,fmode=0,RC=STATUS)_VERIFY(STATUS)! print *, ' Opened CFIO File: ', trim(mCFIO%fName)end if AMROOT_RETURN(ESMF_SUCCESS)end subroutine MAPL_CFIOOpenWrite