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
recursive subroutine MAPL_DisableRecord(MAPLOBJ,ALARM_NAME,RC)type(MAPL_MetaComp),intent(inout)::MAPLOBJcharacter(len=*),intent(in)::ALARM_NAMEinteger,optional,intent(out)::rcinteger::kcharacter(len=ESMF_MAXSTR)::ANAMEtype(MAPL_MetaComp),pointer::CMAPL=>null()integer::statuscharacter(len=ESMF_MAXSTR),parameter::Iam="MAPL_DisableRecord"type(ESMF_GridComp),pointer::gridcompdo k=1,MAPLOBJ%get_num_children()gridcomp=>MAPLOBJ%GET_CHILD_GRIDCOMP(K)call MAPL_GetObjectFromGC(gridcomp,CMAPL,RC=status)_VERIFY(status)call MAPL_DisableRecord(CMAPL,ALARM_NAME,RC=status)_VERIFY(status)enddo do k=1,size(MAPLOBJ%record%alarm)call ESMF_AlarmGet(MAPLOBJ%RECORD%ALARM(K),name=ANAME,RC=status)if(trim(ANAME)==trim(ALARM_NAME))then call ESMF_AlarmDisable(MAPLOBJ%RECORD%ALARM(K))_RETURN(ESMF_SUCCESS)end if enddo_RETURN(ESMF_FAILURE)end subroutine MAPL_DisableRecord