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_LocStreamFracArea(LocStream,TYPE,AREA,RC)type(MAPL_LocStream),intent(IN)::LocStreaminteger,intent(IN)::TYPEreal,intent(OUT)::AREA(:,:)integer,optional,intent(OUT)::RC! Local variablesinteger::II,JJ,N! Make sure Location stream has been created...!----------------------------------------------_ASSERT(associated(LocStream%Ptr),'needs informative message')! and a grid attached...!-----------------------_ASSERT(LocStream%Ptr%Current_Tiling>0,'needs informative message')! Compute area over masked locations!-----------------------------------------------AREA=0.0do N=1,size(LOCSTREAM%Ptr%LOCAL_INDEXLOCATION)if(LOCSTREAM%Ptr%LOCAL_GEOLOCATION(N)%T==TYPE)thenII=LOCSTREAM%Ptr%LOCAL_INDEXLOCATION(N)%IJJ=LOCSTREAM%Ptr%LOCAL_INDEXLOCATION(N)%JAREA(II,JJ)=AREA(II,JJ)+LOCSTREAM%Ptr%LOCAL_INDEXLOCATION(N)%Wend if end do_RETURN(ESMF_SUCCESS)end subroutine MAPL_LocStreamFracArea