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 test_create_dual_from_file(correct,rc)type(ESMF_Mesh)::meshlogical::correctinteger::rcinteger::petCount,localPettype(ESMF_VM)::vm! get global VMcall ESMF_VMGetGlobal(vm,rc=rc)if(rc/=ESMF_SUCCESS)return call ESMF_VMGet(vm,localPet=localPet,petCount=petCount,rc=rc)if(rc/=ESMF_SUCCESS)return! return with an error if not 1 or 4 PETsif((petCount/=1).and.(petCount/=4))thenrc=ESMF_FAILUREreturn endif! Read mesh from file mesh=ESMF_MeshCreate("data/test_sph_3x3_esmf.nc",&fileformat=ESMF_FILEFORMAT_ESMFMESH,&convertToDual=.true.,&rc=rc)if(rc/=ESMF_SUCCESS)return! DEBUG OUTPUT!call ESMF_MeshWrite(mesh,"mesh_dual",rc=rc)!if (rc .ne. ESMF_SUCCESS) rc=ESMF_FAILURE! Get rid of Meshcall ESMF_MeshDestroy(mesh,rc=rc)if(rc/=ESMF_SUCCESS)return! Return successrc=ESMF_SUCCESSend subroutine test_create_dual_from_file