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_angl(im,lamda,theta)! This is the commonly known equi-angular 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,kreal(ESMF_KIND_R8)dpdp=0.5*pi/real(im,ESMF_KIND_R8)rsq3=1./sqrt(3.)do k=1,im+1do j=1,im+1p(1,j,k)=-rsq3! constantp(2,j,k)=-rsq3*tan(-0.25*pi+(j-1)*dp)p(3,j,k)=rsq3*tan(-0.25*pi+(k-1)*dp)enddo enddo call cart_to_latlon((im+1)*(im+1),p,lamda,theta)end subroutine gnomonic_angl