ESMF_XGridInitialize Subroutine

public subroutine ESMF_XGridInitialize(xgtypep, rc)

Arguments

Type IntentOptional Attributes Name
type(ESMF_XGridType), pointer :: xgtypep
integer, intent(out), optional :: rc

Called by

proc~~esmf_xgridinitialize~~CalledByGraph proc~esmf_xgridinitialize ESMF_XGridInitialize proc~esmf_xgridconstructbaseobj ESMF_XGridConstructBaseObj proc~esmf_xgridconstructbaseobj->proc~esmf_xgridinitialize proc~esmf_xgriddeserialize ESMF_XGridDeserialize proc~esmf_xgriddeserialize->proc~esmf_xgridinitialize proc~checkproxy checkProxy proc~checkproxy->proc~esmf_xgriddeserialize proc~esmf_geomdeserialize ESMF_GeomDeserialize proc~esmf_geomdeserialize->proc~esmf_xgriddeserialize proc~esmf_xgridcreate ESMF_XGridCreate proc~esmf_xgridcreate->proc~esmf_xgridconstructbaseobj proc~esmf_xgridcreatefromsparsemat ESMF_XGridCreateFromSparseMat proc~esmf_xgridcreatefromsparsemat->proc~esmf_xgridconstructbaseobj

Source Code

      subroutine ESMF_XGridInitialize(xgtypep, rc) 
!
! !ARGUMENTS:
      type(ESMF_XGridType), pointer :: xgtypep 
      integer, intent(out), optional :: rc 
!
! !DESCRIPTION:
!      Takes an {\tt ESMF\_XGrid} object and default initialize its
!      auxiliary data members. Only to be used by other XGrid Create methods.
!
!     The arguments are:
!     \begin{description}
!     \item [xgtypep]
!           {\tt ESMF\_XGridType} object to be default initialized.
!     \item [{[rc]}]
!           Return code; equals {\tt ESMF\_SUCCESS} if there are no errors.
!     \end{description}
!
!EOPI
        xgtypep%status  = ESMF_STATUS_UNINIT
        xgtypep%coordSys  = ESMF_COORDSYS_SPH_DEG
        xgtypep%online         = 0
        xgtypep%is_proxy       = .false. 
        xgtypep%storeOverlay   = .false. 
        nullify(xgtypep%sideA)
        nullify(xgtypep%sideB)
        nullify(xgtypep%fracA2X)
        nullify(xgtypep%fracB2X)
        nullify(xgtypep%fracX2A)
        nullify(xgtypep%fracX2B)
        nullify(xgtypep%frac2A)
        nullify(xgtypep%frac2B)
        nullify(xgtypep%area)
        nullify(xgtypep%centroid)
        nullify(xgtypep%sparseMatA2X)
        nullify(xgtypep%sparseMatX2A)
        nullify(xgtypep%sparseMatB2X)
        nullify(xgtypep%sparseMatX2B)

        if(present(rc)) rc = ESMF_SUCCESS

    end subroutine ESMF_XGridInitialize