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 latlon_zstar(q,qp,undef,grid,rc)real,intent(inout)::q(:,:)real,intent(out)::qp(:,:)real,intent(in)::undeftype(ESMF_Grid),intent(inout)::gridinteger,optional,intent(out)::rcinteger::local_dims(3)integer im,jm,i,j,statusreal,allocatable::qz(:)call MAPL_GridGet(grid,localCellCountPerDim=local_dims,_RC)im=local_dims(1)jm=local_dims(2)allocate(qz(jm))call latlon_zmean(q,qz,undef,grid)do j=1,jmif(qz(j).eq.undef)thenqp(:,j)=undefelse do i=1,imif(defined(q(i,j),undef))thenqp(i,j)=q(i,j)-qz(j)elseqp(i,j)=undefendif enddo endif enddo if(present(rc))thenrc=_SUCCESSendif end subroutine latlon_zstar