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 MAPL_LocStreamAdjustNsubtiles(LocStream,NSUBTILES,RC)type(MAPL_LocStream),intent(INOUT)::LocStreaminteger,intent(IN)::NSUBTILESinteger,optional,intent(OUT)::RC! Local variablesinteger::STATUStype(MAPL_LocStreamType),pointer::STREAM! Alias to the pointer!---------------------STREAM=>LocStream%Ptr!======================================================! Check if the location stream is already attached!-------------------------------------------------if(stream%current_tiling>0)then call ESMF_AttributeSet(stream%tilegrid,name='GRID_EXTRADIM',&value=NSUBTILES,rc=status)_VERIFY(STATUS)end if_RETURN(ESMF_SUCCESS)end subroutine MAPL_LocStreamAdjustNsubtiles