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 copy_bundle_to_bundle(input_bundle,output_bundle,rc)type(ESMF_FieldBundle),intent(inout)::input_bundletype(ESMF_FieldBundle),intent(inout)::output_bundleinteger,intent(out),optional::rcinteger::statuscharacter(len=ESMF_MAXSTR),allocatable::field_list(:)type(ESMF_Field)::fieldinteger::i,num_fieldscall ESMF_FieldBundleGet(input_bundle,fieldCount=num_fields,_RC)allocate(field_list(num_fields))call ESMF_FieldBundleGet(input_bundle,fieldNameList=field_list,_RC)do i=1,num_fieldscall ESMF_FieldBundleGet(input_bundle,field_list(i),field=field,_RC)call MAPL_FieldBundleAdd(output_bundle,field,_RC)enddo if(present(rc))thenRC=_SUCCESSend if end subroutine copy_bundle_to_bundle