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
function new_ExtData_DriverGridComp(root_set_services,configFileName,name)result(cap)procedure()::root_set_servicescharacter(len=*),optional,intent(in)::namecharacter(len=*),optional,intent(in)::configFileNametype(ExtData_DriverGridComp)::captype(ExtData_DriverGridComp_Wrapper)::cap_wrappertype(MAPL_MetaComp_Wrapper)::meta_comp_wrapperinteger::status,rccap%root_set_services=>root_set_servicesif(present(name))then allocate(cap%name,source=name)else allocate(cap%name,source='CAP')end if if(present(configFileName))then allocate(cap%configFile,source=configFileName)else allocate(cap%configFile,source='CAP.rc')end ifcap%gc=ESMF_GridCompCreate(name='ExtData_DriverGridComp',rc=status)_VERIFY(status)allocate(cap_wrapper%ptr)cap_wrapper%ptr=capcall ESMF_UserCompSetInternalState(cap%gc,internal_cap_name,cap_wrapper,status)_VERIFY(status)allocate(meta_comp_wrapper%ptr)call ESMF_UserCompSetInternalState(cap%gc,internal_meta_comp_name,meta_comp_wrapper,status)_VERIFY(status)end function new_ExtData_DriverGridComp