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 test_get_ungridded_dims()integer::statusinteger::iinteger,parameter::N=2integer,parameter::D=3character(len=*),parameter::EXPECTED_NAMES(N)=['color','phase']character(len=*),parameter::EXPECTED_UNITS(N)=['K ','rad']real,parameter::REAL_ARRAY(D)=[1.0,2.0,3.0]real::EXPECTED_COORDINATES(N,D)character(len=:),allocatable::namecharacter(len=:),allocatable::unitsreal,allocatable::coordinates(:)type(UngriddedDimVector)::vectype(UngriddedDim)::undimcall safe_dealloc(bundle_info)do i=1,NEXPECTED_COORDINATES(i,:)=REAL_ARRAYend do allocate(bundle_info(N))do i=1,Nbundle_info(i)=make_esmf_info(names=EXPECTED_NAMES,units_array=EXPECTED_UNITS,coordinates=EXPECTED_COORDINATES,_RC)end dovec=get_ungridded_dims_bundle_info(bundle_info,_RC)do i=1,Nundim=vec%at(i)name=undim%get_name()@assertEqual(EXPECTED_NAMES(i),name,'ungridded dimension name does not match.')units=undim%get_units()@assertEqual(EXPECTED_UNITS(i),units,'ungridded dimension units does not match.')coordinates=undim%get_coordinates()@assertEqual(EXPECTED_COORDINATES(i,:),coordinates,0.01,'ungridded dimensions coordinates does not match.')end do call safe_dealloc(bundle_info)end subroutine test_get_ungridded_dims