ESMF_GridItemAssignment Subroutine

private subroutine ESMF_GridItemAssignment(gival, string)

Arguments

Type IntentOptional Attributes Name
type(ESMF_GridItem_Flag), intent(out) :: gival
character(len=*), intent(in) :: string

Called by

proc~~esmf_griditemassignment~~CalledByGraph proc~esmf_griditemassignment ESMF_GridItemAssignment interface~assignment (=)~5 assignment (=) interface~assignment (=)~5->proc~esmf_griditemassignment

Source Code

      subroutine ESMF_GridItemAssignment(gival, string)

! !ARGUMENTS:
      type(ESMF_GridItem_Flag), intent(out) :: gival
      character(len=*), intent(in) :: string

! !DESCRIPTION:
!     This routine assigns a string to an ESMF_GridItem_Flag
!
!     The arguments are:
!     \begin{description}
!     \item[string]
!       String value representing an ESMF_GridItem_Flag
!     \end{description}
!
!EOPI

        if (string == "ESMF_GRIDITEM_INVALID") then
          gival = ESMF_GRIDITEM_INVALID
        else if (string == "ESMF_GRIDITEM_UNINIT") then
          gival = ESMF_GRIDITEM_UNINIT
        else if (string == "ESMF_GRIDITEM_MASK") then
          gival = ESMF_GRIDITEM_MASK
        else if (string == "ESMF_GRIDITEM_AREA") then
          gival = ESMF_GRIDITEM_AREA
        endif

      end subroutine ESMF_GridItemAssignment