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 checkGridLite(grid,staggerloc,rc)type(ESMF_Grid)::gridtype(ESMF_StaggerLoc)::staggerlocinteger,intent(out),optional::rctype(ESMF_GridDecompType)::decompTypeinteger::localDECount,lDE,ec(ESMF_MAXDIM)integer::localrc,i,dimCountif(present(rc))rc=ESMF_RC_NOT_IMPL! Make sure Grid isn't arbitrarily distributedcall ESMF_GridGetDecompType(grid,decompType,rc=localrc)if(ESMF_LogFoundError(localrc,ESMF_ERR_PASSTHRU,&ESMF_CONTEXT,rcToReturn=rc))return! Error if decompType is ARBITRARYif(decompType.eq.ESMF_GRID_ARBITRARY)then call ESMF_LogSetError(rcToCheck=ESMF_RC_ARG_BAD,&msg="- can't currently regrid an arbitrarily distributed Grid",&ESMF_CONTEXT,rcToReturn=rc)return endif if(present(rc))rc=ESMF_SUCCESSend subroutine checkGridLite