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 gnomonic_dist(im,lamda,theta)! This is the commonly known equi-distance gridinteger imreal(ESMF_KIND_R8)lamda(im+1,im+1)real(ESMF_KIND_R8)theta(im+1,im+1)real(ESMF_KIND_R8)p(3,im+1,im+1)! Localreal(ESMF_KIND_R8)rsq3,xf,y0,z0,y,x,z,dsreal(ESMF_KIND_R8)dy,dzinteger j,k! Face-2rsq3=1./sqrt(3.)xf=-rsq3y0=rsq3;dy=-2.*rsq3/imz0=-rsq3;dz=2.*rsq3/imdo k=1,im+1do j=1,im+1p(1,j,k)=xfp(2,j,k)=y0+(j-1)*dyp(3,j,k)=z0+(k-1)*dzenddo enddo call cart_to_latlon((im+1)*(im+1),p,lamda,theta)end subroutine gnomonic_dist