f_esmf_xgridgetmesh Subroutine

subroutine f_esmf_xgridgetmesh(xgrid, meshp, parametricDim, spatialDim, coordSys, rc)

Uses

  • proc~~f_esmf_xgridgetmesh~~UsesGraph proc~f_esmf_xgridgetmesh f_esmf_xgridgetmesh module~esmf_basemod ESMF_BaseMod proc~f_esmf_xgridgetmesh->module~esmf_basemod module~esmf_logerrmod ESMF_LogErrMod proc~f_esmf_xgridgetmesh->module~esmf_logerrmod module~esmf_meshmod ESMF_MeshMod proc~f_esmf_xgridgetmesh->module~esmf_meshmod module~esmf_utiltypesmod ESMF_UtilTypesMod proc~f_esmf_xgridgetmesh->module~esmf_utiltypesmod module~esmf_xgridcreatemod ESMF_XGridCreateMod proc~f_esmf_xgridgetmesh->module~esmf_xgridcreatemod module~esmf_xgridgeombasemod ESMF_XGridGeomBaseMod proc~f_esmf_xgridgetmesh->module~esmf_xgridgeombasemod module~esmf_xgridgetmod ESMF_XGridGetMod proc~f_esmf_xgridgetmesh->module~esmf_xgridgetmod module~esmf_xgridmod ESMF_XGridMod proc~f_esmf_xgridgetmesh->module~esmf_xgridmod module~esmf_basemod->module~esmf_logerrmod module~esmf_basemod->module~esmf_utiltypesmod iso_c_binding iso_c_binding module~esmf_basemod->iso_c_binding module~esmf_initmacrosmod ESMF_InitMacrosMod module~esmf_basemod->module~esmf_initmacrosmod module~esmf_ioutilmod ESMF_IOUtilMod module~esmf_basemod->module~esmf_ioutilmod module~esmf_vmmod ESMF_VMMod module~esmf_basemod->module~esmf_vmmod module~esmf_logerrmod->module~esmf_utiltypesmod module~esmf_logerrmod->module~esmf_ioutilmod module~esmf_utilstringmod ESMF_UtilStringMod module~esmf_logerrmod->module~esmf_utilstringmod module~esmf_meshmod->module~esmf_basemod module~esmf_meshmod->module~esmf_logerrmod module~esmf_meshmod->module~esmf_utiltypesmod module~esmf_meshmod->iso_c_binding module~esmf_arraymod ESMF_ArrayMod module~esmf_meshmod->module~esmf_arraymod module~esmf_delayoutmod ESMF_DELayoutMod module~esmf_meshmod->module~esmf_delayoutmod module~esmf_distgridmod ESMF_DistGridMod module~esmf_meshmod->module~esmf_distgridmod module~esmf_f90interfacemod ESMF_F90InterfaceMod module~esmf_meshmod->module~esmf_f90interfacemod module~esmf_gridmod ESMF_GridMod module~esmf_meshmod->module~esmf_gridmod module~esmf_meshmod->module~esmf_initmacrosmod module~esmf_ioscripmod ESMF_IOScripMod module~esmf_meshmod->module~esmf_ioscripmod module~esmf_iougridmod ESMF_IOUGridMod module~esmf_meshmod->module~esmf_iougridmod module~esmf_meshmod->module~esmf_ioutilmod module~esmf_rhandlemod ESMF_RHandleMod module~esmf_meshmod->module~esmf_rhandlemod module~esmf_utilcubedspheremod ESMF_UtilCubedSphereMod module~esmf_meshmod->module~esmf_utilcubedspheremod module~esmf_meshmod->module~esmf_vmmod module~esmf_utiltypesmod->iso_c_binding module~esmf_xgridcreatemod->module~esmf_basemod module~esmf_xgridcreatemod->module~esmf_logerrmod module~esmf_xgridcreatemod->module~esmf_meshmod module~esmf_xgridcreatemod->module~esmf_utiltypesmod module~esmf_xgridcreatemod->module~esmf_xgridgeombasemod module~esmf_xgridcreatemod->module~esmf_xgridmod module~esmf_xgridcreatemod->module~esmf_arraymod module~esmf_xgridcreatemod->module~esmf_distgridmod module~esmf_xgridcreatemod->module~esmf_f90interfacemod module~esmf_xgridcreatemod->module~esmf_gridmod module~esmf_gridutilmod ESMF_GridUtilMod module~esmf_xgridcreatemod->module~esmf_gridutilmod module~esmf_xgridcreatemod->module~esmf_initmacrosmod module~esmf_staggerlocmod ESMF_StaggerLocMod module~esmf_xgridcreatemod->module~esmf_staggerlocmod module~esmf_utilmod ESMF_UtilMod module~esmf_xgridcreatemod->module~esmf_utilmod module~esmf_xgridgeombasemod->module~esmf_logerrmod module~esmf_xgridgeombasemod->module~esmf_meshmod module~esmf_xgridgeombasemod->module~esmf_utiltypesmod module~esmf_xgridgeombasemod->module~esmf_distgridmod module~esmf_xgridgeombasemod->module~esmf_gridmod module~esmf_xgridgeombasemod->module~esmf_initmacrosmod module~esmf_xgridgeombasemod->module~esmf_staggerlocmod module~esmf_xgridgetmod->module~esmf_basemod module~esmf_xgridgetmod->module~esmf_logerrmod module~esmf_xgridgetmod->module~esmf_meshmod module~esmf_xgridgetmod->module~esmf_utiltypesmod module~esmf_xgridgetmod->module~esmf_xgridgeombasemod module~esmf_xgridgetmod->module~esmf_xgridmod module~esmf_xgridgetmod->module~esmf_arraymod module~esmf_xgridgetmod->module~esmf_delayoutmod module~esmf_xgridgetmod->module~esmf_distgridmod module~esmf_xgridgetmod->module~esmf_gridmod module~esmf_xgridgetmod->module~esmf_initmacrosmod module~esmf_xgridgetmod->module~esmf_staggerlocmod module~esmf_xgridgetmod->module~esmf_utilmod module~esmf_xgridmod->module~esmf_basemod module~esmf_xgridmod->module~esmf_logerrmod module~esmf_xgridmod->module~esmf_meshmod module~esmf_xgridmod->module~esmf_utiltypesmod module~esmf_xgridmod->module~esmf_xgridgeombasemod module~esmf_xgridmod->module~esmf_arraymod module~esmf_xgridmod->module~esmf_distgridmod module~esmf_xgridmod->module~esmf_gridmod module~esmf_xgridmod->module~esmf_initmacrosmod module~esmf_xgridmod->module~esmf_utilmod

Arguments

Type IntentOptional Attributes Name
type(ESMF_XGrid), intent(inout) :: xgrid
type(ESMF_Pointer) :: meshp
integer, intent(out) :: parametricDim
integer, intent(out) :: spatialDim
type(ESMF_CoordSys_Flag), intent(out) :: coordSys
integer, intent(out) :: rc

Calls

proc~~f_esmf_xgridgetmesh~~CallsGraph proc~f_esmf_xgridgetmesh f_esmf_xgridgetmesh interface~esmf_xgridget ESMF_XGridGet proc~f_esmf_xgridgetmesh->interface~esmf_xgridget proc~esmf_logfounderror ESMF_LogFoundError proc~f_esmf_xgridgetmesh->proc~esmf_logfounderror proc~esmf_meshget ESMF_MeshGet proc~f_esmf_xgridgetmesh->proc~esmf_meshget

Source Code

  subroutine f_esmf_xgridgetmesh(xgrid, meshp, &
       parametricDim, spatialDim, coordSys, rc)

    use ESMF_XGridMod
    use ESMF_XGridGetMod
    use ESMF_XGridCreateMod
    use ESMF_XGridGeomBaseMod
    use ESMF_UtilTypesMod
    use ESMF_BaseMod
    use ESMF_LogErrMod
    use ESMF_MeshMod

    implicit none

    type(ESMF_XGrid),intent(inout)        :: xgrid
    type(ESMF_Pointer)                    :: meshp
    integer, intent(out)                  :: parametricDim              
    integer, intent(out)                  :: spatialDim              
    type(ESMF_CoordSys_Flag), intent(out) :: coordSys
    integer, intent(out)                  :: rc              

    type(ESMF_Mesh)             :: mesh

    rc = ESMF_RC_NOT_IMPL

    ! Get Mesh
    call ESMF_XGridGet(xgrid, mesh=mesh, rc=rc)
    if (ESMF_LogFoundError(rc, ESMF_ERR_PASSTHRU, &
      ESMF_CONTEXT, rcToReturn=rc)) return

    ! Get internal pointer
    meshp = mesh%this

    ! Get other information
    call ESMF_MeshGet(mesh, &
                      parametricDim=parametricDim, &
                      spatialDim=spatialDim, &
                      coordSys=coordSys, &
                      rc=rc)
    if (ESMF_LogFoundError(rc, ESMF_ERR_PASSTHRU, &
      ESMF_CONTEXT, rcToReturn=rc)) return

    ! Return success
    rc = ESMF_SUCCESS
  
  end subroutine f_esmf_xgridgetmesh