function ESMF_DistGridCreateDB(minIndex, maxIndex, deBlockList, &
keywordEnforcer, deLabelList, indexflag, connectionList, delayout, vm, &
indexTK, rc)
!
! !RETURN VALUE:
type(ESMF_DistGrid) :: ESMF_DistGridCreateDB
!
! !ARGUMENTS:
integer, intent(in) :: minIndex(:)
integer, intent(in) :: maxIndex(:)
integer, intent(in) :: deBlockList(:,:,:)
type(ESMF_KeywordEnforcer), optional:: keywordEnforcer ! must use keywords below
integer, intent(in), optional :: deLabelList(:)
type(ESMF_Index_Flag), intent(in), optional :: indexflag
type(ESMF_DistGridConnection), intent(in), optional :: connectionList(:)
type(ESMF_DELayout), intent(in), optional :: delayout
type(ESMF_VM), intent(in), optional :: vm
type(ESMF_TypeKind_Flag), intent(in), optional :: indexTK
integer, intent(out), optional :: rc
!
! !STATUS:
! \begin{itemize}
! \item\apiStatusCompatibleVersion{5.2.0r}
! \item\apiStatusModifiedSinceVersion{5.2.0r}
! \begin{description}
! \item[7.1.0r] Added argument {\tt indexTK} to support selecting between
! 32-bit and 64-bit sequence indices.
! \end{description}
! \end{itemize}
!
! !DESCRIPTION:
! \begin{sloppypar}
! Create an {\tt ESMF\_DistGrid} from a single logically rectangular
! tile with decomposition specified by {\tt deBlockList}.
! \end{sloppypar}
!
! The arguments are:
! \begin{description}
! \item[minIndex]
! Index space tuple of the lower corner of the single tile.
! \item[maxIndex]
! Index space tuple of the upper corner of the single tile.
! \item[deBlockList]
! List of DE-local blocks. The third index of {\tt deBlockList}
! steps through the deBlock elements (i.e. deCount), which are defined
! by the first two indices.
! The first index must be of size {\tt dimCount} and the
! second index must be of size 2. Each element of {\tt deBlockList}
! defined by the first two indices hold the following information.
! \begin{verbatim}
! +---------------------------------------> 2nd index
! | 1 2
! | 1 minIndex(1) maxIndex(1)
! | 2 minIndex(2) maxIndex(2)
! | . minIndex(.) maxIndex(.)
! | .
! v
! 1st index
! \end{verbatim}
! It is required that there be no overlap between the DE blocks.
! \item[{[deLabelList]}]
! List assigning DE labels to the default sequence of DEs. The default
! sequence is given by the order of DEs in the {\tt deBlockList}
! argument.
! \item[{[indexflag]}]
! Indicates whether the indices provided by the {\tt minIndex} and
! {\tt maxIndex} arguments are forming a global
! index space or not. This does {\em not} affect the indices held
! by the DistGrid object, which are always identical to what was
! specified by {\tt minIndex} and {\tt maxIndex}, regardless of the
! {\tt indexflag} setting. However, it does affect whether an
! {\tt ESMF\_Array} object created on the DistGrid can choose global
! indexing or not. The default is {\tt ESMF\_INDEX\_DELOCAL}.
! See section \ref{const:indexflag} for a complete list of options.
! \item[{[connectionList]}]
! List of {\tt ESMF\_DistGridConnection} objects, defining connections
! between DistGrid tiles in index space.
! See section \ref{api:DistGridConnectionSet} for the associated Set()
! method.
! \item[{[delayout]}]
! Optional {\tt ESMF\_DELayout} object to be used. By default a new
! DELayout object will be created with the correct number of DEs. If
! a DELayout object is specified its number of DEs must match the
! number indicated by {\tt regDecomp}.
! \item[{[vm]}]
! Optional {\tt ESMF\_VM} object of the current context. Providing the
! VM of the current context will lower the method's overhead.
! \item[{[indexTK]}]
! Typekind used for global sequence indexing. See section
! \ref{const:typekind} for a list of typekind options. Only integer
! types are supported. The default is to have ESMF automatically choose
! between {\tt ESMF\_TYPEKIND\_I4} and {\tt ESMF\_TYPEKIND\_I8},
! depending on whether the global number of elements held by the
! DistGrid is below or above the 32-bit limit, respectively.
! Because of the use of signed integers for sequence indices,
! element counts of $ > 2^{31}-1 = 2,147,483,647$ will switch to 64-bit
! indexing.
! \item[{[rc]}]
! Return code; equals {\tt ESMF\_SUCCESS} if there are no errors.
! \end{description}
!
!EOP
!------------------------------------------------------------------------------
integer :: localrc ! local return code
type(ESMF_DistGrid) :: distgrid ! opaque pointer to new C++ DistGrid
type(ESMF_InterArray) :: minIndexAux ! helper variable
type(ESMF_InterArray) :: maxIndexAux ! helper variable
type(ESMF_InterArray) :: deBlockListAux ! helper variable
type(ESMF_InterArray) :: deLabelListAux ! helper variable
type(ESMF_InterArray) :: connectionListAux ! helper variable
! initialize return code; assume routine not implemented
localrc = ESMF_RC_NOT_IMPL
if (present(rc)) rc = ESMF_RC_NOT_IMPL
! invalidate return value
distgrid%this = ESMF_NULL_POINTER
ESMF_DistGridCreateDB = distgrid
! Check init status of arguments
ESMF_INIT_CHECK_DEEP(ESMF_DELayoutGetInit, delayout, rc)
ESMF_INIT_CHECK_DEEP(ESMF_VMGetInit, vm, rc)
! Deal with (optional) array arguments
minIndexAux = ESMF_InterArrayCreate(minIndex, rc=localrc)
if (ESMF_LogFoundError(localrc, ESMF_ERR_PASSTHRU, &
ESMF_CONTEXT, rcToReturn=rc)) return
maxIndexAux = ESMF_InterArrayCreate(maxIndex, rc=localrc)
if (ESMF_LogFoundError(localrc, ESMF_ERR_PASSTHRU, &
ESMF_CONTEXT, rcToReturn=rc)) return
deBlockListAux = ESMF_InterArrayCreate(farray3D=deBlockList, rc=localrc)
if (ESMF_LogFoundError(localrc, ESMF_ERR_PASSTHRU, &
ESMF_CONTEXT, rcToReturn=rc)) return
deLabelListAux = ESMF_InterArrayCreate(deLabelList, rc=localrc)
if (ESMF_LogFoundError(localrc, ESMF_ERR_PASSTHRU, &
ESMF_CONTEXT, rcToReturn=rc)) return
connectionListAux = ESMF_InterArrayCreateDGConn(connectionList, &
rc=localrc)
if (ESMF_LogFoundError(localrc, ESMF_ERR_PASSTHRU, &
ESMF_CONTEXT, rcToReturn=rc)) return
! Mark this DistGrid as invalid
distgrid%this = ESMF_NULL_POINTER
! call into the C++ interface, which will sort out optional arguments
call c_ESMC_DistGridCreateDB(distgrid, minIndexAux, maxIndexAux, &
deBlockListAux, deLabelListAux, indexflag, &
connectionListAux, delayout, vm, indexTK, localrc)
if (ESMF_LogFoundError(localrc, ESMF_ERR_PASSTHRU, &
ESMF_CONTEXT, rcToReturn=rc)) return
! garbage collection
call ESMF_InterArrayDestroy(minIndexAux, rc=localrc)
if (ESMF_LogFoundError(localrc, ESMF_ERR_PASSTHRU, &
ESMF_CONTEXT, rcToReturn=rc)) return
call ESMF_InterArrayDestroy(maxIndexAux, rc=localrc)
if (ESMF_LogFoundError(localrc, ESMF_ERR_PASSTHRU, &
ESMF_CONTEXT, rcToReturn=rc)) return
call ESMF_InterArrayDestroy(deBlockListAux, rc=localrc)
if (ESMF_LogFoundError(localrc, ESMF_ERR_PASSTHRU, &
ESMF_CONTEXT, rcToReturn=rc)) return
call ESMF_InterArrayDestroy(deLabelListAux, rc=localrc)
if (ESMF_LogFoundError(localrc, ESMF_ERR_PASSTHRU, &
ESMF_CONTEXT, rcToReturn=rc)) return
call ESMF_InterArrayDestroy(connectionListAux, rc=localrc)
if (ESMF_LogFoundError(localrc, ESMF_ERR_PASSTHRU, &
ESMF_CONTEXT, rcToReturn=rc)) return
! Set return value
ESMF_DistGridCreateDB = distgrid
! Set init code
ESMF_INIT_SET_CREATED(ESMF_DistGridCreateDB)
! return successfully
if (present(rc)) rc = ESMF_SUCCESS
end function ESMF_DistGridCreateDB